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SETFIL  -  CREATE   f  'LTER  BLOCK 


3291 

3292 

3293 

329A 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3305 

330A 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

33'4 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3334 

3335 

3336 

3357 

3338 

3559 

5340 

5541 

3342 

334  3 

3544 

3345 

5346 
354- 


.SBTTL     SETFIL   -   CREATE   FILTER  BLOCK 


SETFIL  • 
INPUTS: 


CREATE    FILTER  BLOCK 


OUTPUTS: 

CARRY   CLEAR: 

FILTER  BLOCK    IS   CREATED 
CARRY   SE'": 

ERROR  ,,ESSAGE   DISPLAYED    (UNABLE    TO   CREATE   FILTER  BLOCK) 


015110 
015114 
015122 
015124 
015130 
015152 
015136 
015140 
015142 

015144 
015146 
015152 
015156 
015160 
015164 
015166 
015174 
015176 
015202 
015206 
015212 
015216 

015220 
015224 
015230 
CI  5236 
015240 
015244 


015250 
015260 
015274 
C15^^0 
015.  -4 
015310 
0'5314 
015320 


000016        SETFIL 
000070  OOOOOOG 


012701 
032767 
001402 
012701 
010146 

103473 
006000 
105071 

006100 
010067 
012701 
005021 
016711 
051621 
052767 
001011 


016721  000120' 


000040 


000164' 
OOOOOOG 


10$: 


000002G 
OOOOOOG  OOOOOOG 


000120' 

000071  OOOOOCu 


000414 


016721 
052767 
001404 


016701 
016702 
016703 


012702     OOOOOOG 


■0$: 


MOV 

BIT 

BEQ 

MOV 

MOV 

CALL 

BCS 

ROR 

BCC 

ROL 
MOV 
MOV 
CLR 

MOV 

BIS 

BIT 

BNE 

CALL 

MOV 

CALL 

CALL 

BR 

CALL 

MOV 

SIT 

BEQ 

CALL 

CALL 


#F.LEN,R1  ;    GET   LENGTH  OF   BLOCK   TO  ALLOCATE 

#OP$NOD10P$LNEIOP$SIN,$OPTON   ;    ANY  QUALIIFIERS   SPECIFIED? 


10$- 

*F.CEVtlO,Rl 

R1,-(SP) 

$ALPOL 

101$ 

RO 

101$ 

RO 

RO.C'JRUNM 

#$BFfi,R1 

(R1)  + 

RQS+L0.CLS,(R1) 

(SP),CR1)*- 

#CM$nFT,$CMAND 

20$ 


BR  IF  NO 

GET  LENGTH  OF  BLOCK  TO  ALLOCATE 

SAVE  FILTER  BLOCK  LENGTH 

TRY  TO  ALLOCATE  A  FILTER  BLOCK 

BR  IF  UNABLE  TO  ALLOCATE  ONE 

CHECK  IF  ALLOCATED  FROM  POOL.. 

IF  NOT  -  REPORT  ERROR 

ADJUST  BLOCK  ADDRESS 

SAVE  UNMAPPED  ADDRESS 

SET  UP  FILTER  BLOCK 

INITIALIZE  LINK  WORD 

STORE  EVENT  CLASS 

STORE  LENGTH  OF  FILTER  BLOCK 

SET  COMMAND? 

BR  IF  YES 

INITIALIZE  THE  SET  EVENT  MASKS 

STORE  QUALIFIER  FLAGS 

SET  QUALIFIERS 

STORE  THE  CLEAR  EVENT  MASKS 

CONTINUE 


INIE\/T 

EVQUAL,(R1)+ 

SETQLF 

STREVT 

30$ 

STREVT  ;  STORE  THE  EVENT  MASK!' 

EVQUAL,(R1)+  ;  STORE  FLAGS  WORD 

#OP$NOD!OP$LNEIOP$SINI0P$HOS,$OPT0N  ;  ANY  QUALIFIERS? 


30$ 

SETQLF 

INIEVT 


BR  IF  NO 

STORE  QUALIFIER  FIELDS 

INITIALIZE  CLEAR  EVENA  MASK  FIELD 


LINK  NEW  FILTER  BLOCK  INTO  LIST  -  SORT  BY  SINK  NODE,  THEN  CLASS 


000014G 
000002G 
O00C26G 


50$: 
40$: 


CEACC$ 

PUTAD 

MOV 

MOV 

MOV 

CALL 

MOV 

CALL 


;o,Ri 

RI.CSP)*- 

$8FR+F.FLG,R1 

$BFR+F.CLS,R2 

$BFR+F.REM,R3 

FINFLT 

#$FILHD,R2 

QINS 


CONVERT  TO  MAPPED  ADDRESS 

WRITE  OUT  FILTER  BLOCK 

GET  FLAGS  WORD 

GET  EVENT  CLASS  NUMBER 

GET  SINK  NODE 

FIND  PLACE  FOR  FILTER  BLOCK 

POINT  TO  FILTER  LISTHEAD 

AND  INSERT  ENTRY  INTO  LIS^ 
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VENA  -  VNP  ENABLE/DISABLE   LINES  MACRO  V05.03b  Weunesday 
SAVF IL    -   SAVE    FILTER   MASKS 


n 


B  2 

-Sep-85  12:06 


5787 
3788 
5789 
5790 
5791 
5792 
3795 
579A 
5795 
3796 
3797 
5798 
5799 
5800 
5801 
5802 
5805  017576 

5804  017A00 

5805  017'.02 

5806  017A04 

5807  017A06 


Page  67 
SBTTL      SAVFIL   -   SAVE    FILTER  MASKS 


SAVER   -   COPY   FILTER  MASKS   TO   SAVE   AREA 
INPUTS: 


R5 
R5 


POINTER  TO  FILTER  MASKS  TO  SAVE 
POINTER  TO  SAVE  AREA 


012525 
012525 
012525 
012525 


OUTPUTS: 

THE  EVENT  FILTER  MASKS  ARE  SAVED 
R5,R5  DESTROYED 


SAVFIL: 


MOV 

(R3)  + 

(R5)t 

MOV 

(R5W 

CR5)<- 

MOV 

(R5)  + 

(R5)- 

MOV 

(R5)t 

(R5)t 

RETURN 

SAVE  THE  FILTER  MASKS 


C    2 


';FNA  -  \jKp  FNARI  F/DISABLF   LINES  MACRO  V05.05b  Wednesday   11-5ep-85   12:06     Page 


B  3 

VENA  -  VNP  ENABLC/DISABLE  LINES  MACRO  V05.03b  Wednesday  11-Sep-85  12:06  Page  79 
tVLTM  -  SET/CLEAR  LISTEN  TIMER 

A192  .SBTTL  $VLTM  -  SET/CLEAR  LISTEN  TIMER 

A193 

41 W 

4195 

A196 

A197 

A198 

A199 

A200 

4201 

A202 

A205 

^204  , 

4205  020736  tvLTM::  CALL    FNDCTR  ;  FIND  COUNTER  BLOCK 

4206  020742  103406  BCS     101$  ;  BR  IF  CAN'T  FIND  IT 

4207  020744  016767  000034G  000032G        MOV     L0.LTMtRQB,T$T6+$BFR    ;  STORE  LISTEN  TIMER 

4208  020752  PUTAD  ;  REWRITE  COUNTER  BLOCK 

4209  020756  RETURN 
-.210  020760                      1011:   ERRPTS  ERR44,$EROUT  ;  PARAMATER  NOT  APPLICABLE 


$VLTM  -  SET  LISTEN  TIMER 

INPUTS: 

L0.LTM+RQ3  -  SPECIFIED  LISTEN  TIMER 

OUTPUTS: 

LISTEN  TIMER  STORED  IN  COUNTER  BLOCK 


iin     rrMftnicr/riTCADir 
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Symbol   table 


U2.DJ1= 

U2.D21= 

U2.ESC= 

U2.HFF= 

U2.HLD= 

U2.L0G= 

U2.LWC= 

U2.L3S= 

U2.L8S= 

L)2.NEC  = 

U2.PRV= 

U2.RMT= 

U2.F(04= 

U2.SCS= 

U2.SL\/= 

U2.VT5= 

U2.7CH= 

U3.0PA= 

U3.PAR= 

U3.UPC= 

U4.CR   = 

VAL! 

VF$RCV= 

VF$XMT= 

VF.ACP= 

VF.ADD^ 

VF.DLX= 

VF.EAD= 


ABS. 


DATA 
Errors 


040000 
000100 
001000 
010000 
0000-^0 
000400 

000001 

OOOOOA 

010000 

004000 

000010 

020000 

100000 

OOOOOA 

000200 

000002 

010000 

100000 

040000 

020000 

000100 

011734R 

100000 

040000 

******  GX 

******  GX 

******  GX 

******  Gx 


VF.F1X= 

VF.ON   = 

VF.PEM= 

VF.SED= 

VF.SKA= 

VF.SS   = 

V$FLG 

VSLEN 

V$RCV 

V$XMT 

V$$CTR= 

WC.CNT= 

UC.EVE= 

WC.TRI= 

WC.UNT= 

>$$DBT= 

X25NAM 

X5DSMT 

ZF.LLC= 

2. DAT   = 

Z.FLG   = 

Z.LLN   = 

Z.MAP   = 

i.um  = 

Z.PCS  = 
$ALL15= 
$ALPOL= 
$B'R      = 


****** 
****** 
****** 
****** 
****** 
****  ** 

000000 

000022 

000002 

000012 

001000 

000400 

004000 

002000 

001000 

000000 

000004R 

020536R 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****x  * 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


$CAT5  = 
$CEACC= 
$CMAND= 
SCfJOD 
$C0TB  = 
$DEA16= 
$DECPT= 
$DEP0L= 
$DEVHD= 
$EROUT= 
$FILHD= 
$FNADD= 
$rNALJ= 
$FNNAM= 
$F,NQ8J  = 
$FPDV 
002  $GETAD= 

!;getrv= 

$HMBUF= 
$LGC0N= 
5LGFNB= 
$LGMON= 
$LGSTT= 
$LLCTA= 
$LSTAD=: 
$LSTRM= 
$MUL  = 
$OBJHD= 


*«**«*  GX 
******  GX 
******  GX 
003466RG 
GX 
GX 
GX 
GX 
GX 

******  GX 
GX 
GX 
GX 
GX 
GX 

021716RG 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 


****** 
****** 
****** 
****** 
****** 


****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 


177776 

021^70 

003430 

Jetec ted: 


000 
001 
002 
0 


(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 


***  Assembler   statistics 


Work  file  reads: 
Work  file  writes: 
Size  ot  work  file: 
jize  of  core  pool : 
Operating      system: 


271 
225 

41075  Words 
17608  Words 
RSX-11M/PLUS 


(    161    '^ages) 
(  67  Pages) 
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5-6 

$0PT0N= 

******  GX 

$PDVNM= 

******  GX 

$PDVTA= 

******  GX 

$PUTAD= 

******  GX 

$PUrRC= 

******  GX 

$QUAL  = 

******  GX 

$RADDR= 

******  GX 

$RBLCK= 

******  GX 

$RDBLH= 

******  GX 

SRPASW 

006130RG 

$RSIZE= 

******  GX 

$SAVAL= 

******  GX 

$SAVRG= 

..♦»«.  GX 

SSL"^  = 

******  GX 

SSLTA  = 

******  GX 

$SLTMA= 

******  GX 

SSMOD 

007524R6 

SSNOD 

003460RG 

STPASW 

006260RG 

STRIB  = 

******  GX 

SVACP 

006524RG 

SVACT 

001350RG 

SVALl 

011012RG 

SVCOST 

002006RG 

SVDEA 

00143nRG 

SVENA 

000250RG 

tVERIF 

006410RG 

$VFLAG^ 

**••■'  GX 

SVHST 

020662RG 

tVHTM 

020770RG 

EVINA 

004144RG 

EVINC 

004054RG 

$VLIN 

004234RG 

6VL0G 

012002R6 

SVLTM 

020736RG 

SVOBJ 

010306RG 

SVOUT 

004 11  ORG 

SVOWN 

001510RG 

SVREM 

004654RG 

IVRET 

004200RG 

SVSEG 

004020RG 

SVSER 

000242RG 

SVTAD 

001230RG 

$XLINK= 

******  GX 

$$ 

177777 

$$LCNT^ 

000072  G 

$$LLIN= 

000104  G 

$$$   = 

003632R 

$$$$  = 

003656R 

.ABT1M= 

******  GX 

.CLKHD= 

******  GX 

.MGMGE= 

******  GX 

.TLGTH= 

******  GX 

.TSKHD= 

******  GX 

..COO  = 

******  GX 

..0FF.= 

177732 

Elapsed    time:    00:05:04.14 
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VENA 


CREATcD  BY  MACRO  ON  11-SEP-35  AT  12:08 


SYMBOL  CROSS  REFERENCE 
SYMBOL   VALUE 


PFtDRP 

=  000016 

RE$LDT 

=  000015 

RESLSN 

=  000012 

<:INML 

=  000001 

^ESOPE 

=  OOOOOA 

?E$OPR 

=  000000 

^ESRCV 

=  000001 

MESSED 

=  000011 

^E$5KU 

=  000006 

^E$STA 

=  000002 

^ESSUM 

=  000003 

^ESSYN 

=  000000 

^ESTME 

=  000021 

RE$TMO 

=  000000 

RESTMR 

=  000020 

REIUPT 

=  000002 

RESORE 

=  000003 

RESVER 

=  :-"005 

RESVRQ 

=  oooci^ 

PF.lOO 

=  lOOC  '"-■ 

RQB 

-  ****** 

J 


RTSINI 

RTSOFF 

RTSON 

RU'J 

RX.NXM 

RX.OVR 

R$$EIS 

P$$MPL 

R.AOD 

R.CSR 

R.FLAG 

R.FLG 

R.LEN 

R.LNK 

R.LST 

R.MAP 

R.NAM 

R.OUE 

R.SLN 

R.SRV 

R.STA 


GX 


000002 

COOC01 

000000 

021232  R 

000C20 

000010 


000010 

000056 
000012 
000064 
0000  U 
000000 
000104 
000110 
000002 
000062 
000070 
00006C 
000066 


REFERENCES 

115-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-70 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-7A 
13-597 
26-1271 
27-1432 
28-1530 
41-2233 
42-2367 
42-2406 
53-3024 
62-3498 
69-3851 

#5-79 

#5-79 

#5-79 
39-2017 

#5-32 

#5-82 
46-2642 
39-1958 

#5-74 
30-i650 

#5-82 

#5-74 

#5-82 

#5-74 

#5-74 

#5-82 

#5-82 

#5-74 

#5-82 

#5-82 

#5-82 

#5-82 


27-1433 

13-602 

26-1273 

27-1441 

28-1535 

41-2235 

42-2370 

42-2410 

54-3060 

62-^511 

60-3852 


56-3139 
39-1970 
27-1389 
53-3033 

27-1391 

27-1415 

21-977 

27-1449 
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CREF        04.00 


27-1456 
13-607 
26-1275 
27-1450 
28-1539 
41-2241 
42-2378 
45-2560 
♦56-3140 
62-3552 
69-3853 


40-2159       #82-4305 


40-2101 
27-1427 
54-5067 

27-1428 

27-1444 

21-979 

27-1454 


14-640 
26-1291 
27-1455 
28-1559 
»41-2246 
42-2380 
45-2603 
56-3141 
62-3555 
71-3900 


40-2117 
•27-1432 


•27-1433 
28-1553 

28-1513 


15-672 

26-1308 

28-1492 

28-1564 

41-2248 

42-2382 

46-2641 

56-3146 

62-3560 

78-4183 


27-1435 

•27-1456 
28-: 570 

28-1558 


16-696 

26-1325 

28-1498 

36-1841 

41-2251 

42-2395 

47-2685 

57-3194 

62-3567 

79-4207 


•27-1455 

28-1495 
30-1649 

28-1563 


17-783 

26-1342 

28-1506 

37-1879 

41-2252 

42-2398 

50-2821 

57-3213 

62-35^2 

80-42^7 


17-797 

26-1359 

28-1514 

38-1916 

41-2263 

42-2399 

50-2829 

59-3321 

62-3601 


26-1269 
27-1380 
28-1526 
41-2197 
42-2301 
42-2402 
51-2938 
62-3491 
69-3850 


•28-1539       •28-1564 
28-1509       •28-1565 

42-2371 


28-1576 


MAi-Dn     DM    ii_ccD_Qi;    AT    i:3-nH 
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1^ 
U 
15 
16 
17 
18 
1? 

'i\ 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3^, 
35 
36 

38 
39 
AG 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 

54 


.TITLE  VEXP  -  VNP  EXPAND  TEMPLATE  PROCESSING 
.IDE-'IT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1930,  1982,  1'"33,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UlTH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PRO\/IDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHAfJuE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

NTL  -  LINE  TABLE  EXPANSION  FRONT  END 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI .0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V-.O 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


ITS 


n 
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30^  000A06 

308  000A12 

309  0004U 

310  000422 
311 

312 
313 
3U 

315  000424 

316  000426 

317  000432 

318  000434 

319  000436 
320 

321 
322 
323 

324  000440 

325  000444 
326 

327 
328 
329 

330  000446 

331  000452 

332  000454 

333  000460 

334  000466 

335  0004('0 

336  000472 

337  000474 

338  000476 

339  000500 

340  000504 

341  000506 

342  000512 


156724  000G40G 
105024 


010400 

066700  OOOOOOG 

005C24 

C10C24 


016724  OOOOOOG 


BISB 
CLRB 
SWTCHI 
RETURN 


LISTHEAD 

LSTHD:  MOV 
ADD 
CLR 
MOV 


RETURN 


D$MLL+$HMBUF 
(R4)t 


R4,R0 
SLINK, RO 
(R4)  + 
R0,(R4)t 


.(R4)+;  COPY  LOGICAL  LIN<  COUNT 
;  INIT  HIGH  BYTE 
;  RESET  TO  DEFAULT  BUFFER  $BFR 


SET  REAL  ADDRESS 

STORE  a'ZERO  WORD 

STORE  ADDRESS  OF  PREVIOUS  WORD 


LINE  TABLE  ADDRESS 
LTAB 


MOV     $bADDR,(R4)t 
RETURN 


;  STORE  LINE  TABLE  STARTING  ADDRESS 


005767 
100015 
016730 
032767 
001403 
006200 
006200 
006200 
006300 
016024 


000450' 

000446' 
OOOOOOG  OOOOOOG 


SECONDARY  CSR 


SECSR: 


OOOOOOj 


012724  \imi 


10$: 
20$: 

101$: 


TST 

BPL 

MOV 

BIT 

BEQ 

ASR 

ASR 

ASR 

ASL 

MOV 

RETURN 

MOV 

RETURN 


FLAGS 

101$ 

INDEX, RO 

#FL.KMX,$FLAGS 

10$ 

RO 

RO 

RO 

RO 

$$SC5R{R0),fR4)- 

#-l,(R4)t 


343 
344 
345 

;  SVS 

TEN  LINE  NUMBER  (BYTE) 

346 

347  000514 

005000 

SLNB: 

CLR     RO 

348  000516 

005767 

000450' 

TST     FLAG? 

349  000522 

100003 

BPL     10$ 

350  000524 

0'6700 

000446' 

MOV     INDEX, RC 

351  000530 

122020 

CMPB    (R0)+,(RO)t 

352  000532 

116024 

OOOOOOG 

10$: 

M0V8    $SLN(R0),(R4)' 

353  00U536 

RETURN 

354 

355 

356 

;  SYSTEM  LINE  NUMBER  tUORD) 

357 

358  000540 

005000 

SLNW; 

CLR     RO 

359  000542 

005767 

000450' 

TST     FLAGS 

360  00C546 

100003 

BPL     10$ 

361  000550 

CI  6700 

000446' 

MOV     INDEX, RO 

362  000554 

122020 

CMPB    CRO)t,(RO)* 

363  C00556 

005001 

10$: 

CLR     R1 

IS  IT  MUX  EXPANSION? 

IF  PL,  NO 

GET  SECONDARY  FILE  COUNTER 

IS  THIS  A  COMIOP  MUX  LINE? 

IF  EQ,  NO 

DIVIDE  COUNTER  BY  8 

(NUMBER  OF  LINES  PER  CONTROLLER) 

convert' TO  A  WORD  INDEX 
;  COPY  SECONDARY  CSR  ADDRESS 

5ECSR  NOT  IN  MXTAB  FILE 


ASSUME  NORMAL  EXPANSION 

IS  IT  MUX  EXPANSIO','? 

IF  PL,  NO 

GET  MUX  INDEX 

SKIP  DLC  LINE  NUMBER 

STORE  SYSTEM  LINE  NUMBER 


ASSUME  NORMAL  EXPANSION 

IS  IT  MUX  EXPANSION? 

IF  PL,  NO 

GET  MUX  INDEX 

SKIP  DLC  LINE  NUMBER 

GET  LINE  NUMBER  AS  A  WORD 


C  7 

A-1  _  -1  7 
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X2CH 


8A5 

8A5 

8A6 

847  002542  116724  OOOOOOG 

8AS  0023A6 

849 

850 

851 

852  002350  016724  OOOOOOG 

853  002354 
854 

855 
856 

857  002356  116724  OOOOOOG 

858  002362 
859 

860 

Oil 

862  002364     016724      OOOOOOG 

863  002370 
864 

865 
866 

867  002372  0^6724  OOOOOOG 

868  002376 

870        000001 


.SBTIL  X2CH 

MAXIMUM  WINDOW  SIZE 

X2CH01 :  Move    $X2MWS,iR4)+ 
RETURN 

MAXIMUM  BLOCK  SIZE 

X2CM02:  MOV     $X2M8S,(R4)+ 
RETURN 

MAXIMUM  RETRANSMIT  COUNT 

X2CH03:  M0V8    $X2MRT,(R4)+ 
RETURN 

RETRANSMIT  TIMER 

>(2CH04:  MOV     $X2RET,(R4)  + 
RETURN 

HOLDBACK  TIMER 

X2CH05:  MOV     SX2HLD,(R4)* 
RETUR/M 

.END 


STORE  MAXIMUM  WINDOW  SIZE 


STORE  MAXIMUM  BLOCK  SIZE 


STURE  MAXIMUM  RETRANSMIT  COUNT 


STORE  RETRANSMIT  TIMER 


STORE  HOLDBACK  TIMER 
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133 
134 

135 
136 
137 
138 
139 
HO 
HI 
H2 
143 
KA 
145 
146 

147  000000 

148  000000 

149  00O004 

150  000010 

151  000014 

152  000016 

153  000020 

154  0000^2 

155  000024 

156  000026 

157  000032 
15S  u00034 


.SBTIl   $VFX3  -  TEMPLATE  EXPANSION  CLEANUP 

$VEX3  -  CLEANUP  BINARY  INFORMATION  AFTER  TEMPLATE  ERROR 

THIS  ROUTINE  IS  CALLED  ONLY  IF  A  TEMPLATE  ER=^OR  OCCURS.  IT  DEALLOCATES 
ALLOCATIONS  AND  LIBRARY  REFERENCES  MADE  EARLitR  IN  THE  TEMPLATE. 

INPUTS: 


$8IN=START  OF  BINARY  INFORMATION 
$°TR=END  OF  BINARY  INFORMATION 

OUTPUTS: 

ALL  REGISrERS=DESTROYED 


016705  OOOOOOG 
016704  OOOOOOG 
026705  OOOOOOG 
001407 
005003 
152503 
001404 
106303 

000766 


ivEX3: 

MOV 

$BIN,R5 

MOV 

$ADDR,R4 

10$: 

CMP 

$PTR,R5 

BEQ 

20$ 

CLR 

R3 

BISB 

(R5)+,R3 

BEQ 

20$ 

ASL8 

R3 

CALL 

aTABLE-2(R3) 

BR 

10$ 

20$: 

RETURN 

START  OF  BINARY  DATA 

START  OF  REAL  DATA 

IS  IT  END  OF  BINARY  DATA? 

IF  EQ,  YES 

GET  FUNCTION  CODE 

IF  zer6",'end  or  file 

CONVERT  TO  A  WORD  INDEX 

EXPAND  ONE  FIELD 

KEEP  LOOPING  UNTIL  END 
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n 


VEX5  -  V^JP  UPDATE  LINE  TABLES 
$VEX5  -  TEMPLATE  EXPANSION 


157 

158 

159 

160 

161 

162 

163 

16A 

165 

166 

167 

168 

169 

170 

171 

172 

173  000000 

17A  000000 

175  00000'. 

176  000010 

177  OOOOIh 

178  000020 

179  00002A 

180  000050 

181  00003h 

182  OOOO^O 

183  oooo^-a 

18A  000046 
185  000052 
000056 
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.SBTTL  $VEX5  -  TEMPLATE  EXPANSION 

$VEX5  -  EXPAND  BINARY  INFORMATION  INTO  REAL  INFORMATION 

THIS  ROUTINE  IS  CALLED  AFTER  THE  ASCII  TEMPLATE  FILE  HAS  BEEN  READ 
AND  PROCESSED  INTO  THE  BIN-RY  FILE.  THE  BINARY  INFORMATION  IS  EXPANDED 
AND  STORED  AT  THE  LOCATION  CONTAINED  IN  "$ADDR". 


INPUTS: 


$B1N=START  OF  BINARY  INFORMATION 
$PTR=END  OF  BINARY  INFORMATION 
$ADDR=APDRE5S  OF  WHERE  REAL  DATA  GOES 


':6  . 

187  000060 

188  000062 

189  000064 

190  000066 

191  000070 

192  000074 

193  000076 
194 

195 
196 
197 

198  000100 


005067 
005067 
016705 
016703 
016704 
116404 

0167C2 
001417 
016704 
016703 
026705 
001407 
005002 
152502 
001404 
106302 

000766 


000152' 
000154' 
OOOOOOG 
OOOOOOG 
OtOOOOG 
000002 

000160' 

OOOOOOG 
000162' 
OOOOOOG 


OUTPUTS: 

ALL  REGISTERS=DESTROYED 

VEX5:: 

CLR 

INDEX 

CLR 

FLAGS 

MOV 

$8IN,R5 

MOV 

$ADDR,R3 

MOV 

$SLTA,R4 

Move 

L.DDM(R4),R4 

CALL 

FLT16 

MOV 

U8A,R2 

BEQ 

101$ 

MOV 

$SLTA,R4 

MOV 

CTRADD,R3 

0$: 

CMP 

$PTR,R5 

BEQ 

20$ 

CLR 

R2 

BIS8 

(R5)+,R2 

BEQ 

20$ 

ASLB 

R2 

CALL 

aTA8LE-2(R2) 

BR 

10$ 

0$: 

RETURN 

ERROR 

CONDITION 

01$: 

CRASH 

ZERO  INDEX  VALUE 

AND  SPECIAL  FLAGS 

START  OF  BINARY  DATA 

GET  LINE  TABLE  ADDRESS 

GET  THE  SLT  ADDRESS 

GET  DDM  PDV  INDEX 

SEARCH  THRU  THE  UNLOAD  BLOCKS 

SUCCESS  ? 

NO  .. 

RESTORE  THE  SLT  ADDRESS 

GET  CONTROLLER  TABLE  STARTING  ADDRESS 

IS  IT  END  OF  BINARY  DATA? 

IF  EQ,  YES 

GET  FUNCTION  CODE 

IF  zeroTend  of  file 

CONVERT  TO  A  WORD  INDEX 

EXPAND  ONE  FIELD 

KEEP  LOOPING  UNTIL  END 


CAN'T  FIND  LINE  TABLE  IN  UNLOAD  BLOCKS 
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"1 


VEXS  -   VNP  UPDATE    LINE    TABLES 
Symbol    table 
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ADDRB 

000102R 

INT 

000506R 

ADDRW 

000106R 

I$$RAR= 

000000 

APR 

00H50R 

I$$RDN= 

000000 

A$$CHK= 

000000 

K$$CNT= 

177546 

A$$CPS= 

000000 

K$$CSR= 

177546 

A$tPRI= 

000000 

K$$LDC= 

000000 

At$TRP= 

OOCOOO 

K$$TPS= 

000074 

BLKB 

0001I2R 

LD$LP  = 

000000 

BLKW 

0001 50R 

LFILE 

001160R 

BLOCK 

000164R 

002 

LF.ACT= 

100000 

BYTE 

000T50R 

LF.BR0= 

000400 

CORE 

0001 56R 

LF.BUT= 

000007 

CSR 

000210R 

LF.ENA= 

002000 

CTIM 

000220R 

LF.LPB= 

001000 

CTRADD 

000162R 

002 

LF.MDC= 

000100 

C$SC<P= 

000000 

IF.MFL= 

004000 

C$$ORE= 

000400 

LF.MTP= 

000020 

C$SRSH= 

177564 

LF.PAC= 

000200 

DPRB 

OO1450R 

LF.RDy= 

040000 

DPRW 

001A5AR 

LF.REA= 

010000 

DVCHA 

00022AR 

LF.SER= 

000040 

DS$eUG= 

177514 

LF.Tir= 

000010 

D$$1SK- 

000000 

LF.UNL= 

020000 

D$SL11= 

:::.v 

LF.X2P^ 

000000 

D$SYNC= 

000000 

LIBR 

000532R 

D$iYNM= 

000000 

LINKS 

000564R 

EOF 

000504R 

LN.CL0= 

000000 

E$SXPR= 

000000 

LN.DUM= 

000005 

fILE 

001050R 

LN.LOA= 

000004 

FLAGS 

0001 54R 

002 

LN.LOO= 

000003 

FLT 

001450R 

LN.OAU= 

000003 

FLT16 

001460R 

LN.OFF= 

000001 

FL.KMX= 

v»««*.  GX 

LN.ON  = 

000000 

F$$LVL= 

000001 

LN.OOP= 

000004 

F.RSIZ= 

**•♦«♦  GX 

LN.OPE=-- 

000001 

F.L)RBD  = 

•*•***  GX 

LN.REF- 

000002 

G$$TPP= 

OOCOOO 

LN.SER= 

000002 

G$$'SS= 

000000 

LN.STA= 

000017 

G$$TTK= 

000000 

LN.SUB= 

000360 

G$IWRD= 

000000 

LN.TRI= 

000006 

INDEX 

0001 52R 

002 

LSTHD 

000572R 

.  ABS. 

1777^6 

000 

(RW,I,GBL,ABS,OVRJ 

001774 

001 

(RW,I,LCL,REL,CON) 

DATA 

000264 

002 

(RW,D,LCL,REL,CON) 

ETors 

detected: 

0 

♦  *♦  Asse-ibler  staristir 

= 

Work   f 

lie  reads 

0 

Wo'-k   f 

1 le  writes 

0 

Size  of 

work  file 

11239  Words 

(  44  Pages; 

Size  of 

core  pool 

14440  Words 

(  55  Pages) 

Operating  system 

RSX- 

IIM/PLUS 

LTAB 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KR8A 

L.LEN  = 

L.MPf 

L.NMST 

L.NSTA 

L . OWNR 

L.UNT 

MP  TAB 

MXP^B 

MX  TAB 

M$$CR3= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

NOD 

N$$ACC= 

N$$BUF= 

NSJLDV- 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

FECHA 


000600R 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

001156R 

001242R 

001044R 

000124 

000000 

000000 

000000 

000000 

000000 

00O614R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000370R 


PRI 

PRTOV 

P$$P45= 

P$$WRD= 

0$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SCOM 

SECSR 

SF.ACT= 

SF.ENA=: 

SF.LPB= 

SF.MFL= 

SF.PAC-- 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLNB 

SLNW 

STNB 

STNW 

SYSFDB= 

S$$WRG= 

S$$YS7= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OUNR 

TABLE 

TIME 

T$$KMG= 

T$$M1N= 

UBA 

UBIAS 

UN6 

UNW 


000606R 

000620R 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000626R 

000640R 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

OOOt  0 

0007  6R 

001002R 

OOIOIOR 

001014R 

******  yX 

OOOOOu 

007600 

000001 

000000 

000004 

000002 

000003 

OOOOOOR 

001444R 

000000 

000000 

000160R 

0001 56R 

001022R 

0Oi026R 


V$$CTR= 

WORD 

X$$DBT= 

X2CH01 

X2CH02 

X2CH03 

X2CH04 

X2CH05 

X3CH01 

X3CH02 

X3CH03 

X3CH04 

X3Crl05 

X3CH06 

X3CH07 

X3CH08 

X5CH09 

X3CH10 

X3CH11 

$ADDR  = 

$ADRX  = 

SADRZ  = 

$BFR  = 

$BIAS  = 

$B1N  = 

$FLAGS-~ 

$GETAD= 

SLINK  = 

$NTLHB= 

$PTR  = 

$PUTAD= 

$RSIZE= 

002  SSLTA  = 
$VEX5 
$$DCHA= 
$$PCHA= 

002  $SSCSR= 
.CXUNL= 
.EOF  = 
.MGMGE= 


002 


001000 

001034R 

000000 

001750R 

001754R 

001760R 

001764R 

001770R 

001674R 

001700R 

001704R 

001710R 

001714R 

001720R 

001724R 

001730R 

001734R 

0M740R 

001744R 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

***  ■  (* 

****** 

OOOOOORG 

****** 

****** 

****** 

****** 

****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 
GX 


sttvEX5.J2?[i32,i3iivEX5/CR/-SP=SY:[l,nRSXMCM.5ML/ML,[13.\110]NETLlB/ML,[130,10]RSXMCM/PA:1,[132,10]VEX5 
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VfGDTE    -    INITIAL    CONFIG   FILE 
TPARS    STATE    TABLES 

169 

170 

171 

172 

173  000052 

17^ 

175 

176 

177  000052 

178  000052 
179 

180  000052 

181  000052 
182 

183  000052 

184  000052 

185  000052 
186 

187  000052 

188  000052 
189 

190  000052 

191  000052 
192 

193  000052 
19A  000052 
195 

196  000052 

197  000052 
198 

199  000052 

200  000052 
201 

202  000052 

203  000052 
20A  000052 
205 

206  000052 

207  0O00';2 

208  000052 
209 

210  000052 

211  000052 

212  000052 
213 

21A  000052 
215  000052 
216 

217  000052 

218  000052 

219  CO0052 


B  12 

SC  MACRO  V05.03b  Saturday  29-Jan-85  02;28  Page  10 

.SBTTL   TPARS  STATE  TABLES 
;  TPARS  STATE  TABLES 

ISTATS  DTES\DTEKW 

;  DTESDF 

STATES     DTEDf 
TRANS        XDTESDF%,,,1,SYNERR 

STATES 
TRANS        SDIGIT,,[)TEAST 


STATES 
TRANS 
TRANS 

DTEAD 
$DIGIT,DTEAD,DTEDIG 
<',>,,DTEAEN 

STATES 
TRANS 

ILINID 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,HSHTBL 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,CNTTIM 

STATES 
TRANS 
TRANS 

:end,sexit,dteend 

START  OF  DTE  ADDRESS 


DTE  ADDRESS 

END   OF    DTE    ADDRESS 


LINE-ID 


HASH  TABLE  SIZE 


COUNTER  TIMER  VALUE 


STATES 

TRANS  "ON",DTENW,,DE.ON,DTEFLG 

TRANS  "0FF'',DTENW,,DE.0FF,DTEFLG 

STATES  DTENW 

TRANS  IEND,SEXIT,DTEEND 

TRANS  <',> 


;  STATE 


STATES 

TRANS  SSTRNG,,DTENET 

STATES  END 

TRANS  SECS.SEXIT 

TRANS  <';>,SEXIT 


;  NETWORK  NAME  PARAMETER 


r" 
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VffiDTE  CREATED   BV      MACRO     ON  29-JUN-85   AT    02:28 

SYMBOL    C^OSS  REFERENCE 
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SYMBOL   VALUE 


BIASX 

CERR 

CFGBF 

CFGSZ 

CFLIN 

CHKDTE 

CNTTIM 

COUNT 

CVTBUF 

DEVCTL 

DEVNAM 

DEVUNT 

DTEADD 

DTEAEN 

DTEALN 

DTEAST 

DTEDES 

DTEDF 

DTEDIG 

DTEEND 

DTEFLG 

DTEKW 

DTEND 

DTENET 

DTEPCK 

DTEST 

DTNMMX 

DTNTNM 

FMT8B 

FM.8B 

F.RSIZ 

HSHMN 

HSHMX 

HSHSZ 

HSHTBL 

H$LDTE 

HSNETW 

I$$A5 

LF.ACT 

LI^.BRO 

LF.BWT 

LF.FNA 

LF.LPB 

LF.MDC 

LF.MFL 

LF.MTP 

LF.PAC 

LF.RDY 

LF.REA 

LF.SER 

LF.riM 

LF.UNl 


000576  ft 


=  ****** 
000426 
000532 
000035 
000036 


R 
R 
R 
R 
0006A4  R 


GX 
GX 
GX 
GX 


000616 
000662 
000000 
OOOKO 
000017 
000052 


000000  R 


GX 


000114 
000A10  R 
*»*«**   GX 
000000  RG 

000016  R 
000350  R 

000017  R 
000000  RG 
000006 
000027 


=  000000 

-  ****** 

=  000040 
=  001000 

-  ****** 

000262 
000002 
00002A 

r  ****** 

=  100000 

-  000400 
=  000007 

^  002000 
=  001000 
=  000100 
=  004000 
=  000020 
=  000200 
=  040000 
=  010000 

-  000040 

=  000010 
=  020000 


GX 

GX 


GX 


REFERENCES 

#17-417 

8-128 

9-156 

9-155 

8-128 

15-355 
#13-321 
#7-118 
#7-119 
#18-438 
#18-429 
#18-445 
#:'-113 
#12-274 
#7-112 
#12-248 
•16-386 

9-1':2 
#12-262 

14-542 
»12-248 

9-154 
#7-114 
#14-334 
#7-115 
#10-173 
#7-116 
#7-117 

3-128 
#8-128 
•12-288 
#6-85 
#6-86 
•13-311 
#15-301 

16-579 

12-287 

20-508 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 


8-129 


8-129 
#16-577 

•12-254 
•  19-470 


12-250 
7-113 


#15-555 

#10-175 
12-262 

12-277 

7-117 
12-280 
8-129 
#8-129 
•16-580 
15-504 
13-308 


-130 


-150 


PAGE   1 

CREf 

04 

00 

8-151 

8- 

■152 

8-1  5  1 

8- 

-152 

09-478 
19-474 


12-255 
12-249 


20-498 


12-276 
12-275 


16-590 


16-395 

12-281 

12-290 

8-150 

#8-130 

•16-589 


12-288 
14-558 
8-131 
#8-131 


12-291 

8-152 
#8-152 


14-555 
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VFGPVC  -  INITIAL  CONflG  FILE  SC  M/ 

TPARS  STATE  TABLES 

208 

209 

210 

211 

212  0000-36 

213 

214 

215 

216 

217  0C0056 

218  000056 

219 

220  000056 

221  000056 

222 

223  000056 

224  0000'^6 

225 

226  000056 

227  000056 

228 

229  000056 

230  000056 

231 

232  000056 

233  000056 

234 

235  000056 

236  000056 

237 

238  000056 

239  000056 

240  000056 

241 

242  000056 

243  000056 

244  000056 

245 

246  000056 

247  0OOC56 

248  000056 

249 

250  000056 

251  000056 

252  000056 

253 

254  000056 

255  000056 

256  000056 

257 

258  000056 

259  000056 

260  000056 

261 

262  000056 

263  000056 

264  000056 

?  1^ 
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.SBTTL   TPARS  STATE  TABLES 
TPARS  STATE  TABLES 

ISTATS     PVCST,PCVtCW 


PVCSDF  STATE  TABLES 

STATES  PVCDF 
TRANS   XP"rSUF% 


STATES 
TRANS 

SRAD50,,PVNAM 

CHANNEL 

IDENT 

STATES 
TRANS 

:CHKDLM,CHNLNO 

STATES 
TRANS 

CHNLNO 
SNUM8R,,PVLCN,1,S1  'ERR 

LOGICAL 

CHANN 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,PVCT 

•  COUNTER 

TIMER 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 
TRANS 

"OFF",PSi 
"ON",PSZ 

;  STATE 

STATED 
TT.ANS 
TRANS 

PSZ 
IEND,SEXIT,PVENt) 
<'  ,> 

STATES 

TRANS  SNUMBR,WNDS7,PVPSZ 

TRANS  SLAMDA 

STATES  WNDSZ 
TRANS   IE"D,SEXIT,PVEND 

TRANS  <',> 


STATES 
TRANS 
TRANS 


SNUMBR, OWNER, PVUSZ 
SLAMDA 


STATES  OWNER 

TRANS  :end,$exit,pvend 

TRANS  <',> 

STATES 

TRANS  SRAD50,PF1AGS,PV0WN 

TRANS  SLAMDA 


PACKET    SIZE 


;    WINDOW   SIZE 


;    PROCESS   OWNER 


c  u 
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Symbol    table 


ALLXCB 

000A54R 

ESNSEG 

000010 

I$$RDN= 

000000 

L$CLEN=: 

000044 

At$CHIt;  = 

000000 

ESNTIM 

000046 

K$$CNT= 

177546 

LSCTEN 

000032 

A$SCPS= 

000000 

ESNUSE 

000004 

K$$CSR= 

177546 

LSCTIM 

000040 

AS$PRI= 

000000 

ESSTRT 

000006 

K$$LDC= 

oooogo 

L$DTEA 

000020 

A$$TRP= 

000000 

E$$XPR= 

000000 

K$$TPS= 

000074 

L$DTEL 

000017 

BIASX 

00U66R 

FLAG 

000032R 

002  LD$LP  = 

000000 

LSGLEN 

000134 

CERR  = 

•»»♦»*  GX 

FMT8  = 

»»««»»  GX 

LF.ACT= 

100000 

L$LEN 

000122 

CFGBF  = 

*•*•»•  GX 

FMT8B  = 

•*»*»•  GX 

LF.BR0= 

000400 

LSLLCH 

000016 

CFGSZ  = 

*••♦•*  GX 

FM.8  = 

000000 

LF.BUT= 

000007 

L$LNK 

000000 

CFLIN  = 

»««»«»  GX 

FM.8B  = 

000000 

LF.ENA= 

002000 

LSMCHN 

000036 

CF$BLK= 

000102 

FNDHSH 

001304R 

LF.LPB= 

001000 

LSNETW 

000114 

CHKBL<= 

*••«•*  GX 

FNDPDV= 

**♦♦«»  GX 

LF.MDC= 

000100 

LSNIRE 

000072 

CHKDLM 

000164R 

003 

FNDPRT 

000664R 

LF.MFL= 

004000 

LSNLRE 

000104 

CH<WND= 

»♦♦♦**  GX 

F$$LVL= 

000001 

LF.MTP= 

000020 

LSNMAC 

000076 

CHNLMX= 

«••**»  GX 

F.RSIZ= 

*■•-»•  GX 

LF.PAC= 

000200 

LSNMAS 

000074 

CHNLNO 

OOOOKR 

003 

G$ITPP= 

000000 

LF.RDY^ 

040000 

LSNMST 

000003 

CSDTE 

000012 

G$$TSS= 

000000 

LF.REA= 

010000 

LSNNRE 

000106 

CSFLG 

000015 

G$$T',= 

000000 

LF.SER= 

000040 

LSNRBY 

000046 

CSGNAM 

000016 

G$$WRD= 

000000 

LF.T]«= 

000010 

LSNRCA 

000066 

CtLCN 

000010 

HF$DLM= 

000002 

LF.UNL= 

020000 

LSNRFS 

000100 

CJLEN 

000016 

HF$GWY= 

000010 

LF.X2P= 

000000 

LSNRPK 

000056 

CSLNK 

000000 

HF$HDS= 

000004 

LN$0fF= 

000001 

L$NRRE 

000105 

C$NAM 

000002 

HF$XDF= 

000020 

LN$0N  = 

000000 

LSNRST 

000107 

CSNML 

000002 

HSHADD= 

««»*»*  GX 

LN$SHU= 

000002 

LSNTBY 

000052 

CSPORT 

OOOOU 

HSHSZ  = 

»**»»«  GX 

LN.CL0= 

000000 

LSNTCA 

000070 

C$$C<P= 

000000 

HTIMR 

OOOOOOR 

002  LN.DUM= 

000005 

LSNTFS 

000102 

C$$ORE= 

OOOAOO 

H$CUG 

000010 

LN.L0A= 

000004 

LSNTPK 

000062 

CS$RSH= 

177564 

H$DST 

000012 

LN.LD0= 

000003 

LSOMST 

000002 

DLMCTL 

000057R 

002 

H$D29 

000014 

LN.OAU= 

000003 

LSPCS 

000112 

DLMIND 

000061 R 

002 

HSFLG 

000000 

LN.OFF= 

000001 

L$PLS 

000110 

OLMPDV 

000022R 

002 

HSGLEN 

000104 

LN.ON  = 

000000 

LSQCNT 

000122 

DLMSLN 

000030R 

002 

H$GLT 

000044 

Lr.00P= 

000004 

LSCiUEH 

000124 

DLMSLT 

00002AR 

002 

HSGNAM 

000050 

LN.0PE= 

000001 

LSQUET 

000130 

DLMSTA 

000026R 

002 

HSGNML^ 

000020 

LN.REF= 

000002 

LSRTRY 

000007 

DLMTLC 

001662R 

H$GPT 

000046 

LN.SER= 

000002 

L$SLN 

000004 

OLMUNT 

000060R 

002 

HSHITS 

000034 

LN.STA= 

000017 

L$ST 

000005 

DTEDES= 

**«**»  GX 

HSHLEN 

000044 

LN.sue^ 

000360 

LSTCLZ 

000044 

DS$BUG= 

1775U 

H$LBDA 

000070 

LN.TRi= 

000006 

L$TIM 

000006 

D$$ISK= 

000000 

HSLBDN 

000072 

LP$EIP= 

002000 

l$$a':g= 

000000 

D$$L11= 

000001 

HiLDTE 

000002 

LP$ENB= 

004000 

L$$DRV= 

000000 

D$$VNC= 

00000& 

HSLEN 

000042 

LP$PCT= 

001400 

L$$P11= 

000001 

D$SYNM= 

000000 

HILOTS 

000032 

LP$TMR= 

100000 

L$$11R= 

000000 

END 

00015AR 

003 

H$NETW 

000024 

LP$UP  = 

010000 

L.COST 

000015 

ESNBR 

OOOOU 

H$NML  = 

000006 

LP$UTD= 

020000 

L.CTL 

000012 

ESNBS 

000020 

H$NPT 

000022 

LP$WTS= 

040000 

L.CVA 

177776 

ESNCR 

000034 

H$PTB 

000020 

LS$CDN= 

000004 

L.DDM 

000002 

ESNCS 

000036 

H$P"C 

000006 

LS$OFF= 

000000 

L.DDS 

000004 

ESNIC 

0000A4 

H$R[<TE 

000004 

LS$STR= 

000002 

L.DLC 

000003 

ESNLEN 

000050 

H$RNW 

000042 

LS$UP  = 

000003 

L.DLM 

000006 

ESNLLA 

000012 

HSSVC 

000036 

L5$WT  = 

000001 

L.DLS 

000010 

ESNLNK 

000000 

H$TRB 

000016 

LTIMR 

000002R 

002  L.FLG 

000000 

E$NML 

000040 

HSXAVL 

000100 

L$ACHN 

000012 

L.KRBA 

000016 

E$NMR 

000024 

HlXBIA 

000074 

L$APVC 

000014 

L.LEN  = 

000022 

E$NMS 

000030 

H$X29C 

000040 

LSASVC 

0000 10 

L.MPF 

000022 

ESNNOD 

000002 

INIXCB 

001062R 

LSAUC 

000042 

L.NMST 

000020 

ESNRT 

000042 

INVCIR 

001546R 

LSCHLS 

000034 

L.NSTA 

000014 

FSnr:p 

000005 

I$$RAR= 

000000 

LtCHTB 

000030 

L.OWNIR 

000021 

L.UNT 

000013 

MAXID  = 

000020 

M$$CRB= 

000124 

M$$CRX= 

000000 

M$$FCS= 

000000 

M$$MGE= 

000000 

M$$NET= 

000000 

M$$OVR= 

000000 

NSADJl 

000072 

N$ADJ2 

000074 

NSCACH 

000062 

N$CRC 

000120 

N$HC1 

000052 

N$HC2 

000056 

N$LV1 

000002 

N$LV2 

000010 

NSMHCI 

000036 

N$MHC2 

000044 

N$PLD 

000016 

N$PRI 

000076 

N$R0A1 

000022 

N$R0A2 

000030 

NSRTMX 

000014 

NSRTMI 

000014 

N$RTM2 

000015 

N$RT1 

000000 

N$RT2 

000006 

NSTCTL 

000112 

N$TLC 

000100 

N$TNC 

000114 

N$TRC 

000106 

NSTTCB 

000110 

N$VER 

000066 

NSXLEN 

0001 P4 

N$$ACC= 

0000C1 

N$$BUF= 

OOOOC 

N$$LDV= 

OOOOO'i 

N$$MCP= 

00000'' 

N$$«LL= 

000001 

N$$MOV= 

000010 

N$$NCT= 

000001 

N$$PEM= 

000001 

OWNER 

00011  OR    003 

PCVKW 

OOOOOORC    004 

PFLAGS 

000132R    005 

PF$BLK= 

020000 

PF$CLC= 

010000 

PF$DLM= 

100000 

PF$EIP= 

000002 

PF$ENB= 

000001 

PF$FAI= 

004000 

PF$FM1= 

000100 

PF$FM2= 

000200 

PF$0FF= 

000000 

PF$RM1= 

000020 

PF$RM2= 

000040 

PF$RVR= 

000010 

C  15 


VFGSVt    -   CONFIG  FRF 
MACRO  DEFINITIONS 

54 
55 
56 
57 
58 
59 
60 
61 

62  000000 

63  000000 

64  000000 

65  000000 

66  000000 

67  OOOOOC 
68 

69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 

;o3 

105 
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SCAN  ACTIO  MACRO  V05.03b  Saturday  29-jun-85  0^:50  Page  5 

.SRTTL  MACRO  DEFINITIONS 


ISTAT$,TRAN$,STArE$,EMSG$R,NTLER$,XPDD8$,CTRDF$,PLBDF$ 
PH8DF$,SVCDF$,ASL$,SLTDFI  GETAD  PUTAP,CEACC$,GETRV 


LIBRARY  MACROS 

.MCALL 
.MCALL 

CTRDFS 
XPDDSS 
PHBi)F$ 
SLTDFS 
SVCDF$ 
PL8DF$ 


LOCAL  MACRO  DEFINTIDNS 


REJECT  TPARS  TRANSITION 

.MACRO  rtEJS 

ADD  #2,(SP) 

CLR  SYNERR 

.ENDM  REJ$ 

SAVE  CURRENT  MAPPING 

.MACRO   SAVMAP 

MOV     $R8LCK,-(SP) 

.ENDM 

RESTORE  PREVIOUS  MAPPING 

.MACRO  RESMAP 

MOV     (SP)+,$RBLCK 

.ENDM 

SET  UP  MAPPING 

.MACRO  MAP     BIAS 
MOV     BIAS,$RBLCK 
.ENDM 

SET  UP  APRS  BIAS 

.MACRO  BIAS    REG 

BIC  *160000,REG 

BIS  #120000, REG 
.ENDM 


DEFINE  TRANSPORT  LINE  COUNTER  OFFSETS 
DEFINE  XPT  DDB  OFFSETS 
DEFINE  PSI  HOME  BLOCK  OFFSETS 
DEFINE  SLT  OFFSETS 
DEFINE  SVC  OFFSETS 
PLB  OFFSETS 


RETURN  TO  CALLER+2 
INDICATE  NO  SYNTAX  ERROR 


CLEAR  CURRENT  MAPPING  BITS 
SET  UP  APR5  MAPPING 


C  16 


C     1 

VENA  -  vNP  ENABLE/DISABLE   LINES  MACRO  V05.03b  Wednesday   l1-Sep-85   12:06     Page   59-1 
5ETML   -  CREATE    MLTER   BLOCK 


55A8  01532^. 
3349 
33S0 
3351 

3352  015326     005726 

3353  01533C 


RETURN 
ERROR  MESSAGES 


101$: 


TST  (SP)+ 

ERPPTS     ERR38,$ER0UT 


CLEAN  UP   STACK 

UNABLE    TO   ALLOCATE    FILTER   BLOCK 


D     1 

cvi  -     MD   FNjAR;  F/ni^4Ri  F   IINFS  MACRO  vGS.03b  Wednesday   11-SeD-85   12:06     Page  60 


C     2 

7ENA  -  VK?   ENABLE/DISABLE   LINES  MACRO  V05.03b  Wednesday   ll-Sep-85   12:06 
SAVCOM  -   SAVE    COMPLEMENT    OF    FILTER   MASKS 


Page  68 


5809 
3810 
3811 
3812 
3813 
38K 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3G24 

3825  017410 

3826  017412 

3827  017414 

3828  017416 

3829  017420 

3830  017422 

3831  017424 

3832  017426 

3833  017430 


012315 
005125 
012315 
005125 
012315 
005125 
012315 
005125 


.SBTTL   SAVCOM  -  SAVE  COMPLEMENT  OF  FILTER  MASKS 

h 

SAVCOM  -  SAVE  COMPLEMENT  OF  FILLER  MASKS 

INPUTS: 

R3  -  ADDRESS  OF  EVENT  MASKS 
R5  -  ADDRESS  OF  SCRATCH  AREA 

OUTPUTS: 

FILTER  MASKS  COMPLEMENTS  ARE  SAVED 
R3,R5  DESTROYED 


SAVE  FILTER  MASKS 
COMPLEMENT  THEM 


SAVCOM:  MOV 

(R3)t,(R5) 

COM 

(R5)  + 

MOV 

CR3)+,(R5) 

COM 

(R5)  + 

MOV 

(R3)+,(R5) 

COM 

(R5)t 

MOV 

(f:3)  +  ,(R5) 

COM 

(RMt 

RETURN 


D     2 

,/CMA   -   wMD    CM4DI  c /ni<;ADi  c    I  IMFQ   MifRn   vflS    O^h   UoHnpQHav    11-Spn-8S    12:0'      Psnp   69 


C     3 

VENA  -  vrjP   ENABLE/DISABLF   LINES  MACRO  V05.03b  Wednesday   n-Sep-85   12:C6     Page  80 
$VHTM  -   SET/CLEAR   HELLO   TIMER 

A212  .SBTTL      $VHTM  -   SET/CLEAR  HELLU   TIMER 

A215 

421A 

4215 

4216 

4217 

4218 

4210 

4220 

4221 

4222 

4223 

4224  , 

4225  020770  SVHTM::  CALL 

4226  020774  103406  BCS 

4227  020776  016767  000032G  000030G        MOV 

4228  021004  PUTAD 

4229  021010  RETURN) 

4230  021012  101$:        ERRPTS      ERR43,$EROUT 


SVHTM  -   SET   HELLO   TIMER 

INPUTS: 

L0.HTM+RQ8  -  SPECIFIED  HELLO  TIMER 

OUTPUTS: 

HELLO  TIMER  STORED  IN  COUNTER  BLOCK 


FNDCTR 

101$ 

L0.HIMtRQB,T$T5+$BFR 


;  FIND  COUNTER  BLOCK 

;  BR  IF  CAN'T  FIND  IT 

;  STORE  LISTEN  TIMER 

;  REWRITE  COUNTER  BLOCK 

;  PARAMETER  NOT  APPLICABLE 


D     3 

\/ktD    CMADi  c  /n  T  CADI  c     I    t  K:;:  z    MAfOn    \/fm    fT^h    UoHnocH;i\/     11-^pn-RS     1  ?  ■  DA       P;^np    81 


VENA       CREATED  BY  I^ACRO  ON  11-SEP-35  AT  12: 
SYMBOL  CROSS  REFERE^;CE 


SYMBOL   VALUE 


REFERENCES 


ACPNAf" 

ACSDNT 

AC$X25 

AE$C1R 

AESLIN 

mESMOD 

ALPLB 

A.ACC 

A.LN< 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

BF.TRC 

CHAN 

CHFIL 

CHKEVT 

CHKEXE 

"■NKXPT 

CHNAM 

CHSTA 

CHTBLE 

CKCON 

CKEVE 

CKFIL 

CKMDEV 

CKMON 

CKNAME 

CKNODE 

CKSINK 

CLASS 

CLtCQB 

CLRBP 

CLREVT 

CLSASZ 

CLSDLL 

CLSECL 
CLSLDN 
CLSMAN 
CLSPA7 
CLSPLH 
CL$PLL 
CL$PRT 
CL$ROU 
CLSSES 
CLSSGE 
CL$S5E 
CLSTRN 


R 


000000 

JOOC02 

OO00C1 

C00003 

000C01 

O0O0D4 

020022 

000020 

000000 

000002 

000010 

000012 

000010 

0000U4 

00007'^ 

014240 

017352 

003730 

021516 

014666 

014142 

000262 

012772 

012144 

013072  R 

013634  R 

012676 

012536 

014070 

013746 


000074  R 


000050 
005724 
017334 
010500 
000500 

000300 
010400 
000000 
03'.100 
034000 
000600 
03420C 
010000 
000200 
035000 
035100 
000400 


:l$xl2  =  013700 


#6-118 

39-1952 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

39-2022 

#74-4002 

#5-76 

42-2322 

#5-76 

#5-76 

#5-76 

#5-76 

#5-76 

#5-82 

#6-136 

*11-431 

7-195 

#56-3124 

62-3530 

62-3592 

25-1176 

#26-U63 

11-412 

35-1799 

7-196 

#58-3244 

7-194 

#55-3089 

#7-194 

44-2520 

47-2703 

#49-2766 

7-181 

#45-2557 

47-2706 

#50-2798 

49-2771 

50-2817 

47-2698 

#48-2728 

7-182 

#47-2682 

7-184 

#54-3060 

7-133 

#53-3019 

#6-138 

*56-3146 

#6-133 

82-4314 

27-1394 

27-1430 

57-3214 

62-3493 

#5-79 

10-349 

#5-79 

5-79 

5-79 

5-79 

#5-79 

5-79 

#5-79 

5-79 

#5-79 

5-79 

#5-79 

5-79 

#5-79 

5-79 

#5-79 

10-340 

#5-79 

10-364 

#5-79 

5-79 

#5-79 

5-79 

#5-79 

5-79 

#5-79 

5-79 

#5-79 

5-"9 

5-79 

5-79 

5-79 

10-334 

#5-79 

42-2377 


11-433 

62-3595 

36-1828 


#52-2974 


61-3441 

82-4347 

#33-1737 

62-3499 

5-79 

10-337 

10-331 

10-346 

5-79 

5-79 

5-79 


5-79 
5-79 
5-79 
5-79 
5-79 
5-79 


c 

PAGE   1 

4 

CREF       04. 

00 

62-3628 

65-3754 

#t,6-3776 

37-1868 

39-1943 

74-4003 

75-4101 

#83-4373 

63-3686 

62-3527 

62-3i57 

62-3569 

62-3603 

62-3625 

#65-3750 

5-79 

5-79 

5-79 

5-79 

5-79 

5-79 

5-79 

10-361 

5-79 

10-325 
5-79 

10-358 

10-343 

10-328 

10-367 

5-70 

5-79 

5-79 

5-79 
5-79 
5-79 

lO-sVO 

5-79 

5-79 

5-79 
5-79 

5-79 
5-79 

5-79 
5-79 

ii-cca-fl';    AT    ^  0  ■  f\R 


D     4 


VENA 


CREATED  BY  MACRO  ON  11-SEP-85  AT  12:08 


SVMBOL  CROSS  REFERENCE 
SYMBOL   VALUE 


R.STBL 

SAVCOM 

SAVFR 

5C$'  ■ 

SC« 

SCi 

SCSihU 

SER 

SERBIT 

SERFLG 

SET?IT 

SEltVT 

SETFIL 

SETQLF 

SF.ACT 

SF.ENA 

SF.LPB 

SF.SER 

SINKND 

SNAPX 

SNKTYP 

SNODTB 

STQUAL 

STREVT 

SVSDJM 

SVSLOA 

SYSFDB 


S.COST 

S.CTL 

S.DlCF 

S.ERR 

S.FLG 

S.LBE 

S.LEN 

S.LGTH 

S.LIN 

S.LINK 

S.LSA 

S . NMS  T 

S.OWNR 

^  PL  A 


000210 
017410  R 
017376  R 
000001 
000000 
000003 
000002 
000001 
001076  R 
000126  R 
00577A  R 
017322  R 
015110 
017466 


-  ****** 


000130  R 
000124  R 
300230  R 
003660  R 
017650  R 
017432  R 
000001 
OOOOCO 


GX 
GX 
GX 
GX 


GX 


000006 
000102 
000010 


000044 

OOOCiO 
000004 
177776 
000005 


000010 


GX 


GX 


GX 


GX 
GX 


C     5 

PAGE   14 

CREF       04.00 


REFERENCES 


#5-82 

57-3204 

62-3566 

62-3607 

62-3613 

#68-3825 

62-3554 

62-3561 

#67-3803 

#5-79 

#5-79 

#5-79 

#5-79 

#6-135 

11-393 

11-448 

11-470 

11-505 

#12-539 

;>6-148 

•11-393 

11-448 

11-470 

27-1436 

27-1442 

#34-1765 

62-3512 

62-3574 

#64-3726 

57-3216 

#59-3307 

59-3327 

59-3335 

#71-3890 

23-1071 

24-1111 

24-1116 

11-487 

11-500 

23-1081 

24-1136 

24-1140 

16-733 

33-1748 

34-1776 

12-545 

12-553 

12-558 

#6-149 

♦53-3036 

61-3447 

63-3701 

71-3907 

#6-145 

♦11-405 

♦11-409 

11-426 

#6-166 

56-3128 

25-1172 

#25-1225 

56-3125 

#73-3959 

59-3328 

59-3331 

#69-3850 

#5-79 

#5-79 

•11-442 

•20-919 

•20-927 

•21-977 

♦21-984 

•26-1307 

•26-1324 

•26-1341 

•26-1358 

•27-1398 

*27-1408 

♦28-1570 

•28-1572 

•28-1573 

•28-1574 

•30-1649 

•32-1713 

•36-1830 

•36-1832 

♦37-1870 

•39-2015 

♦39-2020 

♦39-2040 

•39-2044 

♦39-2046 

♦41-2273 

♦42-2338 

♦42-2339 

•42-2340 

♦42-2344 

♦42-2391 

•42-2419 

♦42-2423 

•42-2426 

♦42-2427 

♦49-2774 

♦50-2831 

♦53-3019 

♦53-3020 

♦53-3022 

•62-3515 

•62-3520 

♦6^-3544 

♦62-3575 

•62-3616 

•63-3708 

♦74-4009 

•74-4025 

•74-4028 

•74-4065 

♦76-4142 

♦77-4164 

•78-4179 

•81-4271 

•81-4275 

•17-797 

#5-82 

20-927 

#5-82 

11-487 

11-500 

•12-545 

•12-553 

12-558 

24-1116 

•24-1136 

24-1140 

♦33-1748 

•34-1776 

#5-82 

21-984 

12-563 

24-1120 

24-114/. 

#5-82 

#5-82 

#5-82 

5-82 

#5-82 

21-985 

♦23-1072 

♦24-1112 

•16-737 

81-4263 

•14-640 

•22-1031 
♦27-1399 
♦28-1582 
♦  37-18('2 
♦40-2133 
♦42-2345 
♦42-2428 
♦59-3341 
♦62-3620 
•75-4094 
•82-4321 


16-733 


•22-1037 
♦27-1400 
♦28-1583 
♦  38-1912 
♦40-2136 
♦42-2346 
♦45-2583 
♦60-3379 
♦62-3643 
•75-4103 
♦82-4328 


•23-1071 


♦26-1267 
♦27-1406 
♦28-1584 
♦39-1990 
♦40-2157 
♦42-2389 
♦45-2584 
♦61-3433 
•63-3672 
♦75-4123 
♦82-4347 


♦26-1290 
•27-1407 
•29-1620 
•39-1993 
•40-2161 
♦42-2390 
•45-2593 
•62-3503 
•63-3677 
•76-4139 
•84-4415 


•23-1081   ^24-1111 


n  A  /-  c  1  Q 
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56 
57 
58 
5^ 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 


000000 
OOOOGO 


73  000006 
7^  000010 

75  00001 A 

76  000016 
n   C0002A 

78  000026 

79  000032 
80 
81 
82 


00003-'. 
OOOOAO 
0000A2 
000046 


8A 
85 

86  000050 

87 

88  00005A 

90 
91 


$VEXP  -  FRONT  END  FOR  BINARY  TO  REAL  PROCESSING 

THIS  ROUTINE  CALLS  $VEX2  IF  NO  ERRORS  HAVE  OCCURRED  DURING  TEMPLATE 
PROCESSING  AND  $VEX3  OTHERWISE. 

INPUTS.- 

$ADDR=ADDRESS  OF  WHERE  REAL  DATA  GOES 

$NALL=NUM8ER  OF  ALLOCATIONS  AND  LIBRARIES  THIS  TEMPLATE 

$FLAG3  INDICATES  WHETHER  PROCESS  IS  DLC  ONLY  OR  NOT  (MAPPED  ONLY) 

F1.ERR  SET  IF  ANY  ERRORS  OCCURRED 

OUTPUTS: 

ALL  REGISTERS=DESTROYED 


022767 
0OU22 
005767 
100^07 
032767 
001011 

OOO'-IO 

005767 
00U05 

000402 


000001 


177777  UUOOOOG 
OOOOOOG 
OOOOOOG  OOOOOOG 

OOOOOOG 


$VEX°: 


CMP 

#-1,$ADDR 

BEQ 

30$ 

TST 

$PLAG1 

BMI 

20$ 

BIT 

*FL.CHA,$FLA6S 

ENE 

25$ 

10$: 

CALL 

$VEX2 

BR 

30$ 

20$: 

TST 

$NALL 

BEQ 

30$ 

CALL 

$VEX3 

BR 

30$ 

'5$: 

CALL 

$VEX5 

30$: 

RETURN 

.END 


IS  IT  EMPTY  LLC  DATA  BASE? 

BR  IF  YES 

DID  AN  ERROR  OCCUR? 

BR  IF  YES 

MUX  CHARACTERISTICS  UPDATE  ONLY 

YES  .. 
EXPAND  THE  LINE  TABLE 
AND  LEAVE 

ANYTHING  TO  CLEAN  UP? 

BR  IF  NO  - 

DO  THE  CLEANUP 


UPDATE  THE  LINE  CHARACTERISTICS 
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364  000560 

156001 

OOOOOOG 

36S  U0056A 

01012-. 

366  000566 

367 

368 

569 

370 

371 

372  000570 

373  000570 

37A 

375  000610 

016724 

000014G 

376  00061A 

377 

378 

379 

380 

581 

582  000616 

112524 

585  0C0620 

58A 

585 

586 

587 

588 

589  000622 

105767 

000450' 

590  000626 

100404 

591  000650 

022767 

000001 

592  000656 

001005 

595  0006A0 

016700 

000446' 

59A  0006AA 

116024 

OOOOOOG 

595  000650 

5°6  000652 

112724 

177777 

597  000656 

598 

599 

400 

40' 

402  000660 

105767 

000450' 

405  000664 

100404 

404  000666 

C2276( 

OOuOOl 

405  000674 

001007 

406  000676 

016700 

000446' 

40'  000702 

CC5001 

408  000704 

156001 

OOOOOOG 

409  00071C 

010124 

410  0007-,2 

411  000714 

012724 

U7777 

412  000720 

415 

,14 

415 

4^6 

417  000722 

005767 

000450' 

418  000726 

001405 

419  000730 

116724 

000446' 

420  000754 

BIS8         $SLN(R0>,R1 
MOV  R1,(R4)* 

RETURN 


LOCAL   NODE   ADDRESS 
NOD: 


STORE  IT 


GETRV   $DECPT,*0$END   ;  READ  DECNET  HOME  BLOCK 

MOi'     $BFRtD$LNUM,(R4)+  ;  COPV  LOCAL  NODE  ADDRESS 
RETURN 


PROTOCOL  OVERHEAD  SIZE 


PRTOV:   M0V8    (R5)i,(R4)+ 
RETURN 


STATION  NUMBER  (BYTE) 


^NB: 


OOOOOOG 


10$: 


1011 


TSTB 

FLAGS 

BMI 

10$ 

CMP 

*1,$$MTP 

PNE 

101$ 

MOV 

INDEX, RO 

MOVB 

$$SNUM(R0),(R4)+ 

RETURN 

MOVB 

#-1,(R4)+ 

RETURN 


STATION  NUMBER  (WORD) 


STNW: 


OOOOOOG 


10$: 


101$: 


TSTB 

BMI 

CMP 

BNE 

MOV 

CLR 

BISB 

MOV 

RETURN 

MOV 

RETURN 


FLAGS 

10$ 

#1,$$MTP 

101$ 

INDEX, RO 

R1 

$$SNUM(R0),R1 

R1,(R4)+ 

#-1,(R4)t 


UNIT  NUIIBEfi  ■BYTt: 


UNB: 


TST 
BEO 
MOVB 
RETURN 


FlAGS 
101$ 
INDEX, (R4). 


;  COPY  PROTOCOL  OVERHEAD  SIZE 


IS  IT  MTP  EXPANSION? 
IF  MI,  YES 

ARE  WE  DEALING  WITH  ONLY  1  STATION  ? 
IF  NE,  NO 

GET  CURRENT  STATION  INDEX 
;  STORE  STATION  NUMBER 

DLC  STNB  NOT  IN  MPTAB  FILE 


IS  IT  MTP  EXPANSION? 

IF  MI,  YES 

ARE  WE  DEALING  WITH  ONLY  1  STATION  ? 

IF  NE,  NO 

GET  CURRENT  STATION  INDEX 

GET  STATION  NUMBER 

STORE  if 

DLC  STNW  NOT  IN  MPTAB  FILE 


13  IT  EITHER  MUX  OR  MTP  EXPANSION? 

IF  EQ,  NO 

STORE  CURRENT  MUX  INDEX 
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ADDRB 
ADDRU 
APR 

a$$chk;= 

A$$CPS= 

A$$PR1= 

A$$TRP= 

BL<3 

BL<W 

BYTE 

CORE 

CSR 

CTIM 

C$$C<P= 

C$$ORE= 

CS$RSH= 

DPRB 

DPRW 

OVCHA 

DtAMXC 

DSAMXH 

DSANN 

DSBRPR 

OSBRTM 

DSDELF 

DtDELW 

DSENO  = 

OiFNB 

DSHIOR 

DSHOST 

DSINAC 

DSINCT 

DSIPL 

D$l  ID 

DSLNAM 

OSLNUM 

C$LST 

DSMAXC 

DSMAXm 

OSMAXV 

DSMLL 

OSMNOD 

D$NA 

DSNBEA 

OSNBRA 

DSNEND^ 

D$NLN 

DSNN 

OSOUTT 

DSRETF 

DSRNN 

DSRTMR 

D$SEG 

D$SER 

nSSQRL 

D$SBi;0  = 

D$$IS<= 


0C0062R 

000102R 

002212R 

000000 

000000 

000000 

000000 

0001 30R 

000142R 

0001 54R 

000774R 

0001 60R 

000172R 

000000 

OOOAOO 

17756'. 

002224R 

002232R 

000200R 

000072 

00007', 

000000 

00U102 

000100 

0000A5 

0000A6 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 

000006 

000014 

000047 

000064 

000066 

000070 

000040 

000041 

000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

1/7514 

000000 


D$$L11= 

D$$YNC= 

0$$VNM= 

EOF 

E$$XPR= 

FILE 

FLAGA 

FLAGS 

FL.DDM= 

fL.KMX= 

FL.MUX= 

FS$LVL= 

F.NR80= 

F.PRLT= 

F.RSIZ= 

F.URBD= 

F.WRIT= 

G$$TPP= 

G$STSS= 

G$$TTK= 

G$$WRD= 

ICBL 

KBLK 

iCBPT 

INDEX 

INT 

I$$RAR= 

i$$RDN= 

JSROF  = 

KR8B 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TP5= 

LS.ADR= 

LD$LP  = 

LFILE 

LF.ACT= 

LF.BRO= 

LF.8UT= 

LF.ENA= 

LF.lPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAC= 

LF.RDY= 

LF.REA= 

LF.SER= 

LF.TIM= 

LF.UNL= 

LF.;:2P= 

LI8R 

LINKS 

LN.CLO= 

LN.DUM= 

LN.LOA= 


GX 
GX 
GX 


000001 

000000 

000000 

000356R 

000000 

001212R 

000004R 

000450R 

^♦**** 

****** 

****** 

000001 

******  QX 

000001 

******  GX 

******  GX 

000002 

000000 

000000 

000000 

000000 

000212R 

000006R 

000002R 

000446R 

001122R 

000000 

000000 

0000-'2 

000214R 

177546 

177546 

000000 

000074 

******  GX 

000000 

001304R 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

001434R 

000360R 

000000 

000005 

000004 


LN.LOO= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.OOP^ 
LN.OPE= 
C:2  LN.REF= 
002  LN.SER= 
LN.STA= 
LN.SU8= 
LN.TRI= 
LSTHD 
LTA8 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.COST 
L.CTL 
L.CVA 
L.DDM 
002  L.DDS 
002  L.DLC 


002 
002 


,DLM 
,DLS 
,FLG 
,KRBA 
LEN 


L.MPF 
002  L.NMST 
L.NSTA 
L.OUNR 
L.UNT 
MPTA8 
MXPTB 
MX  TAB 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET=: 
M$$OVR= 
NOD 
NXTLN 
N$$ACC= 
N$$BIIF  = 
N$$LDV= 
N$$MCP= 
N$$MLL= 

n$j;mov= 

N$$NCT= 

N$$PEM= 

PECHA 

PR  I 

PRINT 

PRLT 

PRTOV 


000003 

000003 

000001 

000000 

O0OOC4 

000001 

000002 

000002 

000017 

000360 

000006 

000424R 

000440R 

000000 

OOOO'^O 

OOOOo' 

oooooc 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

001276R 

001754R 

001204R 

000124 

000000 

000000 

000000 

000000 

000000 

000570R 

OOOOOOR 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

00031  OR 

001172R 

001570R 

001516R 

00061 6R 


PR7   = 

P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SAVALC 

SCOM 

SECSR 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SLNB 

SLNW 

STNB 

STNW 

SYSFDB= 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

TABLE 

TIME 

T$$KMG= 

T$$MIN= 

UN8 

UNW 

v$$aR= 

WORD 
WRVBL 
X$$DBT= 
X2CH01 
002  X2CH02 
X2CH03 
X2CH04 
X2CH05 
X3CH01 
X3CH02 
X3CH03 
X3CH04 
X2CH05 
X3CH06 
X3CH07 
X3CH08 
X3CH09 
X3CH10 


******  GX 

X3CH11 

002334R 

000000 

$ADDR  = 

******* 

GX 

000000 

$BFR  = 

****** 

GX 

000010 

$BIAS  = 

****** 

GX 

000000 

$BIN  = 

****** 

GX 

000001 

$BUFCK= 

****** 

GX 

000000 

$CTIM  = 

****** 

GX 

000000 

$DFCPT= 

****** 

GX 

001102R 

$FlAGS= 

****** 

GX 

001064R 

$GETLB= 

****** 

GX 

000446R 

$GETRV= 

****** 

GX 

000200 

$HMBUF= 

****** 

GX 

000100 

$ICBAD= 

****** 

GX 

000004 

$ICBLN= 

****** 

GX 

000040 

$ICBSZ= 

****** 

GX 

000020 

$LDA  = 

****** 

GX 

000010 

SLINK  = 

****** 

GX 

000001 

$MXADD= 

****** 

GX 

000002 

$MXSIZ= 

****** 

GX 

000040 

$PTR  = 

1^***** 

GX 

0005UR 

$PUTRC= 

****** 

GX 

000540R 

$RADDR= 

****** 

GX 

000622R 

$SADDR= 

****** 

GX 

000660R 

$SLN  = 

****** 

GX 

******  GX 

SSLTA  = 

****** 

GX 

000000 

$TMPBF= 

****** 

GX 

007600 

$UDA  = 

****** 

GX 

000001 

$VECT1= 

****** 

GX 

000000 

$VEX2 

OOOOOORG 

000004 

$X2HLD= 

****** 

GX 

000002 

$X2MBS= 

****** 

GX 

000003 

$X2MRT=- 

****** 

GX 

000274R 

002  $X2MWS= 

****** 

GX 

002206R 

$X2RET= 

****** 

GX 

000000 

$X3CAL= 

****** 

GX 

000000 

$X3CLR= 

****** 

GX 

000722R 

$X3DBS= 

****** 

GX 

000744R 

$X3DWS= 

****** 

GX 

001000 

$X3MBS= 

****** 

GX 

000766R 

$X3MCL= 

****** 

GX 

0017UR 

$X3MRE= 

****** 

GX 

000000 

$X3MRS= 

****** 

GX 

002342R 

$X3MUS= 

****** 

GX 

002350R 

$X3RES= 

****** 

GX 

002356R 

$X3RST= 

****** 

GX 

002364R 

f.SAPR  = 

****** 

GX 

002372R 

$$CSR  = 

****** 

GX 

002240R 

$$DCHA= 

****** 

GX 

002246R 

$$DPR  = 

****** 

GX 

002254R 

$$LSAD= 

****** 

GX 

002262R 

$$MTP  ^ 

****** 

GX 

0CZ270R 

$$PCHA= 

****** 

GX 

002276R 

$$PRI  = 

****** 

GX 

002304R 

$$:-sR= 

****** 

GX 

002312R 

$$SNUM= 

****** 

GX 

002320H 

.EOF  = 

****** 

GX 

002326R 

.MGMGE= 

****** 

GX 
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160 
161 
162 
163 
16^ 
165 
166 
167 

168  000056 

169  000042 
170 

1"1 

172 

173 

17A  00004A 

175  000046 

176 

177 

178 

179 

180  000050 

181  000052 
182 

183 
184 
135 
18d  000054 


062701  000003 


122525 


.SBTTL      CLEANUP   ROUTINES 
•  *** 
;   CLEANUP  ROUTINES 


;   DISCARD   3  BYT:^ 
P0P3:        ADD  *3,R5 


ADD 
RETURN 


005205 


;  DISCARD  2  BYTE 

S 

P0P2: 

CMP8 
RETURN 

(R5)t 

(R5)  + 

;  DISCARD  1  BYTE 

P0P1: 

INC 
RETURN 

R5 

;  NO 

CLEANUP 

NULL 

RETURN 

n 
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EXPANSION  ROUTINES 


200 
201 
202 
203 
204 
205 
206 
20(' 
208 
209 
210 
211 
212 
213 

214  000102 

215  000104 
216 

21- 

2'i:  000106 

219  000110 

r^o 

221 
222 

223  000112 

224  000114 

225  000116 

226  000120 
22?  000124 
228  000126 
229 

230 
231 
232 

233  000130 

234  000132 

235  000134 

236  000136 

237  000142 

238  000144 

239  000146 
240 

241 
242 
243 

244  000150 

245  000152 

246  000154 
247 

?48 
249 
250 

251  000156 

252  000162 

253  000164 

254  000170 

255  000174 

256  000176 
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.S8TTL  EXPANSION  ROUTINES 


EXPANSION  ROUTINES 


005203 


005723 


005000 

152500 

001002 

012700  000400 

060003 


005000 

152500 

001002 

012700  000400 

006300 

060003 


005205 
005203 


005767  OOOOOOG 

100405 

062705  000006 

062703  900004 

000404 

062/05  000'j04 


WITH  THE  EXCEPTION  OF  ".DVCHA"  ".PECHA"  AND  ".SECSR",  ALL  PROCESSING 
CONSISTS  OF  UPDATING  THE  BINARY  BUFFER  POINTER  (R5)  AND  THE  LINE  TABLE 
POINTER  (R3). 


LOCAL  PHYSICAL  STATION  ADDRESS  (BVTE) 


ADDRB: 


INC 
RETURN 


R3 


LOCAL  PHYSICAL  STATION  ADDRESS  (WORD) 


ADDRW: 


TST 

RETURN 


ZERO  BYTE(S) 

BLK8:    CLR 
BIS8 
BNE 
MOV 

10$:    ADD 

RETURN 

ZERO  WuRD(S) 


(R3)  + 


RO 

(R5)+,R0 
10$ 

#256., RO 
R0,R3 


BLKU: 


10$: 


CLR 

BISB 

BNE 

MOV 

ASL 

ADD 

RETURN 


,R0 


SINGLE  BYTE 


BYTE: 


INC 
INC 
RETURN 


RO 

CR5)^ 

10$ 

*256.,R0 

RO 

R0,R3 


R5 
R3 


GET  REPEAT  COUNT 
ZERO  BECOMES  256. 


GET  REPEAT  COUNT 
ZERO  BECOMES  256. 
2  BYTES  Ptit  WORD 


POINTER  TO  ALLOCATED  CORE 


CORE: 


10$: 


TST 
BMl 
ADD 
ADD 

BR 
ADD 


.MGMGE 

;  MAPPED  TARGET  SYSIEM  ? 

10$ 

;  NO  .. 

#6,R5 

*4,R3 

20i 

#4,R5 
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CREF   0^.00 


SYMBOL 

VALUE 

REFERENCES 

ADDRB 

000102  R 

5-83 

»l-Vi 

ADDRW 

000106  R 

5-8A 

#7-218 

APR 

00U50  R 

5-1U 

#9-602 

BL<B 

000112  R 

5-85 

#7-223 

BLKW 

000130  R 

5-86 

#7-233 

BLOC< 

00016A   R 

#5-153 

10-625 

10-657 

10-661 

10-671 

BYTE 

000150  R 

5-37 

#7-2AA 

CORE 

000'' 56  R 

5-88 

#7-251 

CSR 

000210  R 

5-89 

#7-263 

CTIM 

000220  R 

5-90 

#7-270 

CTRADD 

000162  R 

#5-152 

6-18A 

♦10-668 

DPRB 

00K50  R 

5-115 

#9-601 

DPRUI 

001A5A   R 

5-116 

#9-608 

DVCHA 

00022A  R 

5-91 

#7-276 

EOF 

00050A  R 

5-92 

#7-328 

FILE 

001050  R 

5-93 

#8-A76 

FLAGS 

0001 5A  R 

#5-1A5 
•9-531 

♦6-175 
♦9-568 

7-276 

7-305 

7-A02 

•8-A75 

8-A79 

FLT 

00U60  R 

#10-62A 

FLT16 

00U60  R 

6-180 

#10-623 

FL.KMX 

::      ******         G> 

7-A07 

F.RSIZ 

=    ******     GX 

♦7-290 

♦7-319 

•7-A23 

•9-5A2 

F.UReD 

=   ******     GX 

•10-627 

♦10-673 

INDEX 

000152  R 

#5-U0 

•6-1 7A 

7-278 

7-307 

7-AOA 

8-A81 

•8-A92 

♦8-520 

8-521 

♦8-524 

9-551 

•9-562 

9-563 

•9-567 

INT 

000506  R 

5-9A 

#7-333 

LFIlE 

001160  R 

5-97 

#8-509 

LF.ACT 

=   100000 

#5-65 

LF.BRO 

=  OOOAOO 

#5-65 

LF.BWT 

=  000007 

#5-65 

LF.ENA 

=  002000 

#5-65 

LF.LP8 

=  001000 

#5-65 

LF.MDC 

=  000100 

#5-65 

LF.MFL 

=  OOAOOO 

#5-65 

LF.MTP 

=  000020 

#5-65 

LF.PAC 

=  000200 

#5-65 

LF.RDV 

=  OAOOOO 

#5-6' 

LF.REA 

=.   010000 

#5-6- 

LF.SER 

=  OOOOAO 

#5-65 

LF.TIM 

=  000010 

#5-65 

LF.UNL 

=  020000 

#5-65 

LF.X2P 

=  000000 

#5-65 

LIBR 

000532  R 

5-95 

#7-3AA 

LINKS 

00056A  R 

5-96 

#7-356 

LN.CLO 

=  000000 

#5-65 

LN.DUM 

=  000005 

#5-65 

LN.LOA 

=  OOOOOA 

#5-65 

LN.LOO 

=  ooooo: 

#5-65 

L'J.OAU 

=  000003 

#5-65 

LN.OFF 

=  000001 

#5-65 

L^.ON 

=  000000 

#5-65 

L^;.OOP 

=  OOOOOA 

#5-65 

•8-A97 


8-A93 


•8-525 


•8-A96 
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VFGDTE 
LINE-ID 

221 
222 
223 
22'. 
225 
226 
227 
228 
229 
230 
231 
232 
233 
23A 
235 
236 
237 
238 
239 
2A0 
2A1 
242 
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SUBEXPRESSION 

.SSTTL   LINE-ID  SUBEXPRESSION 


000052 
000052 

000052 
000052 

000052 
000052 

000052 
000052 
000032 

000052 
000052 

000052 


lINE-ID  SUBEXPRESSION 


STATES 
TRANS 

LINID 
SRAD50, 

,DEVNAM 

;  DEVICE  NAME 

STATES 
TRANS 

<  '-> 

STATES 
TRANS 

SNUMBR, 

,DEVCTL 

;  CONTROLLER 

STATES 

TRANS  <'->,LINID1 

TRANS  SLAMDA,SEXIT 

STATES  LINID1 

TRANS  SNUMBR, SEXIT.DEVUNT 

STATES 


UNIT  NUMBER 


D  12 


VFGDTE     CREATED  BV  MACRO 
SVMBOL  CROSS  REFERENCE 


ON  29-JUN-85  AT  02:28 


SYMBOL   VALUE 


LF.X2P 

LINCTL 

LINNAM 

LINUNT 

LN.CLO 

LN.DUM 

LN.LOA 

_N.LOO 

LN.OAU 

LN.urF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRl 

LSDTEA 

LSLEN 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L  .MPF 

L.NMST 

L.N5TA 

L.OWNR 

L.UNT 

NEXT 

NUMDTE 

N$$VCT 

PCKBCD 

PF.XDF 

RTSPC 

R$RO 

R$R1 

R$R2 

R$R3 

RSRA 

R$R5 

R$$E!S 

RitllD 

SF.ACT 

SF.ENA 


000000 
OOOOAA  R 
0000A2  R 
0000A5  R 
000000 
000005 
00000^ 
000003 
000003 
000001 
000000 
OOOOOA 
000001 
000002 
000002 
000017 
000360 
000006 
000020 
000122 
000015 
000012 
177776 
000002 
OOOOOA 
P00003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
00001A 
C00021 
000013 
OOOOAO  R 
:   000020 


000756  R 

****** 

****** 

000002 

OOOOOA 

000006 

000010 

000012 

00001A 


ex 
GX 


000200 
000100 


C  13 

PAGE  2 

CREF   OA.OO 


REFERENCES 

#5-67 

#7-125 

#7-122 

#7-12A 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

#5-67 

16-392 

16-389 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#7-121 
#6-87 

16-388 

12-278 

12-283 

8-128 
#6-92 
#6-93 
#6-9A 
#6-95 
#6--96 
#6-97 

20-508 

20-508 
#5-67 
#5-67 


*18-4^0 
•18-A33 
*18-A^7 


'12-255 


#20-^97 


-129 


»16-A00 


12-262 


8-130 


19-A76 


B-13' 


*19-/,77 


8-132 


1      r 
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266  000056 

267  000056 

268  000C56 
269 

270  000056 
'■"  000056 

000056 


.03b  Saturday  29-Jun-85  02:29  Page  10-1 


5  1* 

02:29 


271 
272 
273 

27A  000056 
'■"■  000056 
000056 


275 

276 

277 

278 

279 

280  000056 

28,  000056 

282 

283  000056 

28A  000056 

285 

286  000056 

287  000056 
288 

289  000056 

290  000056 
291 

292  000056 

293  000056 
29A 

295  000056 


STATES 
TRANS 
TRANS 

PFLAGS 
IEND,$EX1T,PVEND 
<'  .> 

STATES 
TRANS 
TRANS 

$NUMBR,END,PVFG       ;  FLAGS  BYTE 
SLAMDa 

STATtS 
TRANS 
TRANS 

END 
SEOS.SEXIT 
<';>,SEXIT 

;  CHECK  FOR  DLM 

CIRCUIT  NAME  -  SUBEXPRESSION 

STATES 
TRANS 

CHKDLM 
'-,,PVOLM 

STATES 
TRANS 

S[)NUMB,,PVCTL 

STATES 
TRANS 

■. 

STATES 
TRANS 

SDNUMB,,PVSTA,PF.DLM,FLAG 

STATES 
TRANS 

<',>,SEX1T 

STATES 


0  u 


02:29 
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Symbol    table 
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PFSSTA= 

000004 

P$CHN 

000004 

PF$SVC= 

OAOOOO 

PSCNT 

OO00C5 

PFtUP  = 

000004 

P$CTR 

000054 

PF.DLM= 

000001 

P$DRCT 

000015 

PF.PSV= 

•••»«•  GX 

PSDRTR 

000036 

PORTNO 

000004R 

002 

PtFLG 

000012 

PRTADD 

000006R 

002 

P$FWD 

000030 

PR$BED= 

000200 

PSICCB 

000046 

PRSBEU= 

000100 

P$IPL 

000014 

PRtBRt)  = 

000040 

P$LCD 

000002 

PR$BRU= 

000020 

P$LEN 

000052 

PRtDWN= 

000002 

PSLSr 

000000 

PR$LCC= 

000010 

P$NRNI 

000040 

PRtMOP= 

000004 

PtOCCB 

000050 

PRtUP  - 

000001 

P$PFQ 

000006 

PSZ 

000044R 

003 

P$PKSZ 

000044 

PS$CHR= 

000016 

PSRMXI 

000016 

PStFA!= 

000014 

P$RMX2 

000020 

PS$NTI= 

000006 

P$RPRI 

000042 

PS$OFF= 

000000 

PSRTIM 

000003 

P5SSTR= 

000002 

PSSTAI 

000022 

PSSUP  = 

000012 

P$STA2 

000023 

PS$VER= 

000010 

P$TIM 

000010 

PSSWT  = 

000004 

PSTSCT 

000026 

PT$BRO= 

000200 

PSTSIZ 

000024 

PTSDRT= 

000100 

P$TYP 

000001 

PT$END= 

000004 

P$$P45= 

000000 

PTtLVl= 

000002 

P$$URD= 

000000 

PT$LV2= 

000001 

Q$$0PT= 

000010 

PT$PH3= 

000010 

RF.CTL= 

000003 

PT$XAR= 

000020 

RF.LD1= 

000040 

PVCCTM 

000012R 

002 

RF.LD2= 

000100 

PVCDF 

OOOOOOR 

003 

RF.TIM= 

177400 

PVCFLG 

000035R 

002 

RF.TMO= 

000400 

^VCLCN 

00001  OR 

002 

RF.WFC= 

000200 

PVCNAM 

000037R 

002 

RF.WTD= 

000020 

PVCNML 

000036R 

002 

RF.WTM= 

000030 

PVCOWN 

000020R 

002 

RF.WTS= 

000010 

PVCPRT 

000034R 

002 

RTSPC  = 

****** 

PVCPSZ 

000014R 

002 

R$RO   = 

000002 

PVCST 

OOOOOORG 

003 

R$R1   = 

000004 

PVCT 

000166R 

RtR2   = 

000006 

PVCTL 

001554R 

R$R3   = 

000010 

PVCWSZ 

000016R 

002 

R$R4   = 

000012 

PVDLM 

001506R 

R$R5   = 

000014 

''VEND 

000346R 

R$$DER= 

000000 

PVFG 

000314R 

R$$K11= 

000001 

PVLCN 

0001 30R 

R$$SND= 

000000 

PVNAM 

000036R 

R$$11M= 

000000 

PVNAMX: 

000006 

SF.ACT= 

000200 

PVOWN 

000256R 

SF.ENA= 

000100 

PVPSZ 

000212R 

SF.LPB= 

P00004 

DVSTA 

C01626ft 

SF.MFL= 

000040 

PVtJSZ 

000234R 

SF.PAC= 

000020 

ox$BL»;  = 

000040 

SF.REA-- 

000010 

PX$DLM= 

000200 

SF.SER= 

000001 

DX$57f= 

000100 

SF.SVC= 

000002 

GX 


SF.UNL= 
SPACE  = 
SP$P4 
SI0RID= 
SrNERR= 

sysFDe= 

S$$WRC= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

T$FLAG 

T$LIF 

TSLIFL 

TSLIFO 

T$LIFS 

T$LIN 

T$LIPS 

TSLLD 

T$LLDC 

TSLLDL 

T$LLDO 

TSLLDS 

T$LLEN 

T$LOPR 

T$ITCL 

TtLTlM 

TSLTPR 

TSLTPS 

TSNAPL 

T$NFE 

TSNLEN 

T$NNUL 

T$NOPL 

TSNRNI 

T$NRPL 

T$NRUL 

T$NVR 

T$RPRI 

T$SVC 

r$T5 

F$T6 

T$$KMG= 

T$$MIN= 

VF$RCV= 

VF$XMT= 

V$fLG 

V$LEN 

VSRCV 

VSXMT 

V$$CTR^ 

WNDSZ 

XA$NCO= 

XASRR  = 

XA$UCL= 


000040 

000040 

000062RG 

»•*•»*  GX 

*«nt«  GX 

•*♦•»*  GX 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000044 

000013 

000015 

000013 

000013 

000000 

000006 

000012 

00004  5 

000012 

000012 

000012 

000046 

000002 

000024 

000026 

000014 

000020 

000004 

GOOOOO 

000010 

000002 

000006 

000042 

000005 

000007 

000001 

000040 

000034 

000030 

000032 

000000 

000000 

100000 

040000 

000000 

000022 

000002 

000012 

001000 

000066R 

000020 

000200 

000040 


XA$URE= 
XF$NCO= 

002  XF$OFF= 
XF$Ofil  = 
XF$OTI= 
XF$TiL= 
XFtTlR= 
XT$CHN= 
XT$DGR= 
XT$FAS= 
XT$INC= 
XT$OUC= 
XT$PVC= 
X$A8Q 
X$ALF 
XSAUC 
X$CLEN= 
X$CTIM 
XIDIAG 
X$DTE 
X$FLG 
XSGLEN 
XJLCN 
X$.'.EN 
XSMOWN 
XSNLRE 
X$NNRE 
XSNPL 
X$NPR 
X$NRBY 
X$NRPK 
XSNRRE 
X$NTBY 
XSNTPK 
XSPKSZ 
X$PR 
XSPRT 
X$PS 
X$RPR 
XSRPS 
XSRTRY 
X$RXI 
XSRXQ 
X$SS 
X$ST 
XITCLZ 
X$TIMC 
XSTIMR 
X$TXI 
XSTXQ 
y$TYP 
X$USR 
XSUAQ 

003  X$WSZ 
X$$DBT= 
Z.DAT  = 
Z.MAP  = 


000100 

000020 

000200 

000002 

000001 

000010 

000004 

000100 

000002 

000200 

000004 

000010 

000001 

000076 

000055 

000056 

000025 

000060 

000003 

000024 

000014 

000106 

000026 

000106 

000023 

000052 

000054 

000006 

000007 

000032 

000042 

000053 

000036 

000046 

000016 

000011 

000021 

000010 

000015 

000012 

000002 

000104 

000072 

000004 

000005 

000030 

000001 

000000 

000102 

000066 

000015 

000022 

000062 

0OCC2O 

000000 

«»•»♦*  GX 

******  GX 


Z.NAM  = 

$ALPHA= 

$ALPOL= 

$ANy  = 

$BFR  = 

$BLANK= 

$CAT5  = 

$CEACC= 

$DIGir= 

$DNUMB= 

$E0.  = 

$ERRNO 

$ERRN1 

$ERRN2 

$ERRN3 

$ERROO 

$ERR05 

$ERR09 

$ERRP8 

$ERR1T= 

$EXIT  = 

IFAIL  = 

$GETAD= 

$GETRV= 

$LAMDA= 

$LLCTA= 

$NUMBR= 

$PDVNM= 

$PDVTA= 

$PFLAG= 

$PSIPT= 

$PUTAD= 

SQPVC 

$RADDR= 

$RAD50= 

$RBLCK= 

$SAVAL= 

SSLTA  = 

$SLTMA= 

$STRNG= 

$SUBXP= 

STRIB  = 

$X3DBS= 

$X3DUS= 

$$HTIM= 

$$LT1M= 

$$$FLG= 

$$$KEY= 

$$$R  = 

$$$STA= 

$$$TMP= 

.PNUMB= 

.PNUMH= 

.PSTCN= 

.PSTPT= 

.TPARS= 


GX 

GX 
GX 


«**«♦*  GX 
000022 
******  i3x 
000020 
****** 

000006 

****** 
****** 

000024 
000014 

: 0001 2 

,00064R 

J00124R 

0001 60R 

000212R 

000312R 

000346R 

000402R 

000256R 

******  GX 

000000 

177777 

****** 

****** 

000000 

******  GX 

000002 

****** 

****** 

****** 

****ii 

****** 

OOOOOORG' 
******  GX 
000016 

****** 
****** 
****** 
****** 
OOOOOA 
000010 
****** 

****** 
****** 
****** 
****** 

177777 
000002 
000010 
000000 
00001 3R 
******  GX 
******  GX 
******  GX 
«»**««  GX 
******  GX 


GX 
GX 


GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 


GX 
GX 
GX 
GX 
GX 


002 
002 
002 
002 
002 
002 
002 
002 


005 
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107 
108 
109 
110 
111 
112 
113 
lU 
115 
16 
117 
11 


000007 


00000^ 

ooooou 

000002 

119  00000'. 

120  000006 

121  000010 
"'"  000012 

OOOOU 
000016 
000020 
000021 
000022 
_.  000023 

129  00002A 

130 

131  000025 

132 

133  00004A 

13A  00005A 

'35 


122 
123 
12A 
125 
126 
127 
128 


00001" 
OOOOAA' 


•  CONSTANT  DEFINITIONS 

MAXUND 

=  7 

;  MAXIMUM  WINDOW  SIZE 

.SBTTL 

LOCAL  DATA 

;  LOCAL 

DATA 

.PSECT 

DATA,D 

NEXT: 

.SL<W 

1 

;  ADDRESS  TO  STORE  NEXT  DTE  DIGIT 

HTIMR: 

.8LKW 

1 

;  LOCAL  COPV  OF  HELLO  TIMER 

LTiMR: 

.BLKU 

1 

;  LOCAL  COPY  OF  LISTEN  TIMER 

PKTSVC 

.BLKW 

1 

;  PACKET  SIZE 

FLGSVC 

.BLKW 

1 

;  FLAGS  WORD 

RTMSVC 

.8LKU 

1 

;  RECALL  TIMER 

STASVC 

.BLKW 

' 

;  STATION  NUMBER 

SLTA: 

.BLKW 

' 

;  LOCAL  copy  OF  $SLTA 

OWNSVC 

.BLK8 

1 

;  OWNER 

CTL5VC 

.8LK8 

1 

;  CONTROLLER  NUMBER 

WNDSVC 

.8LKB 

1 

;  WINDOW  SIZE 

RCLSVC 

.BLKB 

1 

;  MAX  RECALLS 

COUNT: 

.81KB 

1 

;  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 

DTELEN 

=  15. 

DTESVC 

.BLK8 

DTELEN 

;  DTE  ADDRESS 

DTEEND 

= 

DTEPCK 

.BLKB 

<DTELENt1>/2 

;  DTE  ADDRESS  (BCD) 

CVTBUF 

.BLKB 
.EVEN 

1 

;  CONVERSION  BUFFER 
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3555 

3356 

3357 

3358 

3355 

3360 

3361 

3362 

3363 

336A 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3330 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3339 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 


015340 
015344 
015350 
015352 
015356 
015364 
015372 
015374 
015406 
015424 
015432 
015440 
015446 
015450 
015454 
015460 
015462 
015470 
015472 

015474 
015502 
015504 
015510 
015512 
015514 

015516 
015522 

015524 
015530 
015532 


012704 
011467 
010146 
010467 
016767 
016767 
001454 


016767 
042767 
022767 
001402 

032716 
001005 
032767 
001412 
000414 

032767 
001404 
020367 
103405 
001401 
000720 

020267 
103315 

016701 
005726 


.SBTTL     FINFLT  -  FIND  PLACE   TC   INSERT  FILTER  BLOCK 

FINFLT  -  FIND  PLACE   TO   INSERT   FILTER  BLOCK 

INPUTS: 

R1  -  FLAGS  WORD  FOR  FILTER  BLOCK  TO  BE  INSERTED 

R2  -  EVENT  CLASS  NUMBER  FOR  FILTcR  BLOCK  TO  BE  INSERTED 

R3  -  SINK  NODE  NUMBER  FOR  FILTER  BLOCK  TO  BE  INSERTED 

OUTPUTS: 

R1  -  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 


OOOOOOG        FINFLT: 
OOOOOOG 

000164' 

000164'  000166'  10$: 

OOOOOOG  000164' 


20$: 


000002G  OOOOOOG 
177700  OOOOOOG 
000016  OOOOOOG 


100000         25$: 
100000  00001 4G 

100000  00001 4G  30$: 
000026G 

40$: 
000002G        50$: 


000166' 


60$: 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BEO 

CEACC$ 

GETAD 

MOV 

BIC 

CMP 

BED 

GETAD 

BIT 

BNE 

BIT 

BEQ 

BR 

BIT 
BEQ 
CMP 
BLO 
BEQ 
BR 

CMP 
BHIS 

MOV 
TST 
RETURN 


*$FILHD,R4 

(R4),$BFR 

R1,-(SP) 

R4,CURUNM 

CURUNM,PRVUNM 

$Sffi,CURUNM 

60$ 

CUfiUNM,R4 

R4,#F.LEN 

F.CLS+$BFR,$RSIZE 

#*C<fF.MSK>,$RSIZE 

#F.LEN,$RS!ZE 

25$ 

#FF.REM,(SP) 

30$ 

#FF.REM,F.FLG+$BfR 

50$ 

60$ 

#FF.REM,F.FLG+$BFR 

40$ 

R3,F.REM+$BFR 

60§ 

50$ 

10$ 

R2,F.CLSt$BFR 
10$ 

PRVUNM.RI 
(SP)  + 


GET  START  OF  FILTER  BLOCKS  IN  LIST 

GET  FIRST  BLOCK  IN  LIST 

SAVE  FLAGS  WORD 

INIT  UNMAPPED  ADDR  OF  CURRENT  BLOCK 

SAVE  UNMAPPED  ADDR  OF  PREVIOUS  BLOCK 

GET  NEXT  FILTER  BLOCK  IN  LIST 

BR  IF  NO  MORE  IN  LIST 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  FILTER  BLOCK 

GET  LENGTH  OF  BLOCK 

IS'tHIS  THE  CORRECT  LENGTH? 

BR  IF  YES 

ELSE  READ  IN  ENTIRE  BLOCK 

IS  SINK  NODE  =  EXECUTOR? 

BR  IF  NO 

IS  SINK  NODE  =  EXECUTOR  NODE? 

BR  IF  YES  -  SORT  BY  CLASS 

ELSE  LINK  BLOCK  HERE 

IS  SINK  NODE  =  EXECUTOR  NODE? 
BR  IF  YES  -  CONTINUE  SCAN 
SORT  BY  SINK  NODE 
IF  LOWER,  LINK  PLOCK  INTO  LIST 
IF  EQ,  SORT  BY  CLASS 


SORT  BY   CLASS 

IF   HIGHER  OR   SAME, 


CHECK  NEXT  BLOCK 


RETRIEVE   UNMAPPED  ADDR  OF   PREVIOUS 
CLEAN  UP   STACK 


,/f\i4  -  wPuD   cwini  p/ni<;ini  F   i  iwF<;  MArpn  uO";  fl^h  uprinpiidTi 
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3835 
3836 
3837 
3838 
3839 
38^0 
3841 
38A2 
3843 
3844 
3845 
3846 
3847 
3843 
3849 
3850 
3851 
3852 
3853 
3854 


.S8TTL  STREVT  -  STORE  THE  EVENT  MASKS 

STREVT  -  STORE  THE  EVENT  MASKS  IN  THE  FILTER  BLOCK 

INPUTS: 

RQB+LO.EVT  -  EVENT  FILTER  MASKS  TO  STORE 

Rl  -  ADDRESS  OF  EVENT  FILTER  MASKS  IN  FILTER  BLOCK 

OUTPUTS: 

Rl  -  ADDRESS  OF  NEXT  WORD  IN  FILTER  BLOCK 


017432 
017436 
017442 
017446 
017452 


016721 
016721 
016721 
016721 


000004C 
000006G 
00001 OG 
000012G 


STREVT:  MOV 
MOV 
MOV 
MOV 
RETURN 


ROB+LO.EVT+0,(R1)+ 
RQ8+L0.EVT+2,(R1)+ 
RQ8tL0.EVT+4,CR1)+ 
RQ8+L0.EVT+6,(R1)+ 


STORE   EVENT   FILTERS 
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FNDCTR  -  f'ND  COUNTER  BLOCK 


4?32 

.SBTI:. 

FNDCTR  -  FIND  COUNTER  BLC 

CK 

4233 

4234 
4235 
4236 

+ 

FNDCTR  -  FIND 

COUNTER  BLOCK  ENTRY  FOR  SPECIFIED  CIRCUIT 

4237 

4238 

INPUTS: 

4239 

$SLTA  - 

SLT  ADDRE5S  FOR  CIRCUIT 

4240 

$TRIB  - 

TRI8  NUMBER  FOR  CIRCUIT 

4241 
4242 

OUPUTS: 

4243 

CARRY  CLEAR: 

4244 

$BFR 

-  FOUND  COUNTER  BLOCK 

4245 

$RADDR  -  ADDRESS  OF  COUNTER  BLOCK 

4246 

SRBLCK  -  APR  BIAS  FOR  COUNTER 

BLO'K 

4247 

CARRY  SET: 

4248 

COUNTER  BLOCK  NOT  FOUND 

4249 

4250 

- 

4251  021022 

016700 

OOOOOOG 

"NDCTK: 

■■ov 

$SLTA,RO 

GET  THE  SLT  ADDRESS 

4252  021026 

032760 

OOOOOOG 

OOOOOOG 

Bi'- 

#LF.RDY,L.FLG(RO) 

IS  LINE  LOADED? 

4253  021034 

001474 

BEO 

40$ 

BR  IF  NO  -  PARAMETER  NOT  APPLICABLE 

4254  021036 

116001 

OOOOOOG 

MO\/B 

L.0UNR(R0),R1 

ASSUME  OWNER  =  LINE  OWNER 

4255  021042 

105760 

OOOOOOG 

TSTB 

L.NSTA(RO) 

MULTIPOINT  LINE  ? 

4256  021046 

001412 

BEO 

10$ 

IF  EQ,  NO 

4257  021050 

010001 

MOV 

RO.fil 

GET  SLT  ADDRESS 

4258  021052 

062701 

OOOOOOG 

ADD 

#L.MPF,R1 

POINT  TO  STATION  ADDRESS 

4259  021056 

016746 

OOOOOOG 

;iGv 

$TRIB,-(SP) 

4260  021062 

006316 

AS.. 

(SP) 

4261  021064 

006316 

ASL 

(SP) 

4262  021066 

062601 

ADD 

(SP)+,R1 

. .  > 

'.,263  021070 

116101 

OOOOOOG 

MOVB 

S.0WNR(R1),R1 

ELSE,  GET  TRIB  OWNER 

4264  021074 

066701 

OOOOOOG 

10$: 

ADD 

$PDVTA,Rl 

POINT  TO  PDV  TABLE  ENTRY 

4265  021100 

011101 

MOV 

(R1),R1 

GET  THE  PDV  ADDRESS 

4266  021102 

022761 

114224 

OOOOOOG 

CMP 

/r'fiXPT.Z.NAMCRI) 

IS  THE  OWNER  XPT  ? 

4267  C21110 

001046 

BNE 

40$ 

IF  NE,  NO-PARAMETER  NOT  APPLICABLE 

4268  021112 

016746 

OOOOOOG 

MOV 

$SLN,-(SP) 

GET  SLN  NUMBER 

4269  021116 

116766 

OOOOOOG 

000001 

MOVB 

$TRI8,1(SP) 

SET  TRIB  NUMBER  ONTO  HIGH  BYTE 

4270  021124 

012605 

MOV 

(SP)+,R5 

RETRIEVE  SLN/STA 

4271  021126 

GETRV 

Z.DAT(R1),#N$XLEN 

POINT  TO  XPT'S  DDB 

4272  021146 

016767 

000102G 

OOOOOOG 

MOV 

N$TLCt2t$BFR.$RBLCK 
N$TLC+$BFR,RO 

MAP  TO  CIRCUIT  COUNTERS 

4273  021154 

016700 

000100G 

MOV 

GET  THE  NUMBER  OF  LINE  COUNTERS 

4274  021160 

016701 

000104G 

MOV 

N$TLC+4t$BFR,R1 

POINT  TO  THE  FIRST 

4275  021164 

20$: 

GETAD 

R1,#T$LLEN 

READ  IN  COUNTER  BLOCK 

4276  021202 

005300 

DEC 

RO 

AT  END  OF  COUNTERS  ? 

4277  021204 

002410 

BLT 

40$ 

IF  LT,  YES-I ARAMETER  NOT  APPLICABLE 

4278  021206 

026705 

OOOOOOG 

CMP 

T$LIN»$BFR,R5 

ARE  THESE  THE  COUNTERS  ? 

4279  021212 

001403 

BEQ 

30$ 

■  IF  EQ,  YES  -  READ  THEM 

4280  021214 

062701 

000046 

ADD 

#T$LLEN,R1 

•  ELSE,  POINT  TO  NEXT  COUNTERS 

4281  021220 

000761 

BR 

20$ 

•  AND  KEEP  LOOKING 

4282  021222 

0002A  1 

30$: 

CLC 

•  INDICATE  FOUND  IT 

4283  C21224 

000401 

BR 

50$ 

AMD  EXIT 

4284  021226 

C00261 

40$: 

SEC 

4285  02V30 

50$: 

RETURN 

\  I  c  Am  r 


MA  rcin 


E  3 
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VENA      CREATED  BY  MACRO  ON  n-SEP-85  AT  12:08 
SYMBOL  CRO.S  REFERENCE 


SYMBOL  VALUE 


CL$XL3 
CL$X2S 
CMSSET 

CNODT:, 
CONNAM 
CURUNM 


CUSTEV 

C.LGTH 

C.RQT 

C.RSI 

C.SSHT 

C.TCB 

C.TIM 

DEAFIL 

DEFCON 

DEFDEV 

OEFFIL 

DEFMON 

DEFTYP 

DEFUK 

DEFUNT 

CEFVER 

DF.CRC 

DF.FOC 

DF.LEN 

DF . RAN 

DF.UNK 

DISMNT 

DLXPX 

DLSAST 

DLSHLT 

DLSIST 

DLSMAI 

DLIOFF 

OLSON 

DLSRUN 

DLSSHU 

DLSSYN 

DSBLIN 

DV.F11 

DV.REC 

D$AN\' 

DSEND 

DSHOST 
DSINAC 
DSINCT 
DSLNAM 
DSLNUM 


=  013600 
=  013'^00 

=  ****** 

0037K  R 
000160  R 
0001 6A  R 


000740 

000020 

000002 

000012 

000004 

000004 

000006 

017600  R 

000044  R 

000032 

000020 

000040 

000026 

000036 

000034 

000030 

000010 

000020 

000030 

000040 

000100 

020330  R 

000125  R 

000002 

000000 

000001 

000004 

000001 

000000 

000003 

000002 

000005 

003230  R 

040000 

:  000001 
000000 

:  000104 


GX 


000022 
000044 
000042 
000006 
000014 


REFERENCES 

#5-79 

#5-79 
27-1381 
58-3257 
25-1175 

#6-158 

#6-159 

♦30-1645 

»61-3427 

#8-211 
6-133 

•82-4317 

•  82-4318 
82-4317 

•82-4320 

•82-4316 
57-3223 

#6-130 

#6-125 

#6-122 

#6-129 

#6-123 

#6-127 

#6-126 

#6-124 

#5-82 

#5-82 

#6-132 

#5-82 

#5-82 
39-2052 

#6-146 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 
11-502 
50-2836 
49-2779 

•42-2342 
26-1267 
28-1583 

•78-4183 

•26-1342 

•26-1308 
26-1271 
2--1269 


5-79 
5-79 
28-1485 
58-3268 

#25-1243 
49-2770 

•27-1447 
30-1648 
61-3428 
46-2643 
82-4305 

•82-4319 

82-4334 
•82-4322 
62-3534 
58-3259 
50-2819 
6-128 
58-3270 


50-2820 


58-3249 


39-2068 
•11-399 


#24-1097 


42-2418 

26-1290 

42-2339 

•78-4186 


26-1273 
53-302; 


D  4 

PAGE  2 

CREF   04.00 


10-355 
10-35'' 
36-1834 
58-3277 

•58-3259 
•28-1556 
•41-2261 
•61-3430 


82-4334 

•  82-4323 

62-3609 

58-3260 

6-132 
58-3271 


#75-4088 
•11-403 


♦42-2424 
26-130/' 
42-2345 


26-1275 
78-4186 


37-1874 
59-3323 

•58-3260 

•29-1615 

•42-2386 

61-3432 


82-4328    82-4354 


82-4336 
62-3632 


41-2198 
62-3482 

58-3262 

29-1616 

•59-3318 

61-3459 


82-4336 
#72-3929 


•.,2-2)02 
73-4181 

58-3263 
•29-1617 
•60-3374 


44-2494 


29-1619 
60-3375 


47-2683    57-3185 


•30-1643 
•60-3376 


30-1644 
O0-3378 


50-2804    58-3246 


82-4339    82-4339 


58-3279 


11-428 


26-1324 
42-2390 


26- 
42- 


1341 
cU27 


26-1358 
53-3020 


27-1399 
74-4009 


27-1407 
74-4025 


28-1573 
78-4179 


E     4 


VENA      CREATED  BY  MACRO  ON  11-SEP-85  AT  12:08 
SYMBOL  CROSS  REFERENCE 


H 3-602 


PAGE  15 
CREF   0^.00 


SYMBOL 

VALUE 

REFERENCES 

S.PSA 

000003 

#5-82 

S.R3E 

000042 

#5-82 

S.RCB 

000020 

#5-82 

S.RLV 

OOOOU 

#5-82 

S.RDE 

000034 

#5-82 

S.RTY 

000001 

#5-82 

S.STA 

000000 

#5-82 

S.STLN 

000035 

20-928 

S.STPN 

00003A 

*13-597 

S.TLZ 

000012 

#5-82 

S.THO 

000040 

#5-82 

S.XDE 

000036 

#5-82 

S.XID 

000002 

#5-82 

S.X1B 

000030 

#5-82 

S.XMP 

000024 

#5-82 

TF.FFE 

=  000004 

#5-82 

TF.ROF 

=  000001 

#5-82 

TF.RTO 

=  000002 

#5  82 

TF.TAE 

=  000010 

#5-82 

TF.TOF 

=  000004 

#5-82 

TF.TTO 

=  000010 

#5-82 

TF.URE 

=  000001 

#5-82 

TF.USA 

=  000002 

#5-82 

TICKS 

=  000001 

#6-134 

T^DMSK 

000076  R 

#6-139 
62-361? 

TR.AI  F 

000102 

#5-82 

TR.DEV 

000100 

#5-82 

TR.LEN 

=  000210 

#5-82 

TR.MST 

000074 

#5-82 

TR.PRE 

000076 

#5-82 

TR.TLZ 

000072 

#5-82 

TSKSCH 

021630  R 

39-1953 

TX.A.iXM 

=  000002 

#5-8? 

TX.OVR 

=  000001 

#5-82 

TX.TMO 

=  000004 

#5-82 

TYSCHA 

=  000400 

#5-73 

TYSEVE 

=  001000 

#5-73 

TYSSTA 

=  002000 

#5-73 

Ti'SSUM 

=  000000 

#5-73 

TSFlAG 

000044 

#5-68 

T?LIF 

000013 

#5-.  '■ 

rSLIFL 

000013 

#5-6o 

(SLIFO 

000013 

#5-68 

TSLIFS 

000013 

#5-68 

TSLIN 

OOOOCO 

#5-68 

r$LIPS 

000006 

#5-68 

TSLLD 

000012 

#5-68 

TSLLDC 

000045 

#5-68 

TSLLDL 

000012 

#5-68 

Ti,  LDO 

C00012 

#5-68 

: .tLLDS 

000012 

#5-68 

39-2016    40-2158 

57-3178    57-3202    57-3212    62-3553    62-3559    62-3565    62-3568    62-3606 

62-3624 


39-1966    39-2060    40-2098   40-2113    40-2174    75-4090   #84-4414 


81-4278 


E  5 


D    6 

VEXP  -  VNP  EXPAND   TEMPtATE   PROC  MACRO  V05.03b   Saturday  ?9-Jun-85   02:27 
Symbol,   table 


Page  5-1 


A$$CHK= 

000000 

FL.CHA=  ****** 

GX 

L$$ASG= 

000000 

N$$MCP= 

000001 

s$$ysz= 

007600 

At$rPS= 

000000 

F$$LVL=  000001 

L$$DRV= 

000000 

N$$MLL= 

299591 

T$$KMG= 

000000 

A$$PRI= 

000000 

G$$TPP=  000000 

L$$P11= 

000001 

N$$MOV= 

000010 

T$$MIN= 

000000 

A$$tRP=: 

000000 

G$$TSS=  000000 

L$$11R= 

000000 

N$$NCT= 

000001 

V$$CTR= 

001000 

C$$CKP= 

000000 

G$$TTK=  000000 

M$$CRB= 

000124 

N$$PEH= 

000001 

X$$DBT= 

000000 

C$$ORE= 

000400 

G$$WRD=  000000 

M$$CRX= 

000000 

P$$P45= 

999999 

$ADDR  = 

******  GX 

C$$RSH= 

177564 

I$$RAR=  000000 

M$$FCS= 

000000 

P$$URD= 

000000 

$FLAGS= 

******  GX 

D$$BUG= 

1775K 

I$$RDN=  000000 

H$$NGE= 

000000 

Q$$OPT= 

000010 

$FLAG1= 

******  GX 

D$$ISK= 

000000 

K$$CNT=  177546 

Mt$NET= 

000000 

R$$DER= 

000000 

SNALL  = 

******  GX 

D$SL11= 

000001 

K$$CSR=  177546 

M$$OVR= 

000000 

R$$K11= 

000001 

SVEXP 

OOOOOORG 

D$SYNC= 

000000 

K$$LDC=  OOOOCO 

N$$ACC^- 

000001 

R$$SND= 

000000 

HH  = 

******  GX 

D$$YNM= 

OOOOOu 

K$$TPS=  000074 

N$$eUF= 

000001 

R$$11M= 

000000 

$\/EX3  = 

******  6X 

E$$XPR= 

000000 

lDSLP  =  000000 

N$$LDV= 

000001 

S$$WRG=: 

000000 

$VEX5  = 

******  GX 

.  ABS. 

000009    000   (RU,I,GBL,A8S,0VR) 
000056    001   (RW,I,LCL,REL,CON) 

Errors 

detected:  0 

*♦•  As!;embLer  statistics 


Work   file  reads:  0 

Work  f 1 le  writes:  0 

Size  of  work  file:  8920  Words   (  35  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


SY:VEXP.V2?[132?i34]VEXP/CR/-5P=SY:[1,1]RSXMCM.SML/ML,[130,110]NETLI8/ML.ri30,10]RSXMCIv|/PA:1,[132,10]VEXP 


E     6 


D  7 

VEX2  -  VNP  EXPANSION  ROUTINES   MACRO  V05.03b  Saturday  ^'y-Jun-SS  02:27  Page  7-4 


421 
422 
42? 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 


000736  112724  177777 
000742 


000744  005767  000450' 

000750  001403 

000752  016724  000446' 

000756 

000760  J12724     \fmi 

000764 


000766  112524 
000770  112524 
000772 


101$:   MOVB 

RETURN 

#-1,(R4>+ 

;  UNIT  NUMBER  (WORD) 

UNW:    TST 
BEQ 
MOV 
RETURN 

101$:   MOV 

RETURN 

FLAGS 
101$ 
INDEX, (R4)t 

#-l,(R4)t 

;  SINGLE  WORD 

WORD:   Move 
MOVB 
RETURN 

(R5)t,(R4)+ 
(R5)t,(R4)+ 

UNB  NOT  IN  EITHER  MXTA8  OR  MPTAB  FILE 


IS  IT  EITHER  MUX  OR  MTP  EXPANSION? 

IF  EQ,  NO 

STORE  CURRENT  MUX  INDEX 

UNW  NOT  IN  EITHER  MX  TAB  OR  MPTAB  FILE 


COPY  A  WORD 


E  7, 


D    8 

VEX2  -  VNP  EXPANSION  ROUTINES       MACRO  V05.03b  Saturday  29-Jun-85   02:27     Page   15-2 
Symbol   table 


.  AI5S. 

177776 

000 

(RW,I 

,GRI 

ARS 

OVR) 

002^.00 

001 

(RW.i 

,1  CI 

RbL 

CUN) 

DATA 

000452 

002 

(RW.D 

,LCL 

RbL 

CUN) 

Errors 

detected: 

0 

»*  Assembler   statistics 


Work      file     reads:  0 

Work      f i  le  writes:  G 

Size  of  work  file:  12633  Words     (   50  Pages) 

Size  of   core  pool:  14A40  Words      (    55  Pages) 

Operating     system:  RSX-11M/PLUS 


SytvExlv2?[h2?li°ivEX2/CR/-SP=SY:C1  J]RSXMCM.SML/ML,[130J10]NETLI8/ML,[130,10JRSXMCM/PA:1,E132,10DVEX2 


E     8 


VEX3  -  VNP  EXPANSION  ROUTINES 
CLEANUP  ROUTINES 


188 

189 

190 

191 

192 

193 

19A 

195  000056 

19i',  000060 

197  000064 

198  000066 

199  000070 

200  00007A 
"""  000076 

000100 
000104 


D  9 

C  MACRO  V05.03b  Saturday  29-Jun-85  02:27 


Page  8 


;  DE-'LLOCATION  CLEANUP  ROUTINES 


SINGLEWORD  ADDRESSABLE  STORAGE 


201 
20? 
2  i 
2(. 
205 
206 
207 

208  000106 

209  000110 

210  000114 
211 

i:12  000116 

213  000122 

214 

215  00C124 

216 

217  000126 

218  000130 

219  000134 

220  000136 

221  000140 

222  000144 


112546 
112566 
012600 
112546 
112566 
012601 
001402 


000001 


000001 


XSCOM: 


10$: 


MOVB 

(R5)+,-(SP) 

MOVE 

(R5)+,1(SP) 

MOV 

(SP)+,RO 

MOVB 

(R5)+,-(SP) 

MOVB 

(R5)*,1(SP) 

MOV 

(SP)+,R1 

BEO 

10$ 

CALL 

$DEA16 

ASSEMBLE  ADDRESS 


AND  COUNT 


RETURN 


112546 

112566  000001 

012600 

005  767  OOOOOOG 
100401 

122525 

112546 

112566  000001 
012601 
0C1402 


DOUBLEWORD  ADDRESSABLE  STORAGE 
XCORE 


5$: 


10$: 


MOVB 
MOVB 
MOV 

TST 
BMI 

CMPB 

MOVB 

MOVB 

MOV 

BEQ 

CALL 

RETURN 


(R5)+,-(SP) 
(R5)+,1(SP) 
(SP)+,RO 

.MGMGE 
5$ 

(R5)+,(R5)t 

CR5)+,-{SP) 

(R5)t,1(SP) 

(SP)+,R1 

10$ 

$DEA18 


IF  ZERO,  DO  NOTHING 
DEALLOCATE  SINGLEWORD  STORAGE 


ASSEMBLE  BIAS 


MEMORY  MANAGEMENT  SYSTEM 
NO 


DISCARD  DISPLACEMENT 
ASSEMBLE  COUNT 


IF  ZERO,  DO  NOTHING 
DEALLOCATE  DOUBLEWORD  STORAGE 


E  9 


VEX5 


-  VNP  UPDATE  LINE 

lABLES 

MACRO  V05.03b 

Saturday 

29-Jun-85  02:28  F 

age  7-1 

NSION  ROUTINES 

257 

000202 

062705 

000002 

ADD 

#2,R3 

258 

000206 

20$: 

RETURN 

259 

260 
261 

;  CSR 

262 
263 

000210 

005205 

eSR: 

INC 

R5 

264 

000212 

062703 

000002 

ADD 

#2,R3 

265 

000216 

RETURN 

266 
267 
268 
269 
270 

•  COUNTER  TIMER 

000220 

005723 

triM: 

TST 

(R3)  + 

271 

000222 

RETURN 

272 

273 

275 
276 

;  DEVICE  fHARACTEfiJSTICS 

000224 

005767 

000154' 

DVCHA 

TST 

FLAGS 

IS  IT  MUX  EXPANSION  ? 

277 

000230 

001454 

BEQ 

10$ 

NO  .. 

278 

000232 

126467 

000013 

000152' 

CMPB 

L.UNT(R4), INDEX 

DO  UNIT  NUMBERS  MATCH  ? 

279 

000240 

001050 

BNE 

10$ 

NO  .. 

280 

000242 

010377 

0000000 

MOV 

R3,a$ADRZ 

VIRTUAL  ADDRESS 

281 

000246 

00507/ 

OOOOOOG 

CLR 

a$ADRX 

BIAS 

282 

000252 

005767 

OOOOOOG 

TST 

.MGMGE 

MEMORY  MANAGEMENT  SYSTEM? 

283 

000256 

100413 

BMI 

5$ 

NO  IF  MINUS 

284 

000260 

020327 

120000 

CMP 

R3,*120000 

PARTITION  LINE  TAPLE 

285 

000264 

103410 

BLO 

5| 

NO  IF  LO 

286 

000266 

010346 

MOV 

R3,-(SP) 

LINE  TABLE  ADDRESS 

287 

000270 

042716 

'60000 

BIC 

#160000, (SP) 
(SP)+,aiADRZ 

CLEAR  THE  APR  BITS 

288 

000274 

012677 

OOOOOOG 

MOV 

NEW  VIRTUAL  ADDRESS 

289 

000300 

016777 

OOOOOOG 

OOOOOOG 

MOV 

$8IAS,a$A0RX 

BIAS  OF  PROCESS 

290 

000306 

5$: 

GETAD 

,#4 

ACCESS  LINE  TABLE 

291 

000320 

SAVRG 

RO 

SAVE  REG 

292 

000322 

016700 

OOOOOOG 

MOV 

$SLTA,RO 

COPY  SLT  ADDRESS 

293 

000326 

010360 

177776 

MOV 

R3,L.CVA(R0) 

COPY  DEV  CHAR  POINTER 

29'. 

000332 

066760 

OOOOOOG 

177776 

ADD 

$LINK,L.CVA(RO) 

•  <  • 

295 

000340 

RE3RG 

RO 

RESTORE  REG 

296 

000342 

016767 

OOOOOOG 

OOOOOOG 

MOV 

$$DCHA,$BFR 

COPY  DEVICE  CHARACTERISTICS 

297 

OC0350 

016767 

0C0OO2G 

000002G 

MOV 

$$DCHAt2,$BFR+2 

TWO  WORDS 

298 

000356 

PUTAD 

RE-WPITE  LINE  TABLE 

299 

000362 

062703 

000004 

10$: 

ADD 

#4,R3 

300 

000366 

RETURN 

301 
302 
303 
304 
305 

.   .    _    _ 

;  PROTOCOL  EMULATOR  CHARACTERISTICS 

'00370 

005767 

000154- 

PECHA 

TST 

FLAGS 

IS  IT  MUX  EXPANSION  ? 

306 

00374 

001440 

BEC 

10$ 

NO  .. 

3C7 

50376 

126467 

000013 

000152' 

CMPB 

L.UNT(R4), INDEX 

DO  UNIT  NUMBERS  MATCH  ? 

308 

00404 

001034 

3NE 

10$ 

NO  .. 

309 

00406 

010377 

OOOOOOG 

MOV 

R3,S$ADRZ 

•  VIRTUAL  ADDRESS 

31C 

■00412 

005077 

OOOOOOG 

CLR 

a$ADRX 

•  BIAS 

311 

00416 

005767 

OOOOOOG 

iST 

.MGMGE 

•  MEMORY  MANAGEMENT  SYSTEM? 

31" 

j00422 

100413 

BMI 

5$ 

•  NO  IF  MINUS 

31 

000424 

020327 

120000 

CMP 

R3, #120000 

;  PARTITION  LINE  TABLE 

E  10 


VE>;5      CREATED  BY  MACRO  ON  29-jm-b5   AT  02:28 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TR! 

__THD 

LTAB 

L.COST 

L.CTL 

L.CVA 

L.DDH 

L.DDS 

L.OLC 

L.OLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.NSTA 

L.OUNR 

L.UNT 

MPTAB 

MXPTB 

MXTAB 

NOD 

PEC  HA 

PR  I 

PRTOV 

SCOM 

SECSR 

SF.ACT 

SF.ENA 

5F.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SE.'; 

SF.SVC 

jF.UNL 

SlUB 

SLNW 

STN6 

STNW 

SYSFDB 

s.casT 

S.FLG 
S.LEN 
S.NMST 
S.OWNR 


000001 
000002 
000002 
000017 
000360 
000006 
000572  R 
000600  R 
00001 5 
000012 
177776 
000002 
OOOOOA 
000003 
000006 
000010 
OOCOOO 
000016 
000022 
000022 
000020 
OOOOU 
000021 
000013 
001156  R 
001242  R 
OOlOA-i  R 
OOOf  ■ '»  R 
0003('0  R 
0006'^'-  R 
0006,::^  R 
000626  R 
000640  R 
000200 
000100 
000004 
000040 
000020 
:  000010 

:  000001 
:  OOO'Od 

000040 

000^76  R 

001002  R 

001010  R 

001014  - 


00000 1 
000000 
000004 
000002 
000003 


GX 


REFERENCES 

#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 

5-98 

5-99 
#5-65 
#5-65 
#5-6"^ 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 

5-100 

5-118 

5-101 

5-102 

5-119 

5-103 

5-104 

:-105 

5-106 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 

5-107 

5-108 

5-109 

5-110 
*7-290 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 


#7-362 
#7-368 


.7-293 
6-179 
8-483 


7-278 
#8-508 
#9-531 
#8-475 
#7-381 
#7-305 
#7-374 
#7-388 
#7-395 
#7-402 


#7-432 
#7-438 
#7-4'.4 
#7-450 
♦7-319 
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CREF   04.00 


*7-294 
9-553 


7-307 


7-405 


8-481 


9-551 


*7-423 


.q-542 


•10-627 


•10-675 
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244 
245 
246 
247 
248  000052 

.S8TTL 

DTE$Df  ACTION  ROl 

•  START 

OF  DTE 

ADDRESS 

005067 

OOOOOOG 

DTEAST: 

CLR 

DTEFLG 

249  000056 

012700 

000017 

MOV 

#DTEALN,R0 

250  000062 

012701 

OOOOOO' 

MOV 

#DTEAD0,R1 

251  000066 

105021 

10$: 

CLRB 

(R1)» 

252  000070 

005300 

DEC 

RO 

253  000072 

0033^5 

BGT 

101 

254  000074 

105067 

000035' 

CLRB 

COUNT 

255  000100 

012767 

OOOOOO'  000040' 

MOV 

#DrEADD,NEXT 

256  0OC1O6 

CALL 

STRNXT 

257  000112 

RETURN 

258 
259 
260 
261 
262  000114 

;•  PROCESS  DTE  ADDRESS  DIGIT 

026727 

000040'  000016' 

DTEDIG: 

CMP 

NEXT,#DTEND 

263  000122 

101003 

BHI 

101$ 

264  000124 

CALL 

STRNXT 

265  000130 

RETURN 

266 

267 
268 

269  000132 

;  ERRORS 

i01$: 

EMSG$R 

03 

270 
271 

272 

;  END  OF  DTE  ADDRESS 

273 

274  000 HO 

004567 

OOOOOOG 

DTEAEN: 

JSR 

R5,$SAVRG 

275  OOC'  44 

012700 

000010 

MOV 

#<DTEALNt1>/2,R0 

276  0C.150 

012704 

OOOOOO' 

MOV 

*DTEADD,R4 

277  000154 

012705 

000017' 

MOV 

#DTEPCK,R5 

278  000160 

279 

280  000164 

CALL 

PCKBCD 

012700 

000027' 

MOV 

#DTNTNM,R0 

281  000170 

012701 

000006 

MOV 

#DTNMMX,R1 

282  000174 

CALL 

SPULL 

2i33  ':00200 

032767 

OOOOOOG  OOOOOOG 

BIT 

#PF.XDF,$PFLAG 

284  000206 

285 

286  000210 

001024 

BNE 

20$ 

016700 

OOOOOOG 

MOV 

$PSIPT,RO 

287  000214 

062700 

000024 

ADD 

#H$NETW,RO 

288  000220 

GETRV 

RO,#DTNMMX 

289  000236 

012700 

OOOOOOG 

__ 

MOV 

#$BFR,RO 

290  000242 

012701 

000027' 

mv 

#DTNTNM,R1 

291  000246 

012702 

000005 

MOV 

#DTNMMX,R2 

292  000252 

112021 

10$: 

M0V6 

(R0)t,(R1)t 

293  000254 

005302 

DEC 

R2 

294  000255 

295 

296  000250 

003375 

BGT 

10$ 

20$: 

RETURN 

INITIALISE  FLAGS  (ON/OFF  BITS) 
GET  LENGTH  OF  DTE  ADDRESS 
GET  ADDRESS  OF  BUFFER 
INITIALIZE  BUFFER 
MORE  TO  INITIALIZE? 

op  rp  yc^ 

INITIALIZE  DTE  DIGIT  COUNT 

START  STORING  AT  BEGINNING  OF  BUFFER 

STO/^E  CHARACTER 


IS  ADDRESS  TOO  MANY  CHARACTERS? 

BR  IF  YES 

STORE  NEXT  DIGIT 


ILLEGAL  D^E  ADDRESS 


SAVE  R3-R5 

GET  LENGTH  OF  PACKED  ADDRESS 

GET  ADDRESS  OF  DTE  ADDRESS  BUFFER 

GET  ADDRESS  OF  PACKED  ADDRESS  BUFFER 

PACK  ADDRESS  IN  BCD  FORMAT 

Clear  DTE  name  to  spaces 


Check  for  extended  data  format 

If  extended,  cannot  default  DTE  name 

POINT  TO  HOME  BLOCK 

POINT  TO  DEFAULT  NET  NAME 

READ  IN  NE^'WORK  NODE  NAME 

POINT  TO  NETWORK  NODE  NAME 

POINT  TO  LOCAL  STORAGE  OF  NAME 

GET  SIZE  OF  NAME 

SET  UP  DEFAULT  FOR  DTE 

MORE  TO  SET  UP? 

YES,  SET  AWAY 

ELSE  COMPLETED 


.-[TDOOI] 
.-CTDOOI] 
; [TDOOI] 
.-[TDOOI] 
.-[TDOOI] 
.-[TDOOI] 


;  [TDOOI] 
; [TDOOI] 
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CfiEF       OA.OO 


SYMBOL   VALUE 


SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

5F.SEW 

SF.SVC 

SF.UNL 

SPACE 

SPFILL 

STRNXT 

SYNERR 

SYSFOB 

S$$BAS 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

SALPHA 

$ANY 

$BFR 

SBLANK 

SCATS 

SCDTB 

SCEACC 

SDIGIT 

SDNUMB 

$EOS 

SERROO 

$ERR03 

SERROA 

$ERR05 

$ERR06 

SERRIT 

SEX  IT 

SFAIL 

SGETAD 

SGETRV 

SGPRM 

SLAMDA 

SNUMBR 

SPFLAG 

SPSIPT 

SQDTE 

SRADDR 

SRA050 

SRBLCK 

SRONLY 

SSAVAL 

SSAVRG 

SSTRNG 


GX 


=  OOOOOA 

=  000040 

=  000020 

=  000010 

=  000001 

=  000002 

=  000040 

=  000040 

r  ****** 

000706  R 
=  ******  GX 
=  ******  GX 
=  ****** 

000001 

000000 

000004 

000002 

000003 
=  000022 
=  000020 

::  ****** 

=  000006 

::  *iT**** 
=  X***** 

=  000024 

=  000014 

=  000012 
000046  R 
000106  R 
000140  R 
000170  R 
000224  R 

rr  *♦*♦»♦ 

--  000000 
=   177777 

~   *♦*♦*■♦ 

r  ****** 
=     ****** 

=  000000 
=  00C002 

r  ****** 

"  000000  RG 

:  ******    GX 

=  000016 

=  ♦****♦   GX 

=  ****** 

-   ******   GX 

=  ******   GX 

=  000004 


GX 

GX 
GX 
GX 


GX 


GX 
GX 


GX 
GX 


REFERENCES 

#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#6-84 

12-282 

12-256 
♦9-157 
•12-288 

8-128 

8-132 
#5-67 
#5-67 
#5-67 
#5-67 
#5-67 
#10-173 
#10-173 

12-289 
#10-173 

18-432 

19-475 

16-388 
#10-173 
#10-173 
#10-173 
#8-128 
#8-129 
#8-130 
#8-131 
#8-132 

9-167 
#10-173 
#10-173 

16-389 

12-288 

10-173 
#10-173 
#10-173 

'2-283 

12-286 
#',-151 
♦12-288 
#10-173 

16-381 

10-173 

16-377 

12-274 
#10-173 


12-264 
♦9-160 
♦16-380 

8-128 


#19-470 

♦16-389 
8-129 


8-129 


8-130 


8-150 


8-131 


-131 


8-132 


16-383 


14-347 
12-269 
13-316 
13-327 
18-452 


16-380 


16-378 

♦16-380 

♦16-399 
10-173 


16-391 


15-359 


♦16-589 


10-173 
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297 

.SBTTL 

PVC$DF  ACTION 

298 

299 

300 

301 

PVC  CIRCUIT  ID 

302 

303  000056 

hum: 

304  000056 

012700 

000036' 

MOV 

#PVCNML,RO 

305  000062 

012701 

000006 

MOV 

#PVNAMX,P1 

306  000066 

CALL 

STORID 

307  000072 

103413 

BCS 

101$ 

308  000074 

016767 

OOOOOOG  000014' 

MOV 

$X3D8S,PVCPSZ 

309  000102 

016767 

OOOOOOG  000016' 

MOV 

$X3DWS,PVCWSZ 

310  000110 

005067 

000020' 

CLR 

PVfOWN 

511  000114 

105067 

000035' 

CLRB 

PVCFLG 

312  000120 

RETURN 

313 

314 

315 

316  000122 

ERRORS 

01$:   EHSGSR 

NO 

■yi8 

319 
320 
321  000130 

LOGICAL  CHANNEL  NUMBER 

005767 

OOOOOOG 

=VLCN:   TST 

.PNUMH 

322  000134 

001011 

BNE 

101$ 

323  000136 

016700 

OOOOOOG 

MOV 

.PNUMB,RO 

324  000142 

003406 

BLE 

101$ 

325  000144 

020027 

OOOOOOG 

CMP 

RO,*CHNLMX 

loh 

326  000150 

101003 

BHJ 

327  000152 

010067 

000010' 

MOV 

RO.PVCLCN 

328  000156 

RETURN 

329 

330 
331 
332  000160 

ERRORS 

01$:   EMSG$R 

09 

333 

334 

335 
336 

337  000166 

■  COUNTER  TIMER 

005767 

OOOOOOG 

=VCT:    TST 

.PNUMH 

338  000172 

001004 

BNE 

101$ 

339  000174 

016767 

OOOOOOG  000012' 

MOV 

.PNUMB,PVCCTM 

340  000202 

RETURN 

341 

342 
343 

344  000204 

;  ERRORS 

-  --  - 

ioi$:   EMSGSR 

05 

ADDRESS  OF  BUFFER  TO  CONTAIN  PVC  NAME/COUNT 

MAX  LENGTH  FOR  OLD-FORMAT  PVC  NAME 

STORE  PVC  NAME 

BRANCH  IF  NAME  TOO  LONG 

SET  UP  DEFAULT  MAXIMUM  BLOCK  SIZE 

SET  UP  DEFAULT  WINDOW  SIZE 

INITIALIZE  PROCESS  OWNER 

INITIALIZE  FLAGS  BVTE 


ILLEGAL  CIRCUIT  ID 


LEGAL  VALUE? 

BR  IF  NO 

GET  SPECIFIED  LOGICAL  CHANNEL  NUMER 

BR  IF  ILLEGAL  VALUE 

LEGAL  VALUE? 

BR  IF  NO 

STORE  LOGICAL  CHANNEL  NUMBER 


ILLEGAL  LOGICAL  CHANNEL  NUMBER 


;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
.-CTDOOIJ 
;»*-13 


LEGAL  VALUE? 

BR  IF  NO 

SAVE  COUNTER  TIMER  VALUE 


ILLEGAL  COUNTER  TIMER  VALUE 


F  U 
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Symbol  table 


ABS. 

DATA 
SSTATE 
SKTAB 
SICSTR 


177776 
00215^ 
000442 
000212 
000006 
000016 


Errors  detf.ted: 


000 
001 
002 
003 
004 
005 
0 


{RW,1,GBL,ABS,0VR) 


(RW, 
(RW, 
(RW, 
(RW, 
(RW, 


1,LCL,REL,C0N) 
D,LCL,REl ,CON) 
D,LCL,REL,CON) 
D,LCL,REL,CON) 
D,LCL,REL,CON) 


••«  Assembler  statistics 


Work  tile  reads: 
Work  tile  wri  tes : 
Size  of  work  file: 
Size  of  core  pool 


87 

86 

23533  Words     (  92  Pages) 

17608  Words     (  67  Pages) 


Ooerating     system:    RSX-11M/PLUS 

SY:VFGPVclv2![?3^?U°]VFGPVC/CR/-SP=Sy:[l  J]RSXMCM.SML/I*IL  J130J103NETLI8/ML  J130,10]RSXMCM/PA:1,[132,10]VFGPVC 


F    IS 


L 


V:% 


VFGSVC  -  CONfIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  02:30  Page  7 
ERROR  MESSAGES 

137  .SSTIL  ERROR  MESSAGES 

138 

139  .ENA8L  LC 

UO  000056  NTLERS  ,3D,88,CFERR,RTSPC, ,<packet  size> 

U1  000102  NTLERS  JE  ,88,CFERR,RTSPC,  ,<window  size> 

142  000126  NTLERS  ,3F  ,88,CFERR,RTSPC, ,<f lags  word> 

K3  000152  NTLERS  ,3G,88,CFERR,RTSPC, ,<fnaximufn  recaUs> 

UA  000202  NTLERS  ,3H,88,CFERR,RTSPC,  ,<recaU  tmer> 

K5  000250  NTLERS  ,31 ,88,CFERR,RTSPC ,  ,<DTE  addiess> 

U6  00025A  NTLERS  ,3J  ,8B,CFERR,RTSPC,  ,<owner>                _  . 

K7  000272  .    NTLERS  ,3K,8,CFERR,RTSPC,  ,<SVC  descriptor  atlocation  faUure> 

148  000344  NTLERS  ,3,M,8,CFERR,RTSPC,  ,<DTE  address  missing> 

149  000400  NTLERS  ,3Z,8,CFERR,RTSPC, ,<PS1  not  loaded> 

150  .DSA8L  LC 
151 
152  000000  .PSECT 


P  1A 


E     1 

VENA  -  VNP   ENABLE/DISABLE   LINES  MACRO  V05.0?b  Wednesd'-iy   n-Sep-85   12:06 
FNDFIL   -   flND   FILTER  BLOCK 


Page  61 


3A0fc 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

.434 

3435 

3436 

3437 

3438 

3439 

3440 

3441 

3442 

3443 

3444 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

3458 

3459 

3460 


015534 
015540 
015544 
015550 
015556 
015560 
015566 
015570 
015602 
015620 
015626 
015634 
015642 
015644 
015650 
015654 
01 5660 
015664 
015666 
015674 
015676 
015704 
015706 
015714 
015716 
015724 
015726 
015734 
015736 
015744 
015746 
015754 
015756 
C15760 
015764 
015770 


.SBTTL     FNDFIL   -  FIND   FILTER  BLOCK 


FNDFIL  -  FIND  FILTER  BLOCK 

INPUTS: 

CLASS  -  EVENT  CLASS  (IN  BITS  6-15.) 

RQB   -  REQUEST  BLOCK  FOR  SET/CLEAR  LOGGING  COMMAND 

OUTPUTS- 

CARRY  CLEAR: 

$BFR  -  CONTENTS  OF  FILTER  BLOCK 
RO  -  UNMAPPED  ADDRESS  OF  MATCHING  BLOCK 
R1  -  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 
CARRY  SET: 

FILTER  BLOCK  NOT  FOUND 


012700 
011067 
010067 
016767 
000261 
016767 
001474 


01676- 
04276/ 
022767 
001402 

016746 
042716 
026726 
001331 
026767 
001325 
032767 
001404 
026767 
001315 
032767 
001404 
026767 
001305 
032767 
001404 
026767 
001275 
000241 
016701 
016700 


FNDFIL: 


OOOOOOG 
OOOOOOG 
000164" 
000164'  000166'  10$: 

OOOOOOG  000164' 


20$: 


000002G  OOOOOOG 
177700  OOOOOOG 
000016  OOOOOOG 


000002G       25$: 

000077 

000074' 

000014G  000120' 

100000  000120' 

000026G  000130' 

000020  000120'  30$: 

000016G  000132' 

000010  000120'  40$: 

000020G  OOOOOOG 


000166' 
000164' 


50$: 
60$: 


MOV 

MOV 

MOV 

MOV 

SEC 

MOV 

BEQ 

CEACC$ 

GETAD 

MOV 

BIC 

CMP 

BEQ 

GETAD 

MOV 

BIC 

CMP 

BNE 

CMP 

BNE 

BIT 

BEQ 

CMP 

BNE 

BIT 

BEQ 

CMP 

BNE 

BIT 

BEQ 

CMP 

BNE 

CLC 

MOV 

MOV 

RETURN 


#$FILHD,RO 
(R0),$BFR 
RO.CURUNM 
CURUNM.PRVUNM 

$8Ffi,CURUNM 

60$ 

CURUNM,RO 

RO,#F.LEN 

F.CLS+$BFR,$RSIZE 

#*C<FF.MSK>,$RSIZE 

*F.LEN,$RS1ZE 

25$ 

F.CLS+$BFR,-(SP) 

#FF.MSK.(SP) 

CLASS, (b?)t 

10$ 

F.FLG+$BFR,EVQUAL 

10$ 

#FF.REM,EVQUAL 

30$ 

F.REMt$BFR,SINKND 

10$ 

#FF.ADD,EVQUAL 

40$ 

F.ADD+$BrR, REMOTE 

10$ 

#FF.LIN,EVOUAL 

50$ 

F.LIN+$BfR,$SLN 

10$ 

PRvUNM.-RI 
CURUNM,R0 


POINT  TO  FILTER  BLOCK  LISTHEAD 

GET  ADDRESS  OF  FIRST  BLOCK  IN  LIST 

INIT  UNMAPPED  ADDR  OF  CURRENT  BLOCK 

SAVE  UNMAPPED  ADDR  OF  PREVIOUS 

ASSUrE  FAILURE 

GET  NEXT  BLOCK  IN  LIST 

BR  IE  END  OF  LIST 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  FILTEF  BLOCK 

GET  REAL  LENG'H  OF  BLOCK 

Is'tHIS  the  CORRECT  LENGTH? 

BR  IF  YES 

ELSE  READ  IN  ENTIRE  FILTER  BLOCK 

GET  EVENT  CLASS  AND  BLOCK  SIZE 

ISOLATE  EVEN,'  CLASS 

DOES  THIS  EVENT  CLASS  MATCH? 

BR  IF  NO 

MATCH  ON  SINK  TYPE  OR  QUALIFIERS? 

BR  IF  NO 

QUALIFIED  BY  SINK  NODE? 

BR  IF  NO 

HATCH  ON  SINK  NODE  ? 

BR  IF  NO 

QUALIFIED  BY  REMOTE  NODE? 

BR  IF  NO 

MATCH  ON  REMOTE  NODE? 

BR  IF  NO 

QUALIFIED  BY  LINE? 

BR  IF  NO  —  FOUND  IT 

MATCH  ON  LINE? 

BR  IF  NO  —  KEEP  LOOKING 

GET  UNMAPPED  ADDRESS  OF  PREVIOUS 
GET  UNMAPPED  ADDRESS  OF  CURRENT 


umn     cuiADi  c/fMCADi   c     I    Thjcc     MATDn     v/A^     (T^K    UaHrvQCiHiu     11-C;on-.R'^     1?' 
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INIEVT    -    INITIALIZE    THE    EVENT   FILTER  MASKS 


3856 
3857 
3858 
3859 
3860 
3861 
3862 
3863 
386^. 
3865 
3866 
386^ 
3868 
3869 

3870  01745A     005021 

3871  017A56     005021 

3872  017A60     005021 

3873  :i7A62     005021 

3874  J1746A 


.S8TTL      INIEVT   -    INITIALIZE    THE   EVENT   FILTER   MASKS 


INIEV1    -   INITIALIZE   THE   EVENT  MASKS 

INPUTS: 

R1    -  ADDRESS   OF    E\/ENT   FILTER  MASKS    IN  FILTER   CONTROL  BLOCK 

OUTPUTS: 

R1    -  POINTER   TO   END  OF    FILTER  MASKS    IN  CONTROL   BLOCK 


INIEVT:  CLR 
CLR 
CLR 
CLR 
RETURN 


(R1)  + 
(R1H 
(R1)  + 
(R1)  + 


CLEAR   THE   EVENT  MASK   FIELD    IN  SLOCK 


F     2 


rr     UArnr\     wHC     A7K     Li«^«n.-/J-,v.     11-.CQr,_ac;     ^  0  ■  f\A         Da 


VENA  -  VNP  E^^ABIE /DISABLE  LINES  MACRO  V05.05b  Wednesaay  11-Sep-85 
RUN  -  RUN  A  TASK 


E  3 
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4237 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305  021232 

012701 

000020 

4306  021236 

4307  021242 

103513 

4308 

4309  021244 

010046 

4310  021246 

010546 

4311  021250 

010446 

4312 

4313  021252 

012704 

OOOOOOG 

4314  021256 

012705 

000050' 

4315 

4316  021262 

012665 

000006 

4317  021266 

012765 

000004  000002 

4318  021274 

005065 

000012 

4319  021300 

005065 

000014 

4320  021304 

012665 

000004 

4321  021310 

4322  021330 

061465 

000006 

4323  021334 

005565 

000010 

4324 

4325 

4326 

4327  021340 

•702 

OOOOOOG 

4328  021344 

4329 

4330  021362 

010203 

4331  021364 

011402 

4332  021366 

001421 

4333  021370 

4334  021400 

026564 

000004  000004 

4335  021406 

001432 

4336  021410 

026564 

000010  000010 

4337  021416 

101361 

4338  021420 

103404 

4339  021422 

026564 

000006  000006 

4340  021430 

101354 

43A1 

4342  021452 

010215 

4343  02U34 

012600 

.SBTTL  RUN  -  RUN  A  TASK 
♦»-RUN-RUN  TASK 


INPUTS: 
R4 
R5 


NUMBER  OF  TICKS  TO  DELAY  FROM  SYSTEM  BOOT 
TCB  ADDRESS  (  IN  SYSTEM  IMAGE  ) 


OUTPUTS: 

C-8IT  SET  IS  NO  NODE  AVAILABLE 
CLOCK  QUEUE  ENTRY  GENERATED 


NOTE:  THIS  ALGORITHM  WILL  RUN  THE  TASK  BEFORE  ANY  OTHER  TASK 
SCHEDULED  TO  RUN  WITH  THE  SAME  DELAY  FACTOR, 
(  UNLIKE  VMR  RUN  COMMAND  ). 


RUN: 


MOV  #C.LGTH,R1 

CALL  SALLl' 

BCS  '00$ 

MOV  RC,-(SP) 

MOV  R5,-(SP) 

MOV  R4,-(SP) 

MOV  #$8FR,R4 

MOV  #CLKQ8,R5 


SIZE  OF  CLOCK  QUEUE  ENTRY 
ALLOCATE  SPACE  FROM  RSX11M  POOL 
NO  SPACE  AVAILABLE 

SAVE  NODE  ADDRESS 
AND  TCB  ADDRESS 
AND  *  OF  TICKS 

R4  POINTS  AT  VIRTUAL  I/O  BUFFER 
R5  AT  CLOCK  QUEUE  ENTRY 


MOV 

MOV 

CLR 

CLR 

MOV 

GETRV 

ADD 

ADC 


(SPH,C.TIMCR5)  ;  SET  NUMBER  OF  TICKS 
#C.SSHT,C.RQT(R5)  ;  SINGLE  SHOT 


C.RSI(r5) 

C.RSI+2(R5) 

{SP)+,C.TCB(R5) 

.ABTIM,#2 

(R4),C.TIH(R5) 

C.TIM+2(R5) 


NO  RESCHEDULE  INT.  COUNT 

NO  RSI  UNITS 

SET  TCB  ADDRESS 

GET  ABSOLUTE  TIME  COUNTER 

FORM  ABSOLUTE  TIME  UF  REQUEST 


INSERT  NEULY  FORMED  ENTRY  INTO  CLOCK  QUEUE  IN  TEMPORAL  SEQUENCE 


10$; 


30$: 


MOV 
GETRV 

MOV 

MOV 

BEO 

GETRV 

CMP 

BEQ 

CMP 

BHI 

BLO 

CMP 

BHI 

MOV 
MOV 


.CLKHD,R2 
R2,*C.LGTH 


PREVIOUS  ENTRY 
READ  IN  LISTHEAD 


R2,R3         ;  SAVE  PREVIOUS  ENTRY  ADDRESS 

(R4),R2        ;  GET  ADDRESS  OF  NEXT  ENTRY 

30$  ;  END  OF  LIST 

R2  ;  READ  IN  NEXT  CLOCK  QUEUE  ENTRY 

C.TC8(:f5),C.TCB(R4)  ;  TASK  ALREADY  ACTIVE  ? 

101$  ;    YES 

C.TIMt2(f5),C.TIM+2(R4)    ;   NEW  ENTRY  AT   LATER   TIME 

10$  ;   NO 

30$  ;    YES 

C.TI«1(R5),C.TIM(R4)    ;    MAYBE 

10$  ;   PREMPT   IF    TIME   IS   SAME 


R2,(R5> 
(SP)+,RO 


POINT  OUR  NEW  ENTRY  AT  NEXT 
GET  OUR  ENTRY'S  ADDRESS 


F  3 


VENA 


CREATED  BY     MACRO     ON  11-SEP-85  AT   12:08 


000030 

000043 

000050 

000002 

000036 

=  ****** 

=  ****** 

=  ****** 


000001 
0031 3A  R 
000336  R 
001040  R 
001104  R 
001136  R 
001176  R 
001244  R 
001314  R 
001342  R 
001414  R 
001442 
000372 
001472 
001520 
001572 
001636 
001664  R 
001726  R 
001762  R 
002020  R 
002054  R 
002110  R 
000424  R 
002144  R 
002176  R 
002236  R 
002306  S 
002354  R 
002402  R 
002444  R 
002476  R 
002546 
002614 
000462 
0C2670 
C02742 
003000 
003050 
003122 
003152 


GX 
GX 
GX 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


DSNlN 

DiOUTT 

DSRETF 

D$RNN 

DSSEG 

D.NAM 

D.PCB 

D.UCB 

EFSACT 

ENALIN 

ERR1 

ERR10 

ERR12 

ERR13 

ERR14 

ERR15 

ERR16 

ERR17 

ERRiS 

ERR19 

ERR2 

ERR20 

ERR21 

ERR22 

ERR23 

ERR24 

ERR25 

ERR26 

ERR27 

ERR28 

ERR29 

ERR3 

ERR30 

ERR31 

ERR32 

ERR33 

ERR3^ 

ERR35 

ERR3o 

ERR37 

ERR38 

ERR39 

ERR4 

ERR40 

ERR41 

ERR42 

ERR43 

ERR44 

ERR45 

ERR46 

ERR47 

ERR48 


003226  R 
003500  R 
003350  R 


REFERENCES 

♦74-4011 

*26-1325 

♦26-1359 
27-1402 

•26-1291 
77-4165 
77-4164 
38-1911 

#5-79 
11-489 

#9-218 

#9-238 

#9-240 

#9-242 

#9-244 

#9-246 

#9-248 

#9-250 

#9-252 

#9-254 

#9-220 

#9-256 

#9-258 

#9-260 

#9-262 

#9-264 

#9-266 

#9-268 

#9-270 

#9-272 

#9-274 

#9-222 

#9-276 

#9-278 

#9-280 

#9-282 

#9-284 

#9-286 

#9-288 

#9-290 

#9-292 

#9-294 

#9-224 

#9-296 

#9-298 

#9-300 

#9-302 

#9-304 

#9-306 

#9-308 

#9-310 

#9-312 


74-4026 
♦27-1404 

49-2773 

#23-1064 
11-514 
39-2058 
39-2063 
39-2069 
39-2064 
39-2062 
39-2065 
27-1465 
27-1466 
27-1467 
11-515 
41-2283 
11-522 
16-756 
38-1926 
42-2436 
42-2437 
42-2313 
44-2534 
40-2664 
28-1594 
38-1925 
41-2285 
13-614 
13-615 
14-647 
15-679 
16-753 
16-752 
16-755 
57-5228 
47-2712 
83-4596 
54-3073 
53-3042 
47-2713 
80-4250 
79-4210 
40-2170 
40-2172 


E  « 

PAGE  3 

CREF   04.00 


28-1577    28-15^9 


50-2830 


40-2177 
82-4356 
40-2178 
40-2176 
40-2179 
28-1591 
28-1592 
28-1593 


16-754 


41-2284 
42-2458 


17-805 


20-941 


21-996 


22-1049         24-1154 


42-2565    45-2469 

85-4595 

14-646     15-678 

17-802    20-940    21-995 
59-5555 


22-1048 


F  4 


VfNA      CREATED  BY  MACRO  ON  11-SEP-85  AT  12:08 
SYMBOL  CROSS  REFERENCE 


E  5 

PAGE  16 

CREF   OA.OO 


SYMBOL  VALUE 


TSLLEN 

TSLOPR 

TSLTCL 

TSLTIM 

TSLTPR 

TSLTPS 

T$NAPL 

TSNFE 

TSNLEN 

TSNNUL 

TSNOPL 

TSNRN! 

TSNRPL 

TSNRUL 

T$NVR 

TSRPRI 

TSSVC 

T$T5 

T$T6 

T.ACT 

T.CHA 

T.CSR 

T.ITM 

T.NAM 

T.OUE 

T.QU2 

T.RCVL 


000046 
000002 
00002A 
000026 
000014 
000020 
OOOOOA 
000000 
000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 
000031 
000032 
000022 
000001 
000006 
000024 
000026 
000012 


T.RTY 

0U0030 

T.ST2 

000034 

T.TCBL 

000030 

T.TMR 

000000 

T.TRLG 

=  000076 

T.TRLN 

000005 

T.TRPN 

000004 

T2.FXD 

=  002000 

U.CNT 

000030 

U.CWI 

000010 

U.CW3 

000014 

U.RED 

000002 

VALI 

011734 

VFSRCV 

=  100000 

VFSXMT 

=  040000 

VF.ACP 

-   ****** 

VF.AOD 

=  ****** 

VF.DLX 

-   ****** 

VF.EAD 

=  ****** 

VF.FIX 

=   ****** 

VF.ON 

z   ****** 

>.F.PEM 

1    ****** 

v'F.SED 

-    ****** 

VF.SKA 

=  ****** 

GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 

#5-Le 

#5-82 

#5-82 

#5-82 

#5-82 
84-4423 

#5-82 

#5-82 
39-1991 
76-4140 

#5-82 
39-1959 

♦84-4417 

#5-82 
22-1037 
22-1038 

*13-607 
39-1959 
49-2774 
49-2779 
38-1912 
49-2775 
42-2309 
36-1840 
37-1878 
39-2024 
26-1264 
11-414 
54-3061 
39-2010 
11-474 
39-1940 
12-539 
53-3025 


81-4275    81-4280 


*80-4227 
►79-4207 


84-4425 
5-82 

39-1993 
76-4142 

39-1971 
84-4419 


39-1971 
50-2831 
50-2836 
38-1913 
49-2777 
#43-2464 
36-1850 
37-1888 

28-1490 
11-479 

40-2152 

11-518 

83-4387 


♦39-2001       ^39-2002        40-2134         40-2136       ♦40-2143       ^40-2144         75-4092 
40-2102         40-2118 


40-2102         40-2118 


♦38-1915 
50-2832 


28-1504 
11-494 


39-1984 
83-4394 


♦38-1918 
50-2834 


42-2365 

11-510 


23-1065         24-1098         39-1940         39-1984         83-4587 


40-2129         55-5100 


F     5 


E  6 

VlXP      created  BV  macro  on  ?9-JUN-85  at  02:27     PAGE  1 

SYMBOL  CROSS  REFERENCE  CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

FL.CHA 

=   *♦%*** 

GX 

5-76 

SADDR 

=   ***t** 

GX 

5-72 

SFLAGS 

~      •**♦♦* 

GX 

5-76 

SFLAG1 

r  ****** 

GX 

5-7A 

SNALL 

-  ****** 

GX 

5-81 

$VEXP 

000000 

RG 

#5-71 

$VEX2 

=  ****** 

GX 

5-78 

$VEX3 

-  ***  t  ,* 

GX 

5-83 

$VEX5 

-  ****** 

GX 

5-86 

F  6 


E  7 

VEX2  -  VNP  EXPANSION  ROUTINES   MACRO  V05.03b  Saturday  29-Jun-85  02:27  Page  8 


4^1 
442 
443 

444  000774 

445  000776 
446 

447  001000 

448  001004 
449 

450  001006 

451  001010 
452 

453  001012 

454  001014 

455  001020 

456  001022 
457 

458  001024 
459 

460  001030 

461  001034 
462 

463  001036 

464  001042 
465 

466  001044 

467  001050 

468  001052 

469  001054 

470  001056 

471  001062 


112524 
112524 

005767 
100402 

112524 
112524 

112546 
112566 
012603 
001417 

016702 

005767 
100403 

016422 
000402 

016422 
006303 
005203 
010322 
010267 


OOOOOOG 


000001 

OOOOOOG 
OOOOOOG 

177774 

177776 

OOOOOOG 


POINTER  TO  ALLOCATED  CORE 


COPF- 


M0V8    (R5)+,'R4)t 
Move    (R5)-,(R4)t 


5$: 


10$: 
20$: 


30$: 


TST 
BMI 

MOVB 
MOVB 

MOVB 
MOVB 
MOV 
BEQ 

MOV 

TST 
BMI 

MOV 
BR 

MOV 
ASL 
INC 
MOV 
MOV 
RETURN 


.MGMGE 
5$ 

(R5)+,(R4)+ 
(R5)+,(R4)t 

(R5)+,-(SP) 
(R5)+,1(SP) 
(SP)+,R3 
30$ 

$UDA,R2 

.MGMGE 
10$ 

-4(R4),(R2)t 
20$ 

-2fR4),(R2)t 

R3 

R3 

R3,(R2)+ 

R2,$UDA 


COPY  FIRST  WORD  OF  ADDRESS 

MEMORV  MANAGEMENT  SYSTEM  ? 
NO 

COPY  SECOND  WORD  OF  ADDRESS 

ASSEMBLE  COUNT 

IF  zero! 'no  UNLOAD  DATA  TO  STORE 

GET  UNLOAD  DATA  ADDRESS 

MEMORY  MANAGEMENT  ? 
NO 

STORE  ALLOCATION  BIAS 


STORE  ALLOCATION  ADDRESS 

SHIFT  COUNT  LEFT  1  PLACE 

MAKE  IT  ODD 

STORE  COUNT 

SET  NEW  UNLOAD  DATA    RESS 


F  7 


VEX2      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:27 
SYMBOL  CROSS  REFERENCE 


E  8 

PAGE  1 

CREF   04.00 


SYMBOL 

VALUE     , 

REFERENCES 

ADDRB 

000062   R 

5-93 

#7-200 

ADDRW 

000102  R 

5-94 

#7-208 

APR 

002212  R 

5-124 

#13-772 

BLK.B 

000130  R 

5-95 

#7-219 

BLKW 

000U2  R 

5-96 

#7-228 

BYTE 

000154  R 

5-97 

#7-237 

CORE 

000774  R 

5-98 

#8-444 

CSR 

000160  R 

5-99 

#7-243 

CTIM 

000172  R 

5-100 

#7-251 

DPRB 

002224  R 

5-125 

#13-779 

DPRW 

002232  R 

5-126 

#13-782 

DVCHA 

000200  R 

5-101 

#7-257 

DSEND 

=  000104 

7-306 

7-373 

OSLNUM 

000014 

7-375 

D$MLL 

000040 

7-307 

EOF 

000356  R 

5-102 

#7-300 

FILE 

001212  R 

5-103 

#11-520 

FLAGA 

000004   R 

#5-82 

♦12-599 

♦12-604 

12-614 

♦12-616 

12-665 

FLAGS 

000450  R 

#5-154 

♦6-177 

7-200 

7-208 

7-262 

7-289 

7-330 

7-348 

7-359 

7-389 

7-402 

7-417 

7-427 

♦11-519 

♦11-536 

♦11-542 

♦11-570 

♦  13-713 

M3-758 

FL.DDM 

=  ♦*«♦♦»      GX 

7-258 

7-285 

FL.KMX 

=   *»**«*      GX 

7-333 

FL.MUX 

=   »«*»«»      GX 

7-260 

7-287 

F.NRBD 

=   »«♦♦»«     GX 

♦12-667 

♦13-747 

♦13-755 

F.PRLT 

=  000001 

#5-83 

12-604 

12-614 

F.RSIZ 

i   *»♦**♦      GX 

»7-306 

♦7-373 

♦12-670 

♦13-748 

F.UFBD 

=   ♦*♦***      GX 

♦7-305 

♦7-309 

F.WRII 

=  000002 

#5-84 

12-616 

12-665 

ICBL 

000212  R 

#5-87 

♦12-605 

12-617 

♦12-657 

ICBLK 

000006  R 

#5-86 

5-87 

12-605 

12-667 

ICBPT 

000002  R 

#5-79 

♦12-606 

12-658 

•12-659 

INDEX 

000446  R 

#5-149 

♦6-176 

7-264 

7-291 

7-332 

7-350 

7-361 

7-393 

7-406 

7-419 

7-429 

♦11-531 

11-532 

♦11-535 

♦11-565 

11-566 

♦11-569 

♦13-732 

13-733 

♦13-757 

13-772 

INT 

001122  R 

5-104 

#10-493 

JSROF 

=  000012 

#5-80 

12-654 

KRBB 

000214  R 

#5-88 

LB. ADR 

=   *♦**««      GX 

12-585 

LFILE 

001 30^   R 

5-107 

#11-543 

LF.ACT 

=  100000 

#5-60 

LF.BRO 

=  000400 

#5-60 

LF.BUT 

=  900007 

#5-60 

LF.ENA 

=  002000 

#5-60 

LF.LPB 

=  001000 

#5-60 

LF.MDC 

=  000100 

#5-60 

LF.MFL 

=  004000 

#5-60 

LF.MTP 

=  000020 

#5-60 

1 F.PAC 

=  000200 

#5-60 

LF.RDY 

3  040000 

#5-60 

LF.REA 

=  010000 

#5-60 

LF.SER 

=  000040 

#5-60 

F  S 


VEX5  -  V.P  EXPANSION  ROUTINES 
CLEANUP  ROUTINES 


E  9 

MACRO  V05.0?b  Saturday  29-Jun-8^  02:27  Page  9 


224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 


000146 

000146  112546 

000150  112566     000C01 

000154  012600 

000156  112546 

000160  112566     000001 

000164  012602 

000166  005767     OOOOOOG 

000172  100401 

C0C174  122525 

000176 


LIBRARY  POINTER 


XLIBR: 


10$: 


MOVB 

(R5)+,-CSP) 

MOVB 

(R5m,1(SP) 

MOV 

(SP)+,RO 

MOVB 

(R5)+,-(SP) 

MOVB 

(R5)  +  ,1(SP) 

MOV 

(SP)+,R2 

TST 

.MGMGE 

BMT 

10$ 

CMP8 

(R5)t,(R5)+ 

CALLR 

$XLBR 

ASSEMBLE  BIAS 
AND  OFFSET 


MAPPED  TARGET  SYSTEM? 
IF  MI,  NO 

DISCARD  EXTRA  WORD 
RELEASE  LIBRARY  REFERENCE 


F   9 


VEX5   -  VNP  UPDATE    LINE 
EXPANSION  ROUTINES 


E  10 

TABLES       MACRO  V05.03b  Saturday  29-Jun-85  02:28     Page   1-2 


3K  000450 

315  000432 

316  000434 

317  000440 

318  000444 

319  000452 

320  000464 

321  000472 

322  000476 

323  000502 
324 

325 

326 

327 

328  000504 

329 

330 

331 

332 

333  000506 

334  000510 

335  000514 

336  000516 

337  000522 

338  000524 

339  000530 
340 

341 
342 
343 

344  00C532 

345  000536 

346  000540 

347  U00544 

348  00055C 

349  000552 

350  000556 

351  000562 
352 

353 
354 
355 

356  000564 

357  0005;0 
358 

359 
360 
361 

362  000572 

363  000576 
364 

365 
366 
367 

368  000600 

369  000604 
370 


103410 
010346 
042716 
012677 
016777 


160000 
OOOOOOG 
OOOOOOG  OOOOOOG 


016767  OOOOOOG  OOOOOOG 
062703  000002 


5$: 


122525 

005767  OOOOOOG 

100403 

062703  000016 

000402 

062703  000004 


005767  OOOOOOG 

100405 

062705  000006 

062703  000004 

000404 

062705  000004 

0627C3  0OOOC2 


062703  000002 


062703  000004 


062703  000002 


10$: 


BLO 

MOV 

BIC 

MOV 

MCv' 

GETAD 

MOV 

PUTAD 

ADD 

RETURN 


5$ 

R3,-(SP) 
#160000, (SP) 
(SP)+,aiADRZ 
$BJAS,a$ADRX 
#2 
i$PCHA,$BFR 

*2,R3 


NO  IF  LO 

LINE  TABLE  ADDRESS 

CLEAR  THE  APR  BITS 

NEW  VIRTUAL  ADDRESS 

BIAS  OF  PROCESS 

ACCESS  LINE  TABLE 

COPY  PROTOCOL  EMULATOR  CHARACTERISTICS 

RE-WRITE  LINE  TABLE 


END  OF  FILE 
EOF:    CRASH 

INTERRUPT  ENTRY  POINT 


INT: 


10$: 
20$: 


CMPB 

TST 

BMI 

ADD 

BR 

ADD 

RETURN 


(R5)t,(R5)t 

.MGMGE 

10$ 

*14.,R3 

20$ 

#4,R3 


LIBRARY  POINTER 


LIBR: 


10$: 
20$: 


TST 

BMI 

ADD 

ADD 

BR 

ADD 

ADD 

RETURN 


.MPMGE 

10* 

#6,R5 

#4,R3 

20i 

#4,R5 

#2,R3 


LOGICAL  LINKS 

LINKS:   ADD     #2,R3 
RETURN 


LISTHEAD 

LSTHD:   ADD     #4,R3 
RETURN 


LINE  TABLE  ADDRESS 

LTAB:   ADD     #2,R3 
RETURN 


MAPPED  lARGET  SYSTEM  ? 
NO  .. 


MAPPED  TARGET  SYSTEM  ? 
NO  .. 


F  10 


n 


VEX5      CREATED  BY  MACRO  ON  29-JUN-65  AT  0^-28 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


TABLE 

TIME 

UBA 

UBIAS 

UNB 

UNW 

WORD 

XPCHOl 

X2CH02 

X2CH05 

X2CH0A 

X2CH05 

X3CHC1 

X3CH02 

X3CH03 

X3CH0A 

X3CH05 

X3CH06 

X3CH07 

X3CH08 

X3CH09 

X3CH10 

X3CHn 

SADDR 

SADRX 

SADRZ 

$BFR 

$BIAS 

SBIN 

ShLAGS 

$GETAD 

SLINK 

SNTLHB 

$PTR 

SPUTAD 

SRSIZE 

SSLTA 

$VEX5 

$$DCHA 

$$PCHA 

$$SCSR 

.CXUNL 

.EOF 

.MGMGE 


000000  R 

00U4^  R 

000160  R 

000156  R 

001022  R 

001026  R 

001034  R 

001750  R 

001754  R 

001760  R 

001764 

001770 

001674 

001700 

001704 

001710 

001714 

001720 

001724 

001730 

001734 

001740 

001744 

;   ****** 


****** 
****** 
****** 
****** 
****** 
****** 
*****  * 
****** 
****** 
****** 
****** 
****** 

000000 

****** 
****** 
****** 
****** 

****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
RG 
GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

#5-83 

5-117 
#5-151 
#5-150 

5-111 

5-112 

5-113 

5-131 

5-132 

5-133 

5-134 

5-135 

5-120 

5-121 

5-122 

5-123 

5-124 

5-125 

5-126 

5-127 

5-128 

5-129 

5-130 

6-177 

7-281 

10-663 

7-280 
*7-296 

7-289 

6-176 

7-407 

7-290 

7-294 

10-629 

6-185 

7-298 
♦10-626 

6-178 
#6-173 

7-296 

7-320 

7-424 

10-629 

8-487 

7-251 


6-191 
#9-578 

6-181 
»10-670 
#7-456 
#7-462 
#7-468 
#12-738 
#12-743 
#12-748 
#12-753 
#12-758 
#11-681 
#11-686 
#11-691 
#11-696 
#11-701 
#11-706 
#11-711 
#11-716 
#11-721 
#11-726 
#11-731 

7-289 
10-670 
7-288 
*7-297 
7-318 


7-319 

7-321 
6-183 
7-297 


8-515 
7-282 
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8-490 
.10-624 


8-518 
♦10-669 


9-560 


7-310 

7-309 

♦7-320 

7-422 


7-423 

7-4  25 
7-292 


9-557 

7-311 


7-318 

7-317 

♦7-424 

9-541 


9-542 


7-414 

7-413 
9-543 


10-632 


7-422 

7-421 
10-673 


9-533 
9-532 


9-541 
9-540 


10-629 
10-628 


7-334 


7-344 


7-415 


9-534 


F    11 


E  12 
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298 

299 

300 

301  000262 

005767 

OOOOOOG 

302  000266 

001016 

303  000270 

016700 

OOOOOOG 

'0/.  000274 

012701 

000040 

305  000300 

020001 

306  000302 

001405 

307  00030A 

006301 

308  000306 

020127 

001000 

309  000312 

101004 

310  0003K 

000771 

311  000316 

010067 

OOOOOOG 

312  000322 

313 

3U 

315 

316  000324 

317 

318 

319 

320 

321  000332 

005767 

OOOOOOG 

322  00C336 

001001 

323  000340 

324 

325 

326 

327  000342 

HASH  TABLE  SIZE 


HSHTBL: 


10$: 


20$: 


TST 

BNE 

MOV 

MOV 

CMP 

BEQ 

ASL 

CMP 

BH] 

BR 

MOV 

RETURN 


.PNUMH 

101$ 

.PNUMB.RO 

#HSHMN,R1 

RO.RI 

20i 

R1 

R1,*HSHMX 

loh 

10$ 
RO.HSHSZ 


328 


ERRORS 
01$:   EM3G$R  04 

COUNTER  TIMER  VALUE 

CNTTIM:  TST     .PNUMH 
BNE     101$ 
RETURN 

ERRORS 

101$:   EHSG$R  05 


LEGAL  HASH  TABLE  SIZE  VALUE? 

BR  IF  NO 

GET  HASH  TABLE  SIZE 

GET  MINIMUM  SIZE  OF  HASH  TABLE 

IS  THIS  A  LEGAL  SIZE? 

BR  IF  YES 

HASH  TABLE  SIZE  MUST  BE  POWER  OF  TWO 

IS  THIS  A  LEGAL  SIZE? 

BR  IF  NO 

CHECK  FOR  LEGAL  VALUE 

SAVE  HASH  TABLE  SIZE 


ILLEGAL  HASH  TABLE  SIZE 


LEGAL  COUNTER  TIMER  VALUE? 
BR  IF  NO 


ILLEGAL  COUNTER  TIMER  VALUE 


L. 


E  13 
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SYMBOL    CROSS  REFERENCE  CREF        04.00 


SYMBOL 

VALUE 

REFERENCES 

SSUBXP 

=  000010 

#10-173 

St$FLG 

=  177777 

#10-73 

$$$KEY 

=  177777 

#10-75 

.PCHAft 

r  ****** 

GX 

19-A70 

19-47? 

.PNUMB 

-  ****** 

GX 

13-303 

18-440 

1§-^^^ 

.DNUMH 

=  ****** 

GX 

13-301 

13-321 

18-438 

.HSTCN 

=  ****** 

GX 

U-33'. 

18-429 

.PSTPT 

~     ****** 

GX 

U-337 

18-431 

.TPARS 

=  ****** 

GX 

9-158 

18-445 
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^46 
5A7 
3^8 
349 

350  000212 

351  000216 

352  000220 

353  000224 
354 

355 

356 

357  000226 

358 

359 

360 

361 

362  000234 

363  000240 

364  000242 

365  000246 
366 

367 

368 

369  000250 

370 

371 

372 

373 

374  000256 

375  000264 

376  000266 

377  000272 

378  000274 

379  000300 

380  000304 
381 

382 

383 

384  000306 

385 

386 

387 

388 

389  G00314 

390  00C'20 

391  000322 

392  000326 

393  000530 

394  000336 
395 

396 
397 
398  000340 


MAXIMUM  BLOCK  SIZE 


103403 

010067  000014' 


hPSl: 


CALL 
BCS 
MOV 
RETURN 


ERRORS 
l01$:   EMSGSR 

WINDOW  SIZE 


103403 

010067  000016' 


PVUSZ: 


CALL 
BCS 
MOV 
RETURN 


CHKSLK 

101$ 

RO.PVCPSZ 


P8 


CHKUND 

101$ 

RO.PVCWSZ 


ERRORS 
101$:   EMSGSR 


00 


022767 
103410 
016700 
005001 


010067  000020' 


PROCESS  OWNER 


000003  OOOOOOG  PVOWN: 
OOOOOOG 


CMP 

SLO 

MOV 

CLR 

CALL 

MOV 

RETURN 


#3,.PSTCN 

101$ 

.PSTPT.RO 

Rl 

$CAT5 

R0,PVCOWN 


ERRORS 
101$:   EMSG$R  N1 


005767 
00iO07 
105767 
001004 
116767 


OOOOOOG 
000001 G 
OOOOOOG  000035' 


FLAGS  BYTE 


PVFG: 


TST 

BNE 

TSTB 

BNE 

M0V8 

RETURN 


.PNUMH 

101$ 

.PNUMB+1 

101$ 

.PNUMB.PVCFLG 


ERRORS 
i01$:   EMSG$R  N2 


CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 

BR  IF  ERROR 

SAVE  MAXIMUM  BLOCK  SIZE 


ILLEGAL  MAXIMUM  BLOCK  SIZE 


CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 
BR  IF  ILLEGAL  VALUE 
SAVE  WINDOW  SIZE 


ILLEGAL  WINDOW  SIZE 


LEGAL  PROCESS  OWNER? 

BR  IF  NO 

POINT  TO  STRING  TO  CONVERT  TO  RAD50 

PERIOD  IS  NOT  A  VALID  TERMINATOR 

CONVERT  TO  RAD50 

SAVE  PROCESS  OWNER  NAME 


ILLEGAL  PROCESS  OWNER  NAME 


LEGAL  VALUE? 
BR  IF  NO 
LEGAL  VALUE? 
BR  IF  NO 
SAVE  FLAGS  BYTE 


ILLEGAL  FLAGS  BYTE  VALUE 


n 


VFGPVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:30 
SYMBOL  CROSS  REFERENCE 


8-167 


SYMBOL 

VALUE 

REFERENCES 

ALLXCB 

000434   R 

13-414 

#14-438 

BIA5X 

001466  R 

16-547 

#18-626 

CERR 

=   »»*»»*     GX 

8-165 

8-166 

CFGBF 

=    *»♦»..      GX 

9-195 

CFGSZ 

=   *»«»»«     GX 

9-194 

CFLIN 

=   «•»»♦*     GX 

8-165 

8-166 

CHKBLK 

=   »*««*.     GX 

12-350 

CHKWND 

=    .♦*».»      GX 

12-362 

CHNLMX 

=    »»»»«»      GX 

11-325 

DLMCTL 

000057  R 

#7-150 

•19-665 

OLMIND 

000061    R 

#7-152 

•19-654 

DLMPDV 

000022  R 

#7-140 

•19-655 

DLMSLN 

000030  R 

#7-143 

14-466 

DLMSLT 

000024   R 

#7-141 

DLM5TA 

000026  R 

#7-142 

13-404 

DLMTLC 

001662  R 

13-413 

#20-703 

DLMUNT 

000060  R 

#7-151 

DTEDES 

z    *»♦•«•      GX 

16-551 

17-586 

E$NBR 

000014 

#5-66 

E$NBS 

000020 

#5-66 

ESNCR 

000034 

#5-66 

E$NCS 

00003u 

#5-66 

ESNIC 

000044 

#5-66 

ESNLEN 

000050 

#5-66 

ESNLLA 

000012 

#5-66 

ESNLNK 

000000 

#5-66 

ESNML 

000040 

#5-66 

ESNMR 

000024 

#5-66 

E$NMS 

000030 

#5-66 

ESNNOD 

000002 

#5-66 

ESNRT 

000042 

#5-66 

ESNRTP 

000005 

#5-66 

ESNSEG 

000010 

#5-66 

ESNTIM 

000046 

#5-66 

ESNUSE 

000004 

#5-66 

ESSTPT 

000006 

#5-66 

FLAG 

000032  R 

#7-144 

•9-190 

<=m8 

=   «♦*»«*      GX 

8-168 

FMT8B 

=   ..»,»♦      GX 

8-165 

8-166 

FM.8 

=  000000 

#8-168 

FM.8B 

=  000000 

#8-165 

#8-166 

FNDHSH 

001304  R 

14-457 

#17-585 

i^\iDPDV 

=   t,»*.*      GX 

19-652 

FNDPRT 

000664   R 

13-411 

#15-490 

F.RSIZ 

r     .«».»»        GX 

»14-446 

•14-452 

•20-731 

'20-736 

HSHADD 

=    «»♦*♦*      GX 

*17-588 

17-597 

HSHSZ 

r     ♦,.»..        GX 

17-591 

17-602 

HTIMR 

000000  R 

#7-131 

V 13-406 

HSNPT 

000022 

15-493 

15-496 

HSPTB 

000020 

14-445 

15-496 

IMXCB 

001062  R 

14-456 

#16-536 

E  15 
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8-167 


•20-708 
•19-677 


8-168 


8-168 


•20-709 
20-713 


8-169 


8-169 


8-170 
8-170 


8-171 
8-171 


8-172 
8-172 


8-167 
#8-167 


•14-463 


20-747 


8-169 
#8-169 


•15-494 


8-170 
#8-170 


•15-497 


8-171 
#8-171 

•  15-501 


8-172 
#8-172 

•16-541 


•17-587 


►17-598 
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g2l^C 


15A 
155 
156 
157 
158 
159 
160 
161 
162 
165 
164 
165 
166 

167  000000 

168  000004 

169  000006 

170  000012 

171  000016 

172  000022 
17?  000026 

174  000032 

175  000034 

176  000040 

177  000042 
178 

179 
180 
181  000044 


.S8TTL  $QSVC  -  LOOK  FOR  SVCSDf  MACRO 


$QSVC  -  LOOK  FOR  SVCSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

ALL  REGISTERS  DESTROYED 


012705  000000' 
005001 

012702  000000' 

016703  OOOOOOG 

012704  OOOOOOG 

005067  OOOOOOG 

103003 

005367  OOOOOOG 

001401 


kSVC::  MOV 

#SVCDF,R5 

fR 

R1 

MOV 

#SVCKW,R2 

CFGSZ,R3 

#CFGBF,R4 

MOV 

MOV 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

20$:    RETURN 

;  ERRORS 

l01$:   EMSGSR 

IT 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADPRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 
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3A62 

3^63 

346A 

3A65 

3A66 

3A67 

3468 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 


015772 
015774 
016002 


016004 
016010 
016012 
016014 
016020 
016024 
016030 

016034 
016036 
016040 
016044 
016050 
016054 
016056 
016060 
016070 
016106 
016110 
016112 


016116 
016122 
016126 
016132 
016134 
016144 
016162 
016164 
0!o'66 


010046 
032767 
001557 


012746 
020002 
001441 
012716 
012703 
012705 


005702 
001427 
012703 
012705 

103020 


005726 
000167 


012705 
012703 


005726 
020002 


OOOOOOG  OOOOOOG 


000016 


000040 

000004G 

000030G 


000106" 
000004G 


000420 


000004G 
000004G 


.SBTTL  fILOPR  -  OPERATE  ON  FILTER  CONTROL  BLOCK 


FILOPR  -  OPERATE  ON  FILTER  CONTROL  BLOCK 

INPUTS: 

RO  -  ADDRESS  OF  MATCHING  BLOCK  IN  LIST 

•R2  -  ADDRESS  OF  GLOBAL  EVENT  FILTER  BLOCK  FOR  THIS  CLASS 

OUTPUTS: 

THE  EVENT  FILTERS  ARE  SET  ACCORDINGLY 
CARRY  CLEAR ' 

CURRENT  FILTER  BLOCK  CONTAINS  USEFUL  INFORMATION 
CARRY  SET: 

NO  USEFUL  INFORMATION  IN  FILTER  BLOCK  (ALL  EVENT  MASKS  ARE  CLEAR) 


SAVE  RO 

IS  THIS  A  SET  COMMAND? 

BR  IF  NO 


ASSUME  GLOBAL  FILTER  BLOCK 

OPERATE  ON  GLOBAL  FILTER 

BR  IF  YES 

GET  LENGTH  OF  NON-GLOBAL  FILTER  BLOCK 

POINT  TO  FILTER  MASKS 

POINT  TO  CURRENT  FILTER  BLOCK  MASKS 

CLEAR  THE  'CLEAR'  EVENT  MASKS 

WAS  A  GLOBAL  FILTER  BLOCK  FOUND? 

BR  IF  NO 

POINT  TO  GLOBAL  FILTER  MASKS 

POINT  TO  FILTER  MASKS 

CLEAR  ANY  MASKS  SET  IN  GLOBAL  BLOCK 

BR  IF  WORK  TO  DO 

SAVE  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

WRITE  UPDATED  FILTER  BLOCK 

RESTORE  UNMAPPED  ADDRESS 

CLEAN  UP  STACK 

BR  IF  NO  WORK  TO  DO 


POINT  TO  CURRENT  FILTER  BLOCK  MASKS 

POINT  TO  FILTER  MASKS 

SET  THE  FILTER  MASKS 

SAVE  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

WRITE  UPDATED  FILTER  BLOCK 

RESTORE  UNMAPPED  ADDRESS 

CLEAN  UP  STACK 

OPERATE  ON  GLOBAL  FILTER  BLOCK? 


FILOPR:  MOV 

RO,-(SP) 

BIT 

#CM$SET,$CMAND 

BED 

20$ 

:•  SET  EVENT  FILTER  OPERATION 

MOV 

#F.LEN,-(SP) 

CMP 

R0,R2 

BED 

loi 

MOV 

#F.CEV+10,(SP) 

MOV 

#RQBvL0.EVT,R3 

MOV 

#$8FR+F.CEV,R5 

CALL 

CLREVT 

TST 

R2 

BEQ 

10$ 

MOV 

#GMASK,R3 

MOV 

#RQB+L0.EVT,R5 

CALL 

CLREVT 

BCC 

10$ 

SAVRG 

<R0> 

CEACCS 

RO 

PUTAD 

R0.2(SP) 
<R0> 

RESRG 

TST 

(SP)  + 

JMP 

40$ 

;  OPERATE  ON  GLOBAL  FILTER  BLO 

10$:    MOV 

#$8FRtF.SEV,R5 

MOV 

#RQB+L0.EVT,R3 

CALL 

SETEVT 

SAVRG 

<R0> 

CEACCS 

RO 

PUTAD 

R0.2(SP) 

RESRG 

<R0> 

TST 

(SP)t 

CMP 

R0,R2 

G  1 
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3876 
3877 

.SBTTL 

StlQLF  -  Sbl  UUALJMtK  FJ 

tLDb  IN  HLItK  BLUt^ 

3878 
3879 
3880 

+ 

SETQLF  -  SET 

QUALIFIER  FIELDS  IN  FILTEf 

BLOCK 

3881 
3882 
3883 
3884 
3885 

I  MDI  IT 

C  . 

R1  -  ADDRESS  OF  FIRST  QUALIFIER  FIELD  IN  FILTER  BLOCK 

OUTPUTS: 

3886 

R1  -  POINTS  PAST  END  OF  QUALIFIER  FIELDS  IN  FILTER  BLOCK 

3887 

3888 
3889 
3890  017466 

- 

010146 

SETQLF: 

MOV 

R1,-(SP) 

SAVE  FILTER  BLOCK  ADDRESS 

3891  017470 

162716 

000002 

SUB 

#2,{SP) 

POINT  TO  FLAGS  WORD 

3892  017474 

032767 

000020 

OOOOOOG 

BIT 

#OP$NOD,$OPTON 

REMOTE  NODE  QUALIFIER? 

3893  017502 

001403 

BEO 

10$ 

BR  IF  YES 

3894  017504 

016721 

000132' 

r 

REMOTE, (R1)t 

STORE  REMOTE  NODE  ADDRESS 

3895  017510 

000401 

20$ 

CONTINUE 

3896  017512 

005021 

10$: 

CLR 

(fi1)  + 

NO  REMOTE  NODE  QUALIFIER 

3897  017514 

032767 

000040 

OOOOOOG 

?0$: 

BIT 

#OP$LNE,$OPTON 

LINE  QUALIFIER? 

3898  017522 

001405 

BEQ 

30$ 

BR  IF  NO 

3899  017524 

116721 

OOOOOOG 

MOVB 

$SLN,(R1)+ 

STORE  SLN 

3900  0'7530 

116^21 

000034G 

M0V8 

RQ8+L0.TRB,(R1)+ 

STORE  STATION  NUMBER 

3901  017534 

000401 

BR 

40$ 

CONTINUE 

3902  017536 

005021 

30$: 

CLR 

(R1)  + 

NO  LINE  QUALIFIER 

3903  017540 

005021 

40$: 

CLR 

(Rl)  + 

NO  CIRCUIT  QUALIFIER 

3904  017542 

005021 

CLR 

(Rl)  + 

NO  MODULE  QUALIFIER 

3905  017544 

032767 

000010 

OOOOOOG 

BIT 

#OP$SIN,$OPTON 

SINK  NODE  QUALIFIER? 

3906  017552 

001407 

BEQ 

50$ 

BR  IF  NO 

3907  017554 

016721 

000130' 

MOV 

SINKND,(R1)+ 

STORE  SINK  NODE  ADDRESS 

3908  017560 

002005 

BGE 

60$ 

IF  NOT  $HOST  BRANCH 

3909  017562 

052776 

040000 

OOOOOO 

BIS 

#FF.HST,a(SP) 

SET  HOST  FLAG 

3910  017570 

000401 

BR 

60$ 

CONTINUE 

3911  017572 

005021 

50$: 

CLR 

(R1)  + 

■  NO  SINK  NODE  QUALIFIER 

3912  017574 

005726 

60$: 

TST 

(SP)  + 

ADJUST  STACK 

3913 

3914  017576 

RETURN 

I  .'kin     criiiAQi  c  /nicADi 


IMC c   MA ron   \ir\^    n7h 


G    2 

-Rs  i?-nA 


F  3 

VENft  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  11-Sep-85  12:06 
RUN  -  RUN  A  TASK 


A34A  02U36 

GETRV 

R3 

4345  021446 

010014 

MOV 

R0,(R4) 

4346  021450 

PUTRC 

4347  021454 

SWTCHO 

ffCLKOB 

4348  021462 

PUTRC 

RO 

43'9  021472 

4350 

4351 

100$:   RETURN 

;  ERRORS 

4352 

4353  021474 

012600 

101$:   MOV 

(SP)+,RO 

4354  021476 

012701  000020 

MOV 

#C.LGTH,R1 

4355  021502 

CALL 

$DEA16 

4356  021506 

ERRPT$ 

ERR13,$ER0UT 
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READ  IN  PREVIOUS  ENTRY 

POINT  PREVIOUS  ENTRY  AT  NEW  ONE 

REWRITE  PREVIOUS  ENTRY 

POINT  AT  BUFFERED  NEW  ENTRY 

WRITE  IT  TO  APPROPRIATE  ADDRESS 


GET  NODE'S  ADDRESS 
AND  LENGTH 

AND  DEALLOCATE  NODE. 
TASK  ACTIVE 


G  3 

C   1  •)  .  HA 
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SYMBOL 

VALUE 

REFERENCES 

FRR49 

003426  R 

#9-314 

39-2070 

40-2092 

ERR5 

000524  R 

#9-226 

11-516 

ERR6 

000560  R 

#9-228 

11-517 

ERR7 

000642  R 

#9-230 

1 1-520 

ERR77 

000664  R 

#9-232 

11-521 

ERRS 

000714  R 

#9-234 

39-2056 

ERR9 

000764  R 

#9-236 

39-2057 

40-2171 

EVQUAL 

000120  R 

#6-142 

♦56-3130 

♦56-3133 

57-3171   *57-3,72   •57-3174    59-3326    59-3332    61-3443 

61-3445 

61-3449 

61-3453 

63-3690    63-3694   *73-3959   *73-3962   < 73-3965   •73-3968 

*73-3971 

*73-3974 

•73-3977 

•73-3980 

EVTVAL 

000000  R 

#10-325 

10-374 

46-2639 

56-3136 

EVTVSZ 

=  000020 

#10-374 

46-2640 

EVtACF 

=  000201 

#5-79 

EVSADR 

=  000420 

#5-79 

EVSADU 

=  000417 

#5-79 

EVSAPL 

=  000400 

#5-79 

EVSARC 

^  000421 

#5-79 

EVSAUC 

=  000010 

#5-79 

EVSAUS 

=  000003 

#5-79 

EVSCDF 

=  000520 

#5-79 

EVSCOZ 

=  000011 

#5-79 

EVSDBR 

=  000302 

#5-79 

EVSGAS 

=  035101 

#5-79 

EVSHCE 

=  035114 

#5-79 

EVSHCI 

=  035113 

#5-79 

EV$HFE 

=  000506 

#5-79 

EVtlFL 

=  000413 

#5-79 

EVSIFO 

=  000415 

#5-79 

EVSIFS 

=  000414 

#5-79 

EVSINF 

=  000515 

#5-79 

EVSLDL 

^  000407 

#5-79 

EVSLDN 

=  010416 

#5-79 

EVSLDO 

=  000411 

#5-79 

EV$LDS 

=  000410 

#5-79 

EVSLSC 

=  000500 

#5-79 

EVSLUP 

=  000412 

#5-79 

EVSNOL 

=  000402 

#5-79 

EVSNRC 

=  000416 

#5-79 

EVSNSC 

=  000200 

#5-79 

EVSNUL 

=  000401 

#5-79 

EVSNVR 

=  000406 

#5-79 

EVSOPL 

=  000403 

#5-79 

EVSPCC 

=  034000 

#5-79 

EVSPCI 

=  034001 

#5-79 

EVSPCM 

=  034002 

#5-79 

EV$PFE 

=  000404 

#5-79 

EVSPPC 

=  034003 

#5-79 

EVSRCF 

=  000517 

#5-79 

EVSRDC 

=  010001 

#5-79 

EVSRDR 

=  0100C2 

#5-79 

EV$RJE 

=  035106 

#5-79 

EVSRSC 

=  000501 

#5-79 

G     4 


CREATED  Br  MACRO  ON  11-SEP-85  AT  12:08 


VENA 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 


f  5 

PAGE  17 

CREF   OA.OO 


VF.SS 

VSFLG 

VSRCV 

VSXMT 

WC.CNT 

UC.EVE 

WC.TRI 

WC.UNT 

X25NAM 

X5DSMT 

ZF.LLC 

Z.DAT 

Z.FLG 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

$ALL15 

SALPOL 

$BFR 


GX 


000000 

00000? 

000012 

OOOAOO 

004000 

002000 

001000 

OOOOOA 

R 

020536 

R 

*■***■»* 

GX 

****** 

GX 

****** 

fix 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

****** 

GX 

**■*♦** 

GX 

$CAT5 
SCEACC 

r  ♦♦♦♦** 
-  ****** 

GX 
GX 

SCMAND 

=     ****** 

GX 

SCNOD 
SCOTB 
$DEA16 
SDECPr 

003466 

r  ****** 
-  ****** 

RG 
GX 
GX 
GX 

REFERENCES 

39-1947 

•36-1840 
36-1839 
37-1877 

#5-73 

#5-73 

#5-73 

#5-73 

#6-119 
40-2166 
18-824 
11-442 
18-824 
18-827 
11-432 
19-865 
83-4377 
39-1987 
27-1445 
11-443 
21-985 

•26-1325 
27-1448 

♦29-1613 

•36-1840 
38-1913 

•39-2001 

•39-2014 
40-2102 

•40-2148 

•41-2233 
41-2262 
42-2393 
45-2601 
50-2832 
59-3342 
60-3398 
62-3492 
62-3587 
62-3643 

•75-4096 

•76-4143 
81-4272 
48-2737 
28-1569 
61-3432 
27-1381 
58-3257 

#25-1174 
50-2846 
39-1999 
26-1267 


39-2031 
•36-1850 
•36-1851 
•37-1889 

45-2561 


40-2097 
#76-4138 

81-4271 

74-400^ 

18-829 

20-910 

40-2131 
28-1554 

•13-597 
22-1032 

•26-1342 
28-1495 
29-1617 

•36-1850 

•38-1915 

•39-2002 
39-2020 
40-2118 

•40-2149 

•41-2234 
41-2275 

•42-2418 
45-2606 
50-2834 
59-3343 

♦61-3426 
62-3510 
62-3591 
63-3678 
75-4104 

•77-4160 
81-4273 
50-2868 
29-1619 
62-3502 
23-1485 
58-3268 

50-2850 
39-2066 
26-1290 


40-2090 
♦37-1878 


83-4379 


35-1803 
21-968 

74-4020 

41-2259 

•13-602 

22-1038 

•26-1359 

28-1509 

29-1621 

•36-1851 

•38-1918 

•39-2005 

•39-2033 

40-2134 

♦40-2150 

♦41-2237 

42-2320 

42-2419 

45-2609 

50-2836 

59-3344 

61-3430 

62-3521 

62-3594 

63-3708 

75-4108 

77-4161 

81-4274 

50-2894 

30-1648 

62-3514 

36-1834 

58-3277 

50-2912 
40-2141 
26-1307 


40-2108 
♦37-1888 


32-1712 
62-3537 
37-1874 
59-3323 

52-2987 
40-2180 
26-1324 


40-2115         75-4120 


22-1022        81-4266 


82-4306 
42-2384 

•13-607 
26-1269 
27-1389 
28-1512 

•30-1641 
37-1871 
39-1959 

•39-2006 

•39-2034 
40-2136 

•40-2151 

•41-2240 
42-2321 
42-2428 
45-2610 
53-3022 

•60-3372 
61-3434 
62-3538 
62-3600 

•74-4011 
75-4111 
77-4165 
81-4278 


59-3312 

•14-640 

26-1271 

27-1391 

•28-1539 

30-1645 

37-1877 

39-1971 

•39-2007 

39-2035 

40-2137 

♦40-2154 

♦41-2243 

42-2329 

45-2583 

49-2773 

53-3033 

60-3376 

61-3439 

62-3544 

62-3602 

74-4026 

♦75-4113 

♦78-4183 

82-4313 

41-2272 
62-3577 
41-2198 
62-3482 


75-4116 
26-1341 


85-4449 


♦15-672 

26-1273 

27-1400 

28-1557 

30-1650 

♦37-1878 

39-1991 

♦39-2008 

39-2037 

♦40-2139 

♦40-2155 

♦41-2247 

42-2340 

45-2584 

49-2775 

54-3067 

60-3380 

61-3443 

62-3556 

62-3605 

♦74-4029 

♦75-4114 

78-4186 

84-4416 

42-2422 
62-3586 
42-2302 
78-4181 


82-4355 
26-1358 


20-922 

26-1275 

27-1404 

28-1574 

♦32-1714 

♦37-1888 

39-1993 

♦39-2009 

39-2038 

♦40-2143 

♦40-2156 

♦41-2248 

42-2346 

♦45-2586 

49-2777 

57-3177 

60-3387 

61-3447 

62-3573 

62-3608 

♦74-4030 

♦75-4122 

♦78-4186 


45-2592 
62-3615 
44-2494 


27-1399 


20-928 

•2^-1291 

27-1408 

28-1576 

36-1831 

♦37-1889 

39-1994 

♦39-2012 

♦39-2043 

♦40-2144 

40-2161 

♦41-2251 

42-2371 

45-2587 

49-2779 

57-3222 

60-3391 

61-3451 

62-3575 

62-3611 

74-4044 

76-4140 

•79-4207 


59-3340 
62-3635 
47-2683 


21-978 

•26-1308 

27-1426 

28-1584 

36-1839 

38-1911 

♦39-1997 

•39-2013 

39-2045 

♦40-2147 

41-2215 

♦41-2252 

42-2391 

45-2594 

50-2830 

59-3319 

60-3393 

61-3455 

62-3578 

62-3636 

75-4092 

76-4142 

♦80-4227 


60-3378 
63-3676 
57-3185 


27-1407    28-1573 


G  5 


VEXP      CREATED  Bv  MACRO  ON  29-JUN-85  AT  02:27 
MACRO  CROSS  REFERENCE 
MACRO  MAME      REFERENCES 
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CftEF   OA.OO 


CALL 
RETURN 


5-78 
5-88 


5-83 


5-86 
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VEX2  -  VNP  EXPANSION  ROUTINES   MACRO  V05.03b  Saturday  29-Jun-85  02:27  Page  9 


U7l 

475 
476 

477  001064 

478  001066 

479  001070 

480  001072 

481  001076 

482  001100 

483  001102 

484  001106 

485  001112 

486  001114 

487  001120 
488 


POINTER  TO  ALLOCATED  SCOM 


112524 

112524 

112546 

112566  000001 

012603 

001407 

016702  OOOOOOG 

016422  177776 

010322 

010267  OOOOOOG 


SCOM: 


SAVALC 


10S: 


.ENA8L 
MOVS 

Move 

MOVB 

H0V8 

MOV 

BEQ 

MOV 

MOV 

MOV 

MOV 

RETURN 

.DSABL 


LS8 

(R5)+,(R4)+ 

(R5)+,(R4)+ 

CR5)t,-(SP) 

(R5)+,1(SP) 

(SP)t,R3 

10$ 

$UDA,R2 

-?(R'i),(R2)  + 

R3,(R2H 

R2,$UDA 

LS8 


copy  address 
assemble'count 


IF  ZERO,  NO  UNLOAD  DATA  TO  STORE 

GET  UNLOAD  DATA  ADDRESS 

STORE  ALLOCATION  ADDRESS 

STORE  COUNT 

SET  NEW  UNLOAD  DATA  ADDRESS 


6  ?_ 


VEX2      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:27 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


LF.TIM 

LF.UNL 

LF.X2P 

LIBR 

LINKS 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

.N.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LSTHD 

LTAB 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DOS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

L.MPF 

L.NMST 

L.N5TA 

L.OWNR 

L.UNT 

MPTAB 

MXPTB 

MXTAB 

NOD 

NXTLN 

PEC  HA 

PRI 

PRINT 

PRLT 

PRTOV 

PR7 

R$$MPL 

SAVALC 

SCOM 

SECSR 


000010 
020000 
000000 
00U3A  R 
000560  R 
000000 
000005 
OOOOOA 
000003 
000003 
000001 
000000 
OOOOOA 
000001 
000002 
000002 
000017 
000360 
000006 
000424  R 
000440  R 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
:  C00022 
000022 
000020 
000014 
000021 
000013 
001276  R 


001754 
001204 


000570  R 


000000 
000310 
001172 
001570 
001516 


000616  R 
-  ****** 
=  ****** 
001102  R 
001064  R 
000446  R 


GX 


REFERENCES 

*5-60 
#5-60 
#5-60 

5-105 

5-106 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 

5-108 

5-109 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 
#5-60 

5-110 

5-128 

5-111 

5-112 
#5-78 

5-129 

5-113 

10-506 

6-178 

5-114 

10-512 

12-619 
#9-483 

5-115 

5-116 


#12-576 
#7-305 


#7-315 
#7-324 


•7-270 


#11-542 

#13-713 

#11-519 

#7-372 

♦12-607 

#7-284 

#10-512 

#12-614 

#12-599 

#7-382 

12-640 
13-761 
#9-477 
#7-330 
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CREF       04.00 


*7-271 


♦12-650 


12-668 


12-651 
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VEX3  -  VNP  EXPANSION  ROUTINES  C  MACRO  V05.03b  Saturday  29-Jun-85  02:27 
CLEANUP  ROUTINES 


239 
2A0 
241 
2A2  000202 

243  000204 

244  000206 

245  000210 

246  000214 

247  000216 

248  000220 

249  000222 

250  000224 

251  000230 

252  000252 

253  000234 
■'54  000240 
255 

256 
257 


005002 
152502 
112546 
112566 
012600 
005702 
001407 
005C01 
166701 
005302 
001374 


000001 


000001 


OOOOOOG 


SECONDARY  LINKED  FILE 
XMXPTB: 


10$: 


CLR 

R2 

BIS8 

(R5)+,R2 

MOVB 

(R5)+,-(SP) 

MOVB 

(R5)+,1(SP) 

MOV 

{SP)+,RO 

TST 

R2 

BEQ 

20$ 

CLR 

R1 

SUB 

$MXLEN,R1 

DEC 

R2 

BNE 

10$ 

20$: 


CALL 
RETURN 


.END 


$DEA16 


Page  10 


GET  REPEAT  COUNT 

GET  MUX  TABLE  ADDRESS 

is'REPEAT  COUNT  0  ? 

IF  EQ,  YES  ..  DO  NOTHING 

CALCULATE  LENGTH  OF  MUX  TABLES 

DO'lT  <FILE  COUNT>  TIMES 

DEALLOCATE  MUX  TABLES 


6  9 


VEX5  -  VNP  UPDATE  LINE 
EXPANSION  ROUTINES 


F  10 

TABLES       MACRO  V05.03b  Saturday  29-Jun-85  02:28     Page  ^-3 


371 
372 
373 

374  000606 

375  000612 


COMPLEMENT  OF  PRIORITY 


062703  000002 


hi: 


ADD     #2,R3 
RETURN 


378 

•  LOCAL  NODE  ADDRESS 

379 
380 

381  000614 

005723 

NOD:    TST 

(R3)  + 

382  000616 

RETURN 

383 
384 
385 

;  PROTOCOL  OVERHEAD  SIZE 

386 
387 
388  000620 

; 

105723 

PRTOV:   TST8 

(R3)  + 

389  000622 

105725 

TST8 

(R5J  + 

390  000624 

RETURN 

391 

392 
393 
394 
395  000626 

;  POINTER  TO  ALLOCATED  SCOM 

062705 

000004 

SC'M:   ADD 

#4,R5 

396  000632 

062703 

000002 

ADD 

#2,R3 

397  000636 

RETURN 

398 

399 
400 
401 
402  000640 

;  SECONDARY  CSR 

005767 

000154' 

SECSR:   TST 

FLAGS 

IS  IT  MUX  EXPANSION  ? 

403  000644 

001451 

BEQ 

20$ 

NO  .. 

404  000646 

016700 

000152' 

MOV 

INDEX, RO 

GET  SECONDARY  FILE  COUNTER 

405  000652 

126400 

000013 

CMPB 

L.UNT(R4),R0 

DO  UNIT  NUMBERS  MATCH  ? 

'06  000656 

001044 

BNE 

20$ 

NO  .. 

",07  000660 

032767 

OOOOOOG 

OOOOOOG        BIT 

#FL.KMX,$FLAG5 

IS  THIS  A  COMIOP  MUX  LINE  ? 

408  000666 

001403 

BEQ 

10$ 

NO  .. 

409  000670 

006200 

ASR 

RO 

YES  ..  DIVIDE  COUNTER  BY  8 

410  000672 

006200 

ASR 

RO 

(NUMBER  OF  LINES  PER  CONTROLLER) 

411  000674 

006200 

ASR 

RO 

412  000676 

006300 

10$:    ASL 

RO 

CONVERT  TO  A  WORD  INDEX 

413  000700 

010377 

OOOOOOG 

MOV 

R3,a$ADRZ 

VIRTUAL  ADDRESS 

414  000704 

005077 

OOOOOOG 

CLR 

a$ADRX 

CLEAR  THE  BIAS 

415  000710 

005767 

OOOOOOG 

TST 

.MGMGE 

MEMORY  MANAGEMENT  SYSTEM? 

416  000714 

100413 

BMI 

5$ 

to  IF  MINUS 

417  000716 

020327 

120000 

CMP 

R3, #120000 

PARTITION  LINE  TABLE? 

418  000722 

103410 

BLO 

5$ 

NO  IF  LO 

419  000724 

010346 

MOV 

R3,-(SP) 

LINE  TALE  ADDRESS 

420  000726 

042716 

160000 

BIC 

#160000.(SP) 
(SP)t,S$ADRZ 

CLEAR  THE  APR  BITS 

421  000732 

012677 

OOOOOOG 

MOV 

NEW  VIRTUAL  ADDRESS 

422  000756 

016777 

OOOOOOG 

OOOOOOG        MOV 

$BIAS,a$ADRX 

AND  THE  PROCSS  BIAS 

423  000744 

5$:     GETAD 

.#4 

ACCESS  THE  LINE  TABLE 

424  000756 

016067 

OOOOOOG 

OOOOOOG        MOV 

$$SCSR(RO),$BFR 

COPY  SECONDARY  CSR  ADDRESS 

425  000764 

PUTAD 

RE-WRITE  LINE  TABLE 

426  000770 

062703 

000002 

20$:    ADD 

#2,R3 

427  000774 

RETURN 

G  10 
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VEX5 

CREATED  BY  MACRO  ON  29- 

-JUN-85  AT  02 

28    PA 

MACRO  CROSS 

REFERENCE 

CR 

MACRO  NAME 

REFERENCES 

CALL 

6-180 

6-191 

7-290 

7-298 

9-542 

V-560 

10-632 

CRASH 

6-198 

7-328 

8-503 

8-508 

GETAD 

#5-60 

7-290 

7-319 

7-423 

6ETRV 

#5-60 

PUTAD 

#5-60 

7-298 

7-321 

7-425 

PUTRC 

#5-60 

RAND 

#7-290 

7-290 

#7-298 

7-298 

#7-425 

7-425 

#9-542 

9-542 

RESRG 

#5-60 

7-295 

RETURN 

6-193 

7-215 

7-219 

7-228 

7-323 

7-339 

7-351 

7-357 

7-427 

7-433 

7-439 

7-445 

9-569 

9-595 

9-603 

9-609 

11-707 

11-712 

11-717 

11-722 

12-759 

SAVRG 

#5-60 

7-291 

SLIDFS 

#5-60 

5-65 

SWTCHI 

#5-60 

10-627 

10-673 

TTABS 

#5-70 

5-83 

5-84 

5-85 

5-92 

5-93 

5-94 

5-95 

5-102 

5-103 

5-104 

5-105 

5--12 

5-113 

5-114 

5-115 

5-22 

5-123 

5-124 

5-125 

5-132 

5-133 

5-134 

5-135 

F  11 

4 

04.00 

7-319 
9-542 


#7-319 
#10-632 

7-239 

7-363 

7-451 

10-674 

11-727 


5-86 

5-96 

5-106 

5-116 

5-126 


7-321 
10-632 


7-319 
10-632 

7-246 

7-369 

7-457 

11-682 

11-732 


5-87 

5-97 

5-107 

5-117 

5-127 


7-423 


#7-321 


7-258 

7-375 

7-463 

11-687 

12-739 


5-88 

5-98 

5-108 

5-118 

5-128 


7-425 


7-321 


7-265 

7-382 

7-470 

11-692 

12-744 


5-89 

5-99 

5-109 

5-119 

5-129 


8-490 


#7-423 


7-271 

7-390 

8-498 

11-697 

12-749 


5-90 

5-100 

5-110 

5-120 

5-130 


8-518 


7-423 


7-300 

7-397 

8-526 

11-702 

12-754 


5-91 

5-101 

5-111 

5-121 

5-131 
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VFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85  02:28 
DTEtDF  ACTION  ROUTINES 


Page  U 


330 
331 
332 
333 

334  000350 

335  00035A 

336  000360 

337  000362 

338  000366 

339  000372 
3A0  00037A 
3'.1  000376 
3^2  000^00 
3A3 

3^A 

345 

3A6 

3A7  000402 

348 


NETWORK  NAME 


016700  OOOOOOG 
020027  000006 
101010 

016701  OOCOOOG 
012702  000027' 
112122 

005300 
003375 
000403 


6TENET: 


10$: 


MOV 
CMP 
8HI 
MOV 
MOV 

Mova 

DEC 
BGT 
BR 


.PSTCN.RO 
RO,#DTNMHX 

.PSTPT.RI 

#DTNTNM,R2 

(R1)t,(R2)+ 

RO 

10$ 

DTEEND 


ERRORS 
i01$:   EMSG$R  00 


GET  SIZE  OF  SUPPLIED  NAME 

BIGGER  THAN  MAXIMUM? 

BR  IF  YES,  ERROR 

POINT  TO  NAME 

POINT  TO  LOCAL  COPY 

COPY  NAME 

M0.1E  TO  COPY? 

BR  IF  YES 

ELSE  MERGE  INTO  END  PROCESSING 


ILLEGAL  NETWORK  NAME  PARAMETER 
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MACRO  CROSS  REfERtNCE  CREf   OA.OO 


MACRO  NAME 

REFERENC 

;s 

ASL$ 

#5-61 

20-508 

CALL 

9-158 

12-256 

16-589 

18-432 

CEACCI 

#5-60 

16-388 

DBGTPS 

#10-173 

#10-185 

DTFDFS 

#5-60 

5-65 

EMSGSR 

#5-60 

9-167 

GETAD 

#5-60 

16-589 

GETRV 

#5-61 

12-288 

ISTATS 

#5-61 

10-173 

MTRANS 

#10-173 

NTLERS 

#5-61 

8-128 

PHBDFS 

#5-61 

5-66 

RAND 

#12-288 

12-288 

RESMAP 

#5-75 

16-399 

RESRG 

#5-60 

RETURN 

9-162 

12-257 

18-441 

18-448 

SAVMAP 

#5-71 

16-381 

SAVRG 

#5-60 

SLTDfl 

#5-60 

5-67 

STATES 

#5-61 

10-177 

#10-206 

#10-210 

TRANS 

#5-61 

#10-178 

#10-203 

#10-204 

#11-230 

#11-235 

12-264  12-278  12-282  12-288    15-353    16-377    16-380    16-388 
19-475 

#10-204  #10-208  #10-212  #10-219    #11-257 

12-269  15-516  15-527  14-547    15-559    18-452 

16-580 

8-129  8-130  8-151  8-132 

#16-380  16-580  #16-589  16-589 

12-265  12-296  15-512  15-523           15-355           16-401            17-422            18-454 

19-479  20-516 

#10-180  #10-183  #10-187  #10-190        #10-193        #10-196        #10-199         #10-202 

#10-214  #10-217  11-226  #11-229        #11-232         #11-235         *11-239         #  1-2« 

#10-181  #10-184  #10-185  #10-188        #10-191         #10-194         #10-197         #10-200 

#10-207  #10-208  #10-211  #10-212        #10-215         #10-218         #10-219         #11-227 

#11-236  #11-237  #11-240 
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PVC$:iF    ACTION  ROUTINES 


000026' 

OOOOOOG  000000' 
OOOOOOG  000002' 


AOO 

AOI 

402 

403 

AOA  000346 

016701 

405  000352 

006301 

406  000354 

016167 

407  000362 

016167 

408 

409  000370 

410  000374 

411  000400 

412  000404 

103410 

413  000406 

414  000412 

415  000416 

103403 

416  000420 

417  000424 

418 

419 

420 

421  000426 

;  END  OF  PVCSDF 

MACRO 

fiVEND:  MOV 

DLMSTA,R1 

ASL 

R1 

MOV 

$$HTIM(R1) 

HTIMR; 

MOV 

$$LT1M(R1) 

,LTIMR; 

CALL 

SSAVAL 

SAVMAP 

CALL 

FNDPRT 

BCS 

102$ 

CALL 

DLMTLC 

CALL 

ALLXCB 

BCS 

102$ 

RESMAP 

RETURN 

;  ERRORS 

102$;   EMSGSR 

N3 

Page  13 


GET  STATION  NUMBER 
MAKE  IT  A  UORD  INDEX 
GET  HELLO  TIMER 
AND  LISTEN  TIMER 

SAVE  ALL  REGISTERS 

SAVE  PREVIOUS  MAPPING 

FIND  FREE  PORT  ENTRY 

BR  IF  ONE  NOT  FOUND 

ELSE  STORE  PORT  NUMBER  IN  COUNTER  BLOCK 

ALLOCATE  X25  CIRCUIT  BLOCK 

BR  IF  UNSUCCESSFUL 

RESTORE  PREVIOUS  MAPPING 


PVC/XCB/PORT/HASH  ALLOCATION  FAILED 


VFGPVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:30 
SYMBOL  CROSS  REFERENCE 


#19-660 
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CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

INVCIR 

0015^6  R 

19-649    19-653 

LF.ACT 

:=  100000 

#5-70 

LF.BRO 

=  000400 

#5-70 

LF.BWT 

=  000007 

#5-70 

LF.ENA 

=  002000 

#5-70 

LF.LPB 

=  001000 

#5-70 

LF.MOC 

=  000100 

#5-70 

LF.MFL 

=  004000 

#5-70 

LF.MTP 

=  000020 

#5-70 

LF.PAC 

=  000200 

#5-70 

LF.RfY 

=  040000 

#5-70 

LF.REA 

=  010000 

#5-70 

LF.SER 

=  000040 

#5-70 

LF.TIM 

=  000010 

#5-70 

LF.UNL 

=  020000 

#5-70 

LF.X2P 

=  000000 

#5-70 

LN.CLO 

=  000000 

#5-70 

LN.DUM 

=  000005 

#5-70 

LN.LOA 

:  000004 

#5-70 

LN.LOO 

=  000003 

#5-70 

LN.OAU 

=  000003 

#5-70 

LN.OFF 

=  000001 

#5-70 

LN.ON 

=  000000 

#5-70 

LN.OOP 

=  000004 

#5-70 

LN.OPE 

=  000001 

#5-70 

LN.REF 

=  000002 

#5-70 

LN.SER 

=  000002 

#5-70 

LN.STA 

=  000017 

#5-70 

LN.SUB 

=  000360 

#5-70 

LN.TRI 

=  000006 

#5-70 

LTIMR 

000002  R 

#7-132     ♦13-407 

LSCHTB 

000030 

17-588 

LSLEN 

000122 

17-587 

L.COST 

000015 

#5-70 

L.CTL 

000012 

#5-70      19-671 

L.CVA 

177776 

#5-70 

L.DDM 

000002 

#5-70 

L.DDS 

000004 

#5-70 

L.DLC 

000003 

#5-70 

L.DLM 

000006 

#5-70 

L.DLS 

000010 

#5-70 

L.FLG 

000000 

#5-70 

L.KRBA 

000016 

#5-70 

L.LEN 

=  000022 

#5-70 

L.MPF 

000022 

#5-70 

L.NMST 

000020 

#5-70 

L.NSTA 

000014 

#5-70 

L.OWNR 

000021 

#5-70 

L.UNT 

000013 

#5-70 

MAX  ID 

=   000020 

#6-106     7-149 

NSTLC 

000100 

20-732    20-733 

MSXlEN 

000124 

20-731 

19-667 


19-669 


19-681 


19-683 


20-748 


20-734 


fi  1S 


VFGSVC  - 

CONFIG  FILE 

svcsnf  s 

TATE  TftBlB 

185 

18^ 

185 

186 

187 

000052 

188 

189 

190 

191 

000052 

192 

000052 

19? 

19^ 

000052 

195 

000052 

196 

197 

000052 

198 

000052 

199 

200 

000052 

201 

000052 

202 

205 

000052 

204 

000052 

205 

206 

000052 

207 

000052 

208 

209 

000052 

210 

000052 

2(2 

000052 

213 

000052 

2U 

000052 

215 

216 

000052 

217 

000052 

218 

219 

000052 

220 

000052 

221 

000052 

222 

223 

000052 

224 

000052 

225 

226 

000052 

227 

000052 

228 

229 

000052 

230 

000052 

231 

252 

000C52 

253 

000052 

23A 

235 

000052 

256 

000052 

237 

238 

000052 

239 

000052 

F  16 
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.S8TTL      SVCSDF    STATE    TABLE 

•  TPARS   STATE    TABLES 

ISTATS     SVCST.SVCKW 

•  SVCSDF 

STATES  SVCDF 
TRANS   5!SVCS0FX,,,1,SYNERR 


STATES 
TRANS   $RAD50,,SVNAM 

STATES 
TRANS 

STATES 
TRANS   SDNUMB,,SVCTL 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 


SDNUMB,,SVSTA 


<',^,SVCWND 
SNUMBR,,SVPKT 


PROCESS  NAME 


CONTROLLER  NUMBER 


STATION  NUMBER 


PACKET  SIZE 


<'  ,> 


STATES 

TRArg! 

TRANS 

SVCWND 
<',>,SVCFLG 
SNUM6R,,S\/WN[) 

WINDOW  SIZE 

STATES 
TRANS 

<'  -^ 

STATES 
TRANS 

SVCFLG 
SNUMBR,,SVFLAG 

FLAGS 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,SVRCLL 

MAX  RECALLS 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMBR,,SVRRTM 

RECALL  TIMER 

G     1 
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FILOPR  -  OPERATE  ON  FILTER  CONTROL   BLOCK 


3519  016170 

001056 

3520  016172 

3521  016200 

016767 

OOOOOOG  000170' 

3522  016206 

010001 

3523  016210 

352A  01621A 

103044 

3525  016216 

012703 

000106' 

3526  016222 

012705 

000174' 

3527  CI  6226 

3528  016232 

103013 

5529  016234 

012705 

000230' 

3530  0162A0 

3531  016244 

103006 

3532  016246 

012705 

000170' 

3533  016252 

010400 

3534  016254 

3535  016260 

000753 

3536  016262 

3537  016264 

3538  01627- 

016767 

000002G  OOOOOOG 

3539  0163C2 

042767 

177700  OOOOOOG 

3540  016310 

3541  016320 

3542  016322 

010401 

3543  016324 

000731 

3544  016326 

3545  016334 

000241 

3546  016336 

000167 

000526 

3547 

3548 

3549 

3550  016342 

020002 

3551  016344 

001526 

3552  016346 

012703 

000004G 

3553  016352 

012705 

000076' 

3554  016356 

3555  016362 

012703 

000004G 

3556  016366 

012705 

000004G 

3557  016372 

3558 

3559  016376 

012703 

000076' 

3560  016402 

012705 

000004G 

3561  016406 

3562  016412 

005702 

3563  016414 

001450 

3564  016416 

012703 

000106' 

3565  016422 

012705 

000076' 

3566  016426 

3567  016432 

012705 

000004G 

3568  016436 

012703 

000076' 

3569  016442 

3570  016446 

103406 

3571 

3572  016450 

012703 

000004G 

3573  016454 

012705 

000030G 

3574  016460 

3575  016464 

BNE  15$ 

SWTCHO  #FLTBUF 

MOV  SBFP.FLTBUF 

MOV  RO.Rl 

12$:    CALL  GETNXT 

BCC  15$ 

MOV  #GMASK,R3 

MOV  #FLTaUFtF.SEV,R5 

CALL  ClREVT 

BCC  14$ 

MOV  #FLT8UF+F.CEV+10,R5 

CALL  CHKEVT 

BCC  14$ 

MOV  #FLT8UF,R5 

MOV  R4,R0 

CALL  DEAFIL 

BR  12$ 

14$:    SAVRG  <R4> 

CEACC$  R4 

MOV  F.CLS+$BFR,$RSIZE 

BIC  #*C<FF.MSK>,$RSIZE 

PUTAD  R4 

RESRG  <R4> 

MOV  R4,R1 

BR  12§ 
15$:    SWTCHO 

CLC 

JMP  80$ 

•  CLEAR  EVENT  FILTER  OPERATION 


50$: 


30$: 


CMP 

BEQ 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

TST 

BEQ 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

BCS 

MOV 
MOV 
CALL 
SWTCHO 


R0,R2 

60$ 

#L0.EVTtR0B,R3 

#TMPMSK,R5 

SAVFIL 

#L0.EVT+RQB,R3 

#$8FRtF.SEV,R5 

CLREVT 

#TMPMSK,R3 

#L0.EVTtRQB,R5 

SAVFIL 

R2 

40$ 

#GMASK,R3 

#TMPMSK,R5 

SAVCOM 

#RQ8*-L0.EVT,R5 

#TMPMSK,R3 

CLREVT 

30$ 

#L0.EVT*RQB,R3 
#$BFR*-F.CEV,R5 
SETEVT 
#$8FR 


BR  IF  NO 

USE  FLTBUF  AS  OUTPUT  BUFFER 

STORE  POINTER  TO  NEXT  BLOCK 

SAVE  ADDRESS  OF  PREVIOUS  BLOCK 

GET  NEXT  FILTER  BLOCK  IN  LIST 

BR  IF  FINISHED 

POINT  TO  GLOBAL  FILTER  MASKS 

POINT  TO  'SET'  FILTER  MASKS 

CLEAR  ANY  EVENTS  SET  IN  GLOBAL  MASK 

BR  'f  SOME  MASKS  STILL  SET 

PO.,.i  TO  END  OF  'CLEAR'  FILTER  MASKS 

ANY  'CLEAR'  FILTER  MASKS  SET? 

Dp  jr  ycc 

DEALLOCATE  FILTER  BLOCK  FROM  FLTBUF 

GET  ADDRESS  OF  FILTER  BLOCK 

DEALLOCATE  FILTER  BLOCK 

CHECK  NEXT  BLOCK 

SAVE  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

GET  LENGTH  OF  BLOCK  TO  DEALLOCATE 

REWRITE  FILTER  BLOCK 
RESTORE  UNMAPPED  ADDRESS 
SAVE  ADDRESS  OF  PREVIOUS 
GET  NEXT  BLOCK  IN  LIST 
USE  $BFR  AS  OUTPUT  BUFFER 
FILTER  BLOCK  STILL  USEFUL 
FINISH  UP 


OPERATE  ON  GLOBAL  FILTER  BLOCK? 

BR  IF  YES 

POINT  TO  FILTER  MASKS 

POINT  TO  TEMPORARY  SAVE  AREA 

SAVE  FILTER  MASKS 

POINT  TO  FILTER  MASKS 

POINT  TO  'SET'  FILTER  MASKS 

CLEAR  THE  'SET'  EVENT  MASKS 

POINT  10  SAVE  AREA 

POINT  TO  FILTER  MASKS 

RESTORE  FILTER  MASKS 

IS  THERE  A  GLOBAL  FILTER  BLOCK? 

BR  IF  NO 

POINT  TO  GLOBAL  FILTER  MASKS 

POINT  TO  TEMPORAPY  STORAGE 

SAVE  COMPLEMENT  l'  GLOBAL  MASKS 

POINT  TO  FILTER   ^SKS 

POINT  TO  COMPLEMENTED  FILTER  MASKS 

DETERMINE  IF  ANY  'CLEAR'  MASKS  TO  SET 

BR  IF  NONE  TO  SET 

POINT  TO  FILTER  MASKS 
POINT  TO  'CLEAR'  FILTER  MASKS 
SET  THE  'CLEAR'  FILTER  MASKS 
POINT  TO  FILTER  BLOCK 


H  1 


-J 
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3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
392^ 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
393A 
3935 
3936 
3937 
3938 
3939 
39A0 
39A1 
39A2 


017600 
017602 
017606 
017612 
017616 
017620 
01762A 
017626 
017630 
017652 
017636 
017640 
01764A 
017646 


010146 

016546  000002 

042716  177700 

020127  OOOOOOG 

001003 

011567  OOOOOOG 

000404 

010146 

010046 

012601 

012601 


.SBTTL  OEAfIL  -  DEALLOCATE  FILTER  BLOCK 


DEAFIL  -  DEALLOCATE  FILTER  BLOCK 

INPUTS: 

RO  -  UNMAPPED  ADDRESS  OF  BLOCK  TO  DEALLOCATE 

R1  -  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK  IN  LIST 

R5  -  ADDRESS  OF  BUFFER  CONTAINING  FILTER  BLOCK  TO  DEALLOCATE 


SAVE  R1 

GET  CLASS  AND  SIZE  WORD 

ISOLATE  FILTER  BLOCK  SIZE 

IS  THE  PREVIOUS  THE  FIRST  ONE? 

BR  IF  NO 

ELSE  UPDATE  LISTHEAD 

AND  DEALLOCATE  THE  BLOCK 

GET  UNMAPPED  ADDR  OF  PREVIOUS  BLOCK 

GET  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 

UNLINK  FROM  LIST 

GET  LENGTH  OF  BLOCK  TO  DEALLOCATE 

DEALLOCATE  FILTER  BLOCK 

RESTORE  R1 


DEAFIL. 

MOV 

R1,-(SP) 

MOV 

F.CLS(R5),-(SP) 

BK 

#»C<FF.MSK>,(SP) 

CMP 

R1,*$FILHD 

BNE 

10$ 

MOV 

(R5),$FILHD 

BR 

20$ 

10$: 

MOV 

R1,-(SP) 

MOV 

RO,-(SP) 

CALL 

$XLINK 

20$: 

MOV 

(SP)+,R1 

CALL 

$DEPOL 

MOV 

(SP)+,R1 

RETURN 


1 
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A358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 

4398 


.SBTTL  CHKXPT  -  CHECK  XPT  CONTEXT 
♦*-CHKXPT-CHECK  XPT  CONTEXT 

MAKE  SURE  TRANSPORT(XPT)  IS  LOADED  AND  IT'S  DATA  BASE  IS  ALLOCATED. 
INPUTS: 


NONE 


021516 
021516 
021522 
021526 
021530 
021534 
021536 
021542 
021544 


021554 
021556 
021562 
021566 
021570 
021600 
021606 
021610 
021624 
021626 


012700  114224 

103407 

005760  OOOOOOG 

001404 

016002  OOOOOOG 

001416 


OUTPUTS: 
RO 
R1 
R2 


CHKXPT: 


ERRORS 


021546  032767 


001023 
012700 

103016 

032767 
001006 

000261 


OOOOOOC  OOOOOOG   101$: 
015370 

OOOOOOG  OOOOOOG  102$: 

105$: 


BIT 

BNE 

MOV 

CALL 

BCC 

ERRPTS 

BIT 

BNE 

ERRPT$ 

SEC 

RETURN 


PDV  ADDRESS 

XPT  PDV    INDEX 

XPT  DATABASE   VIRTUAL   ADDRESS 


MOV 

#*RXPT,RO 

CALL 

$FPDV 

BCS 

101$ 

TST 

Z.PC8(R0) 

BEQ 

101$ 

MOV 

Z.DAT(RO) 

BEO 

102$ 

RETURN 

,R2 


*VF.PEM!VF.DLX,$VFLAG 

103$ 

#*RDLX,RO 

$FPDV 

103$ 

ERR3,$ER0UT 

#VF.PEM,$VFLAG 

103$ 

ERR4,$ER0UT, FATAL 


XPT  IN  RAD50 

FIND  PDV  ADDRESS 

IF  CS,  NO  XPT 

IS  PROCESS  LOADED  ? 

NO 

GET  DATABASE  ADDRSS 

DATABASE  NOT  ALLOCATED 


IS  THIS  A  PROTOCOL  EMULATOR  COMMAND 
OR  DLX  ONLY  SYSTEM? 

IF  NE,  YES  ..  NO  ERROR  MESSAGE  PLEASE 
SURE  NOT  DLX  ONLY  (BIT  NOT  YET  SET)? 
LOOK  FOR  DLX  PDV 
BR  'F  FOUND  -  ASSUME  DLX  ONLY 
XPT  NOT  LOADED 

IS  THIS  A  PROTOCOL  EMULATOR  COMMAND  ? 
IF  NE,  YES  ..  NO  ERROR  MESSAGE  PLEASE 
XPT  DATABASE  NOT  ALLOCATED 
JUS*   JICATE  FAILURE 


H  3 
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SYMBOL    CROSS   REFERENCE 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

FVSPUL 

=  000^05 

#5-79 

EVSSNA 

=  035000 

#5-79 

EVSSNF 

=  000516 

#5-79 

EVISPE 

=  035001 

#5-79 

EVtXCE 

=  034110 

#5-79 

EVSXDI 

=  013600 

#5-79 

EVSXGU 

=  034111 

#5-79 

EV$XMX 

=  00051A 

#5-79 

EVSXRS 

=  000512 

#5-79 

EVSXSC 

=  000513 

#5-79 

EV$X2S 

=  013500 

#5-79 

EV.CCB 

=  000001 

#5-79 

EV.CIR 

=  000020 

#5-79 

EV.LCB 

=  000100 

#5-79 

EV.LIN 

=  000004 

#5-79 

EV.MAP 

=  000002 

#5-79 

EV.MOD 

=  000040 

#5-79 

EV.NOD 

=  000010 

#5-79 

EV.PRT 

=  000200 

#5-79 

ESDATA 

000020 

#5-79 

ESEVTS 

000000 

#5-79 

E$LCN 

000016 

#5-79 

E$LIN 

000000 

#5-79 

E$MOD 

000012 

#5-79 

ESNISR 

000014 

#5-68 

ESNBS 

000020 

#5-68 

ESNCR 

000034 

#5-68 

ESNCS 

000036 

#5-68 

E$NIC 

000044 

#5-68 

ESNLEN 

000050 

#5-68 

ESNLLA 

000012 

#5-68 

ESNLNK 

000000 

#5-68 

E$NHL 

000040 

#5-68 

EtNMR 

000024 

#5-68 

ESNMS 

000030 

#5-68 

ESNNOD 

000002 

#5-68 

ESNOD 

000010 

#5-79 

ESNRT 

000042 

#5-68 

ESNRTP 

000005 

#5-68 

ESNSEG 

000010 

#5-68 

ESNTIM 

000046 

#5-68 

ESNUSE 

000004 

#5-68 

E$PORT 

000014 

#5-79 

E$PRM 

000002 

#5-79 

ESSTAT 

000006 

#5-79 

ESSTRT 

000006 

#5-68 

ESTCB 

000004 

#5-79 

E.CTL 

000020 

#5-79 

F.DATA 

000046 

#5-79 

E.EVT 

000002 

#5-79 

E.LCN 

000042 

#5-79 

E.LEN 

000216 

#5-79 

H     4 
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CREATED  BY     MACRO     CN  11-SEP-85   AT   12:08 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


tDEPOL  =  •«•*«*  GX 
SDEVHD  =  ♦♦•**»  GX 
SEROUT  =  .».«««  GX 


SFILHD 

r     *♦♦♦** 

GX 

SFNADD 

=     ****** 

GX 

SFNALI 

=     ****** 

GX 

SFNNAM 

-     ****** 

GX 

SFNOBJ 

=     ****** 

GX 

SFPOV 

021716 

RG 

$GETAD 

~  ****** 

GX 

SGETRV 


SHMBUF 


JPUTRC 


****** 


GX 


GX 


SLGCON 

-    ****** 

GX 

SLGFNB 

r     ****** 

GX 

SLGMON 

=     ****** 

GX 

SLGSTT 

-     ****** 

GX 

SLLCTA 

=     ****** 

GX 

SLSTAD 

r     ****** 

GX 

SLSTRM 

=     ****** 

GX 

$MUL 

=     ****** 

GX 

tOBJHD 

r     ****** 

GX 

SOPTON 

-     ****** 

GX 

SPDVNM 

=     ****** 

GX 

SPDVTA 

r     ****** 

GX 

SPUTAD 

-     ****** 

GX 

GX 


REFERENCES 

28-1583 
78-4179 
27-U16 
77-4160 
11-514 
14-646 
17-802 
25-1217 
38-1926 
39-2070 
41-2283 
44-2534 
80-4230 
45-2585 
28-1499 
42-2315 
27-1386 
41-2208 
11-401 
20-919 
39-2040 
81-4275 
11-442 
36-1830 
42-2339 
75-4103 
82-4344 
27-1398 
♦42-2342 
*58-3262 
58-3247 
»58-3273 
♦55-3102 
11-418 
31-1675 
31-1683 
74-4016 
29-1612 
25-1181 
41-2249 
47-2696 
58-3266 
73-3972 
19-862 
18-822 
13-608 
41-2253 
62-3589 
11-509 
37-1891 
42-2345 
78-4188 


42-2334         42-2339 
41-2222         42-2356 


11-515 

14-647 

17-803 

27-1465 

39-2056 

40-2092 

41-2284 

46-2664 

82-4356 

59-3346 

28-1531 

42-2374 

27-1421 

41-2229 

11-407 

20-927 

45-2593 

26-1267 
36-1832 
42-2390 
76-4139 
84-4415 
27-1402 
42-2344 

♦58-3263 
58-3283 

♦58-3274 

♦55-3104 
16-719 
31-1680 

♦31-1684 
75-4107 
41-2213 
25-1187 
42-2311 
47-2701 
59-3308 
73-3975 
85-4445 
19-861 
14-641 
41-2273 
62-3616 
26-1292 
38-1919 
42-2427 
82-4346 


11-516 

15-678 

20-940 

27-1466 

39-2057 

40-2170 

41-2285 

47-2712 

83-4393 

60-3371 

42-2368 

43-2471 

28-1493 

11-440 
21-977 
45-2599 

26-1290 
37-1870 
49-2774 
76-4142 
84-4422 
♦27-1404 
42-2389 


16-740 
♦31-1682 


♦41-2215 
25-1189 
42-2361 
55-3093 
59-3333 
73-3978 

19-872 

15-673 

42-2423 

62-3638 

26-1309 

39-1998 

74-4013 

82-4348 


G 

5 
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42-2345 

42-2390 

42-2427 

53-3020 

74-4009 

74-4025 

72-3940 

11-517 

11-520 

11-521 

11-522 

13-614 

13-615 

15-679 

16-752 

16-753 

16-754 

16-755 

16-756 

20-941 

21-995 

21-996 

22-1048 

22-1049 

24-1154 

27-1467 

28-1591 

28-1592 

28-1593 

28-1594 

38-1925 

39-2058 

39-2062 

39-2063 

39-2064 

39-2065 

39-2069 

40-2171 

40-2172 

40-2176 

40-2177 

40-2178 

40-2179 

42-2313 

42-23G3 

42-2436 

42-2437 

42-2438 

43-2469 

47-2713 

53-3042 

54-3073 

57-3228 

59-3353 

79-4210 

83-4396 

61-3425 

72-3932 

♦72-3934 

28-1507 

28-1527 

c8-1536 

53-3029 

54-3065 

40-2086 

44-2491 

83-4375 

83-4391 

*85-4442 

21-984 

22-1031 

22-1037 

29-1620 

30-1649 

32-1713 

60-3379 

60-3384 

61-3433 

61-3438 

63-3677 

63-3682 

26-1307 

26-1324 

26-1341 

26-1358 

27-1399 

28-1573 

37-1872 

38-1912 

39-1990 

39-1993 

40-2133 

40-2136 

50-2831 

53-3020 

74-4009 

74-4025 

74-4028 

75-4094 

77-4164 

78-4179 

81-4271 

82-4321 

82-4328 

82-4333 

27-;406 

28-1572 

28-1577 

28-1579 

28-1582 

42-2338 

42-?418 

♦42-2424 

42-2426 

53-3019 

53-3021 

41-2277 

25-1191 

25-1193 

25-1196 

41-2231 

41-2238 

41-2244 

43-2467 

44-2496 

44-2498 

44-2510 

44-2523 

45-2558 

55-3096 

56-3134 

56-3148 

57-3187 

57-3192 

58-3255 

71-3892 

71-3897 

71-3905 

73-3963 

73-3966 

73-3969 

20-908 

21-966 

22-1020 

81-4264 

85-4444 

85-4457 

27-1434 

28-1518 

28-1540 

28-1570 

32-1715 

39-2046 

45-2620 

59-3341 

62-3503 

62-3515 

62-3540 

62-3580 

79-4208 

80-4228 

26-1326 

26-1343 

26-1360 

27-1407 

28-1583 

36-1853 

39-2003 

39-2015 

39-2044 

40-2140 

40-2145 

40-2157 

74-4031 

74-4065 

75-4097 

75-4115 

75-4123 

76-4144 

H     5 


««FILE»«ID««VEX2 
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VV    vv 

EEEEEEEEEE 

XX      XX 

222222 

vv    vv 

EEEEEEEEEE 

XX      XX 

222222 

vv    vv 

EE 

XX      XX 

22     22 

vv    vv 

EE 

XX      XX 

22     22 

vv    vv 

EE 

XX  XX 

22 

vv    vv 

EE 

XX  XX 

22 

vv    vv 

EEEEEEEE 

XX 

22 

vv    vv 

EEEEEEEE 

XX 

22 

vv    vv 

EE 

XX  XX 

22 

vv    vv 

EE 

XX  XX 

22 

vv  vv 

EE 

XX      XX 

22 

vv  vv 

EE 

XX      XX 

22 

vv 

EEEEEEEEEE 

XX      XX 

2222222222 

vv 

EEEEEEEEEE 

XX      XX 

2222222222 

ssssssss 

TTTTTI 

TTTT 

ssssssss 

TTTTTl 

nil 

ss 

S5 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

r 

LLLLLLLLLL 

ssssssss 
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490 
491 
492 

493  001122 

494  001122 

495  001126 
496 

497  001130 

498  001134 

499  001140 

500  001144 

501  001150 
502 

503  001154 

504  001160 

505  001162 

506  001164 

507  001170 
508 

509 
510 
511 

512  001172 

513  001176 

514  001202 


INTERRUPT  ENTRY  POINT 


005767 
100412 

012724 
012724 
012724 
016724 
012724 

012724 
112524 
112524 


012714 
046724 


OOOOOOG 


013746 

172352 

012737 

OOOOOOG 

172352 

004537 


INT: 


5$: 


TST 
BMI 

MOV 
MOV 
MOV 
MOV 
MOV 

MOV 

M0V8 

M0V8 

CALL 

RETURN 


.MGMGE 
5$ 

#13746, (R4)+ 
#17235j,fR4)+ 
#12737, (R4)t 
$8IAS,(R4)+ 
#172352, (R4)+ 

#4537, (R4)+ 
(R5)+,(R4)+ 
{R5)+,(R4)+ 
PRINT 


MEMORY  MANAGEMENT  SYSTEM  ? 
NO 


STORE 
STORE 

STORE 


'MOV  a#KISAR5,-(SP)' 
'MOV  BIAS,a#KISAR5" 


'JSR  R5,a#ENTRY' 


OOOOOOG 
OOOOOOG 


COMPLEMENT   Of  PRIORITY 

PRI:  MOV  #PR7,(R4) 

BIC  $$PRI,(R4)i 
RETURN 


SET   UP   KB 


STORE   PRIORITY   7 

CLEAR  ACTUAL   PRIORITY  BITS 


VEX2  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:27 

SYMBOL  CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

SF.ACT 

=  000200 

#5-60 

SF.ENA 

=  000100 

#5-60 

SF.LPB 

=  000004 

#5-60 

SF.MFL 

=  OOOOAO 

#5-60 

SF.PAC 

=  000020 

#5-60 

SF.REA 

=  000010 

#5-60 

SF.SER 

=  000001 

#5-60 

SF.SVC 

=  000002 

#5-60 

SF.UNL 

=  OOOO-iO 

#5-60 

SLNB 

0005U 

R 

5-117 

#7-347 

SLNW 

000540 

R 

5-118 

#7-358 

STNB 

000622 

R 

5-119 

#7-389 

STNW 

000660 

R 

5-120 

#7-402 

SYSFDB 

-      **♦♦♦♦ 

GX 

•7-305 

*7-306 

S.COST 

000001 

#5-60 

S.FLG 

000000 

#5-60 

S.LEN 

000004 

#5-60 

S.NMST 

000002 

#5-60 

S.OWNR 

000003 

#5-60 

TABLE 

000274 

R 

#5-93 

6-187 

TIME 

002206 

R 

5-127 

#13-766 

UNB 

000722 

R 

5-121 

#7-417 

UNW 

000744 

R 

5-122 

#7-427 

WORD 

000766 

R 

5-123 

#7-437 

WRVBL 

001714 

R 

6-190 

#12-665 

X2CH01 

002342 

R 

5-    41 

#15-847 

X2CH02 

002350 

R 

5-1'.^ 

#15-852 

X2CH03 

002356 

R 

5-143 

#15-857 

X2CH0A 

002364 

R 

5-144 

#15-862 

X2CH05 

002372 

R 

5-145 

#15-867 

X3CH01 

002240 

R 

5-130 

#14-790 

X3CH02 

002246 

R 

5-131 

#14-795 

X3CH03 

002254 

R 

5-132 

#14-800 

X3CH04 

002262 

R 

5-133 

#14-805 

X3CH05 

002270 

R 

5-134 

#14-810 

X3CH06 

002276 

R 

5-135 

#14-815 

X3CH07 

002304 

R 

5-136 

#14-820 

X3CH08 

002312 

R 

5-137 

#14-825 

X3CH0" 

002320 

R 

5-138 

#14-830 

X3CH-'0 

002326 

R 

5-139 

#14-835 

X3CH1I 

002334 

R 

5-140 

#14-840 

SADDR 

-      ****** 

GX 

6-180 

$BFR 

=      ****** 

GX 

7-309 

7-375 

$BIAS 

-      ****** 

GX 

10-500 

12-637 

$BIN 

-      ****** 

GX 

6-179 

SBUfCK 

::     ****** 

GX 

6-188 

11-529 

SCTIM 

-     ****** 

GX 

7-251 

SDECPT 

-     ****** 

GX 

7-306 

7-373 

SFLAGS 

r     ****** 

GX 

7-258 

7-260 

SGETLB 

=     ****** 

GX 

12-583 

SGETRV 

r     ****** 

GX 

7-306 

7-373 

SHMBUF 

=     ****** 

6X 

7-305 

7-307 

G    8 
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*7-309 


11-528 


*7-373 


11-554 


*12-667         *12-670 


13-730 


*13-747 


«13-748 


•13-755 


13-755 


7-285 


7-287 


7-333 


U  R 
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Symbol  table 


Al$CHK= 
A$$tPS= 
A$$PRI  = 
A$$TRP= 
C$$CKP= 
Ct$ORE= 
C$$RSH= 
Ot$BUG= 
D$$ISK- 
D$$L11= 
D$$YNC= 
DnYNM= 
E$$XPR= 
F$$LVL= 
G$$TPP= 


000000 
000000 
000000 
000000 
000000 
000400 
17756A 
1775U 
000000 
000001 
000000 
000000 
000000 
000001 
000000 


G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
M$$CRB= 


000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 
000124 


M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

MS$0VR= 

NULL 

N$$ACC= 

N$$8UF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$l»IOV= 

N$$NCT= 

N$$PEM= 

P0P1 


000000 

000000 

000000 

000000 

000000 

000054R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000050R 


P0P2 

P0P3 

P$$P45= 

P$$WRD= 

Q$$OPT= 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

S$$URG= 

S$$YSZ= 

TABLE 

T$$KMG= 

T$$M1N= 

V$$CTR= 


000044R 

000036R 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

000000 

007600 

OOOOOOR 

000000 

000000 

001000 


002 


XCORE 

000106R 

XLI8R 

00OH6R 

XMXPTB 

000202R 

XSCOM 

000056R 

X$$DBT= 

000000 

SADDR  = 

******  Gx 

$BIN  = 

******  GX 

$DEA16= 

******  GX 

$DEA18= 

******  GX 

$MXLEN= 

******  GX 

$PTR  = 

******  GX 

$VEX3 

OOOOOORG 

$XLBR  = 

******  GX 

.MGMGE= 

******  GX 

.  ABS.  000000 
000242 
DATA    000152 
Errors  detected: 


000 
001 
002 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


»*♦  Assembler  statistics 


0 

0 

8955  words   (  35  Pages) 

14440  Words  (  55  Pages) 

RSX-11M/PLUS 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 

Sy:VEX3.V2'!'!h2?134ivEX3/CR/-SP=SV:Cl,1JRSXMCM.SML/ML,ri30,110]NETL!B/ML,[130,10]RSXMCM/PA:1,[132,10]VEX3 


VEX5  -  VNP  UPDATE  LINE  TABLES 
EXPANSION  ROUTINES 


428 

A29 

A  30 

^.51 

A32  000776 

433  001000 

434 

435 

436 

437 

438  001002 

459  001006 

440 

441 

442 

443 

444  001010 

445  001012 
446 

447 
448 
449 

450  001014 

451  001020 
452 

453 
454 
455 

456  001022 

457  001024 
458 

459 
460 
461 

462  001026 

463  001032 
464 

465 
466 
467 

468  001034 

469  001036 

470  001042 


V- 


005203 


062703  000002 


005203 


062703  000002 


005203 


062703  000002 


122525 

062703  000002 
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SrSTEM  LINE  NUMBER  (BYTE) 

SLNB:   INC     R3 
RETURN 

SVSTEM  LINE  NUMBER  (WORD) 

SLNW:   ADD     #2,R3 
RETURN 

STATION  NUMBER  (BYTE) 

STN8:   INC     R3 
RETURN 

STATION  NUMBER  (WORD) 

STNW:   ADD     #2,R3 
RETURN 

UNIT  NUMBER  (BYTE) 

UN8:    INC     R3 
RETURN 

UNIT  NUMBER  (WORD) 

UNW:    ADD     #2,fi3 
RETURN 

SINGLE  WORD 

WORD:   CMP8    (R5)+,(R5)t 
ADD     *2,R3 
RETURN 


••F!LE«MD'»VFGDTE 


6  11 


vv      vv    F 

FFFFFFFFF 

GGGGGGGG 

DDDDDDDD 

TTTTTTTTTT 

EEEEEEEEEE 

vv      vv    F 

FFFFFrpFF 
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TTTTTTTTTT 
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GG 

DD 

DD 

EE 
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GG 

DD 

DD 

EE 

VV      VV   F 

GG 

DD 

DD 

EE 

VV      VV   F 

GG 

DD 

DD 

EE 

VV      VV   F 

FFFFFFF 

GG 

DD 

DD 

EEEEEEEE 

VV      VV   F 

FFFFFFF 

GG 

DD 

DD 

EEEEEEEE 

VV      VV   F 

GG 

6GGGGG 

DD 

DD 

EE 

VV      VV   F 

GG 

GGGGGG 

DD 

DD 

EE 

VV   VV     F 

GG 

GG 

DD 

DD 

EE 

VV  VV     F 

GG 

GG 

DD 

DD 

EE 

VV       F 

GGGGG6 

DDDDDDDD 

EEEEEEEEEE 

VV       F 

GGGGGG 

DDDDDDDD 

EEEEEEEEEE 

5SSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

VFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
DTEtDF  ACTION  ROUTINES 
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350 

351 

352 

353  000A10 

35A  0004U 

355  000416 

356 

357 

358 

359  00^.20 


END  OF  DTESDF  MACRO 


103A01 


DTEEND:  CALL 
BCS 
RETURN 

ERRORS 

l01$:   EMSGSR 


CHKDTE 
101$ 


05 


CHECK  FOR  VALID  DTE  ADDRESS 
ERROR  -  DTE  ADDRESS  NOT  FOUND 


ULtGAL  DTE  ADDRESS 


•  •F  1LE«*ID«'VFGPVC 


G  13 


v\/ 

VV    F 

FFFFFFFFF 

GGGGGGGG 

PPPPPPPP 

VV 

VV 

cccccccc 

v\/ 

VV   F 

FFFFFFFFF 

GGGGGGGG 

PPPPPPPP 

VV 

VV 

cccccccc 

vv 

VV   F 

GG 

PP      PP 

VV 

VV   c 

\A/ 

VV   F 

GG 

PP      PP 

VV 

VV   c 

\/V 

VV   F 

GG 

PP      PP 

VV 

VV   c 

VV 

VV   F 

GG 

PP      PP 

VV 

VV   c 

VV 

VV   F 

FFFFFFF 

GG 

PPPPPPPP 

VV 

VV   c 

VV 

VV   F 

FFFFFFF 

GG 

PPPPPPPP 

VV 

VV   c 

\/v 

VV   F 

GG 

GGGGGG 

PP 

VV 

VV   c 

VV 

VV   F 

GG 

GGGGGG 

PP 

VV 

VV   c 

VV 

VV     F 

GG 

GG 

PP 

VV 

VV    c 

VV 

VV     F 

GG 

GG 

PP 

VV 

VV    c 

VV       F 

GGGGGG 

PP 

VV 

cccccccc 

VV       F 

GG6GGG 

PP 

VV 

cccccccc 

SSSSSSSS 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

run 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 
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425 

424 

425 

426 

427 

428 

429 

450 

451 

452 

455 

454 

455 

456 

437 

458  000454 

012701 

000106 

459  000440 

052767 

OOOOOOG  OOOOOOG 

440  000446 

001402 

441  000450 

012701 

000106 

442  000454 

443  000460 

105500 

444  00046. 

016702 

OOOOOOG 

445  000466 

062702 

000020 

446  000472 

447  000510 

448  000514 

016701 

000004' 

449  000520 

006301 

450  000522 

016746 

OOOOOOG 

451  000526 

452  000552 

455  000546 

010077 

000006" 

454  000552 

455  000556 

456  000562 

457  000566 

458  000572 

103433 

459  000574 

012700 

000106 

460  000600 

032767 

OOOOOOG  OOOOOOG 

461  000606 

001402 

462  000610 

012700 

000106 

463  000614 

464  000630 

016700 

000020' 

465  000654 

001406 

466  000636 

016701 

000030' 

467  000642 

052701 

000200 

468  000646 

110167 

000025G 

469  000652 

005067 

000030G 

470  000656 

471  000662 

.SBTTL  ALLXCB  -  ALLOCATE  X25  CIRCUIT  BLOCK 

h 

ALLXCB  -  ALLOCATE  AND  SET  UP  X25  CIRCUIT  BLOCK 

INPUTS: 

PRTADD  -  ADDRESS  OF  ENTRY  IN  PORT  TABLE 
SPFLAG  -  PSI  CHARACTERISTICS  WORD 

OUTPUTS: 

R5  -  MAPPED  ADDRESS  OF  X25  CIRCUIT  BLOCK  (APR  5  MAPPED  TO  BLOCK) 
R0,R1,R2  DESTROYED 


ALLXCB: 


5$: 


8$: 


10$: 
20$: 


MOV 

BIT 

BEQ 

MOV 

CALL 

BCS 

MOV 

ADD 

GETRV 

SAVMAP 

MOV 

ASL 

MOV 

CALL 

GETAD 

MOV 

PUTAD 

RESMAP 

CALL 

CALL 

BCS 

MOV 

BIT 

BEQ 

MOV 

GETAD 

MOV 

BEQ 

MOV 

BIS 

M0V8 

CLR 

PUTAD 

RETURN 


*X$LEN,R1 

#PF.PSV,$PFLAG 

5$ 

#X$GLEN,R1 

$ALPOL 

20$ 

$PS1PT,R2 

#H$PT8,R2 

R2,#2 

PORTNO.RI 

R1 

$8FR,-(SP) 

$CEACC 

(SP)+,R1 

RCSPRTADD 


INIXCB 

FNDHSH 

20$ 

#X$LEN,RO 

#PF.PSV,$PFLAG 

8$ 

#X$GLEN,RO 

R3,R0 

PVCOWN.RO 

10$ 

OLMSLN.RI 

*200,Ri 

R1,X$M0WNt$BFR 

X$TCLZ+$BFR 


GET  SIZE  OF  X.25  CIRCUIT  BLOCK 

CHECK  FOR  PSV  MODULE 

BRANCH  IF  NOT  PRESENT 

USE  LONGER  CIRCUIT  BLOCK  FOR  GATEWAY 

ALLOCATE  CIRCUIT  BLOCK 

BR  IF  UNSUCCESSFUL  ALLOCATION 

POINT  TO  PSI  HOME  BLOCK 

POINT  TO  PORT  TABLE  LISTHEAD 

READ  IN  PORT  TABLE  LISTHEAD 

SAVE  CURRENT  MAPPING 

GET  NUMBER  OF  PORTS 

GET  NUMBER  OF  BYTES  IN  PORT  TABLE 

SAVE  UNMAPPED  PORT  TABLE  ADDRESS 

MAP  TO  PORT  TABLE 

READ  IN  PORT  TABLE 

STORE  UNMAPPED  ADDRESS  IN  PORT  TABLE 

WRITE  OUT  UPDATED  PORT  TABLE 

RESTORE  PREVIOUS  MAPPING 

INITIALIZE  X25  CIRCUIT  BLOCK 

FIND  HASH  TABLE  ENTRY  AND  SET  UP 

BR  IF  NO  ENTRY  AVAILABLE 

GET  LENGTH  OF  XCB 

CHECK  FOR  PSV  MODULE 

BRANCH  IF  NOT  PRESENT 

PSV  USES  LONGER  XCB 

READ  IN  CIRCUIT  BLOCK 

GET  PROCESS  OWNER  NAME 

BR  IF  NONE  SPECIFIED 

GET  DLM'S  SYSTEM  LINE  NUMBER 

INDICATE  SLN  IS  PRESENT 

STCRE  OWNER 

STORE  TIME  SINCE  LAST  ZEROED 

WRITE  OUT  UPDATED  CIRCUIT  BLOCK 


;CTD001] 


;CTD001] 
;[TD001] 
;[TD001] 
.-[TDOOl] 
;«*-1 


;C TDOOl] 
; [TDOOl] 
;  [TDOOl] 
;  [TDOOl] 
; [TDOOl] 


VFGPVC     CREATED  BY  MACRO  OM  29-JUN-85  AT  0?:30 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


NStVCT 

PCVKW 

PP.DLM 

PF.PSV 

PORTNO 

PR T ADD 

PVCCTM 

PVCDF 

PVCFLG 

PVCLCN 

PVCNAM 

PVCNML 

PVCOWN 

PVCPRT 

PVCPSZ 

PVCST 

PVCT 

PVCTL 

PVCWSZ 

PVDLM 

PVEND 

PVFG 

PVICN 

PVNAM 

PVNAMX 

PVOUN 

PVPSZ 

PVSTA 

PVWSZ 

PXSDLM 

RTSPC 

R$RO 

R$R1 

R$R2 

R$R3 

R$RA 

R$R5 

SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UM 

SPACE 

SP$PA 

STORID 

SYNERR 

SYSFD8 


000000  RG 
000001 


****** 

OOOOOA  . 
000006  R 
000012  R 
000000  R 
000035  R 


GX 


000010 
000037  R 
000036  R 
OOOOPO  R 
00003A  R 
OOOOK  R 
000000  RG 
000166  R 
001554  R 
000016  R 
001506  R 
0003/i6  R 
0003K  R 
000130  R 
000056  R 
000006 
000256  R 
000212  R 
001626  R 
00023^;  R 
000200 
♦«»***   GX 

:   000002 
OOOOOA 

:  000006 

:  000010 

:  0000^2 

:  OOOOU 

:  000200 

:  000100 

■   OOOOO'i 

:  000040 

:  000020 

:  00001 C 
:  000001 

:  000002 

:  000040 

--   000040 
000062  RG 

:  ««»«*.  GX 
r  **»*•»  GX 
:  ♦...«.   GX 


REFERENCES 

1S-498 

9-193 
#7-145 

14-439 
#7-133 
#7-134 
#7-136 

9-191 
#7-147 
#7-135 
#7-149 
#7-148 
#7-139 
#7-146 
#7-137 
#10-212 
#11-337 
#19-665 
#7-138 
#19-646 
#13-404 
#12-389 
#11-321 
#11-303 
#6-105 
#12-374 
#12-350 
#19-677 
#12-362 

20-746 

8-165 
#6-111 
#6-112 
#6-113 
#6-114 
#6-115 
#6-116 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#5-70 
#6-104 
#7-158 
11-306 
»9-196 

*14-446 

♦20-731 


16-536 
#10-212 

14-460 

14-448 

14-453 

♦11-339 

♦11-311 
♦11-327 
19-646 
11-304 
♦11-310 
♦15-510 
♦11-308 


♦11-309 


11-305 


8-166 


16-562 

♦9-199 

♦14-4:2 

♦20-736 


17-586 


16-538 
♦15-495 
♦15-509 

16-550 

♦12-393 
16-553 


♦12-379 

16-552 

♦12-352 


♦12-364 


8-167 


G  15 
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CREf       04.00 


15-499 


17-590 


14-464 
17-608 
16-549 


16-548 


15-512 


17-607 


8-168 


8-169 


-170 


8-171 


8-172 


♦19-673 
♦14-463 


♦15-494         ^15-497         ^15-501 


♦16-541 


♦17-587 


♦17-598 


VF&SVf    - 
SVCtOf    S 

2^0 
2^.1 
242 
24? 
2A4 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 


CONFIG  FILE    SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85   02:30     Page  9-1 
■ATE   TABLE 


52:30 


000052 
000052 

000052 
000052 
000052 

OOC052 
000052 
000052 

000052 
000052 

000052 


STATES 
TRANS   <',> 

STATES  ;  START  OF  DTE  ADDRESS 

TRANS   <',>,SVOWN,NODrE  ;  NO  DTE  ADDRESS  SPECIFIED 
TRANS   Sd!g1T,,SVDTES 

STATES  SVCDTE 
TRANS   SDIGIT, SVCDTE, SVDTED  ;  NEXT  DIGIT  IN  DTP  ADDRESS 
TRANS   <',>,, SVDTEE        ;  END  OF  DTE  ADDRESS 

STATES  SVOWN         ;  OWNER 
TRANS   SRAD50,SEXIT,SV0WNR 

STATES 


VENA  -  VNP   ENABLE/DISABLE   LINES  MACHO  V05.03b  Uednesday  11 
FILOPR   -  OPERATE  ON  FILTER   CONTROL   SLOCK 


H     1 
-Sep-85   12:06 


Page  62-2 


3576  016^72 

3577  016474 

3578  016504 

3579  016512 

3580  016520 

3581  016530 

3582  016532 

3583  016534 
3584 

3585  016536 

3586  016540 

3587  016550 

3588  016556 

3589  016564 

3590  016574 

3591  016576 

3592  016602 

3593  016606 

3594  016610 

3595  016614 

3596  016620 
3597 

3598 
3599 

3600  016622 

3601  016630 

3602  016634 

3603  016640 

3604  016644 

3605  016646 

3606  016652 

3607  016656 

3608  016662 

3609  016666 

3610  016672 

3611  016674 

3612  016700 

3613  016704 

3614  016710 

3615  016712 

3616  016722 

3617  016740 

3618  016742 
3619 

3620  016744 

3621  016752 

3622  016756 

3623  016760 

3624  016764 

3625  016770 

3626  016774 

3627  016776 

3628  017002 

3629  017006 

3630  017010 

3631  017014 

3632  017016 


016767 
042767 


000241 
000555 


016767 
042767 


012705 

103130 
012705 

000523 


016767 
012703 
012705 

103013 
012703 
012705 


000002G  OOOOOOG 
177700     OOOOOOG 


40$: 


000002G  OOOOOOG 
177700  OOOOOOG 


000014G 
000040G 


SAVRG 

CEACCS 

MOV 

BIC 

PUTAD 

RESRG 

CLC 

BR 

SAVRG 

CEACCS 

MOV 

BIC 

PUTAD 

RESRG 

MOV 

CALL 

BCC 

MOV 

CALL 

BR 


<R0> 

RO 

F.CLS+$BFR,$RSIZE 

#*C<FF.MSK>,$RSIZE 

RO 

<R0> 

80$ 

<R0> 

RO 

F.CLS+SBFR,$RSIZE 

#*C<FF.MSK>,$RSIZE 

RO 

<R0> 

#$BFR+F.SEV+10,R5 

CHKEVT 

80$ 

#$BFR+F.CEV+10,R5 

CHKEVT 

80$ 


OPERATE   ON  GLOBAL    FILTER  BLOCK 


OOOOOOG  000170'   60$: 

000004G 

000004G 


000004G 
000076' 


OIP/'OS  OOOOOOG 

00J424 

012703  000004G 

012705  000076' 


010001 


65$: 


103044 
012705 
012703 

103013 
012705 

1030O6 
012705 
010400 


70$: 
75$: 


000220' 
000076' 


000204' 
000170' 


MOV 

MOV 

MOV 

CALL 

BCC 

MOV 

MOV 

CALL 

MOV 

CALL 

BR 

MOV 

MOV 

CALL 

SAVRG 

CEACC$ 

PUTAD 

RESRG 

MOV 


$6FR,FLTBUF 

#L0.EVT+RQB,R3 

#$8FR+F.EVT,R5 

CLREVT 

65$ 

#$8FR+F.EVT,R3 

#TMPMSK,R5 

SAVCOM 

#$BFfi,R5 

DEAFIL 

70$ 

#$BFR+F.EVT,R3 

#TMPHSK,R5 

SAVCOM 

<R0> 

RO 

RO,#F.LEN 

<R0> 

RO.RI 


SWTCHO  #FLTBUF 

CALL  GETNXT 

BCC  80$ 

MOV  *FLTBUF*F.CEV,R5 

MOV  #TMPMSK,R3 

CALL  CLREVT 

BCC  77$ 

MOV  #FLTBUF<-F.SEV+10,R5 

CALL  CHKEVT 

BCC  17% 

MOV  #FLT6UF,R5 

MOV  R4,R0 

CALL  DEAFIL 


SAVE  RO 

CONVERT  TO  MAPPED  ADDRESS 

GET  LENGTH  OF  BLOCK  TO  DEALLOCATE 

WRItE  out  updated  FILTER  BLOCK 
RESTORE  UNMAPPED  ADDRESS 
FILTER  BLOCK  STILL  USEFUL 
FINISH  UP 

SAVE  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

GET  LENGTH  OF  BLOCK  TO  DEALLOCATE 

URItE  out  UPDATED  FILTER  BLOCK 

RESTORE  UNMAPPED  ADDRESS 

POINT  TO  END  OF  'SET'  EVENT  MASKS 

ANY  MASKS  SET? 

BR  IF  YES 

POINT   TO  END  OF    'CLEAR'    MASKS 

CHECK   IF   ANY  iVr^Ki   SET 

FINISH  UP 


STORE  POINTER  TO  NEXT  BLOCK 

POINT  TO  FILTER  MASKS 

POINT  TO  FILTER  MASKS 

CLEAR  THE  FILTER  MASKS 

BR  IF  NOT  NECESSARY  TO  DEALLOCATE 

POINT  TO  GLOBAL  FILTER  MASKS 

POINT  TO  TEMPORARY  STORAGE 

SAVE  COMPLEMENT  OF  FILTER  MASKS 

DEALLOCATE  FILTER  BLOCK  FROM  $BFR 

DEALLOCATE  FILTER  BLOCK 

CONTINUE 

POINT  TO  GLOBAL  FILTER  MASKS 

POINT  TO  TEMPORARY  STORAGE 

SAVE  COMPLEMENT  OF  FILTER  MASKS 

SAVE  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

REWRITE  GLOBAL  FILTER  BLOCK 

RESTORE  UNMAPPED  ADDRESS 

SAVE  ADDRESS  OF  PREVIOUS  BLOCK 

USE  FLTBUF  FOR  OUTPUT  BUFFER 

GET  NEXT  FILTER  BLOCK 

BR  IF  FINISHED 

POINT  TO  'CLEAR'  FILTER  MASKS 

POINT  TO  SCRATCH  AREA 

CLEAR  THE  'CLEAR'  MASKS  NOT  IN  GLOBAL 

BR  IF  SOME  MASKS  STILL  SET 

POINT  TO  END  OF  'SET'  FILTER  MASKS 

ANY  MASKS  SET? 

BR  IF  YES 

DEALLOCATE  FILTER  BLOCK  FROM  FLTBUF 

GET  ADDRESS  OF  FILTER  BLOCK 

ELSE,  DEALLOCATE  FILTER  BLOCK 


I  .1 


VEMA  -  VNP  ENABLE/DISABLE  LINES 

STQUAL  -  SET  QUALIFIER 

3ITS 

394A 

59A5 

39A6 

3947 

39A8 

5949 

3950 

3951 

3952 

3953 

395A 

3955 

3956 

3957 

3958 

3959  017650 

005067 

000120' 

3960  017654 

032767 

000004 

3961  017662 

001021 

3962  017664 

012767 

000002 

3963  017672 

032767 

000200 

3964  017700 

001012 

3965  017702 

012767 

000001 

3966  017710 

032767 

000400 

3967  017716 

001003 

3968  017720 

012767 

000004 

3969  017726 

032767 

000040 

3970  017734 

001403 

3971  017736 

052767 

000010 

3972  017744 

032767 

000020 

3973  017752 

001403 

3974  017754 

052767 

000020 

3975  017762 

032767 

000010 

3976  017770 

001403 

3977  017772 

052767 

100000 

3978  020000 

032767 

000001 

3979  020006 

001403 

3980  020010 

0527' 7 

040000 

3981  020016 

3982 

3983 

3984 

3985  020020 

,03b  Wednesday  11-Sep-85  12:06  Page  73 

.SBTTL  STQUAL  -  SET  QUALIFIER  BITS 

y 

..TQUAL  -  SET  QUALIFIER  BITS  FOR  FILTER  BLOCK 

INPUTS: 

SOPTON  -  OPTIONS  WORD 

$QUAL  -  COMMAND  QUALIFIER 

OUTPUTS: 

EVQUAL  -  CONTAINS  QUALIFIER  BITS 


STQUAL 

CLR 

EVQUAL 

CLEAR  QUALIFIER  FLAGS  WORD 

OOOOOOG 

BIT 

#QF$KN0 

$QUAL 

IS  THIS  FOR  KNOWN  LOGGING? 

BNE 

10$ 

BR  IF  YES 

000120' 

MOV 

#FF.FIL 

EVQUAL 

ASSUME  LOGGING  FILE 

OOOOOOG 

BIT 

#OP$FIL 

$OPTON 

IS  THIS  FOR  LOGGING  FILE? 

BNE 

10$ 

BR  IF  YES 

000120' 

MOV 

#FF.CON 

EVQUAL 

ASSUME  LOGGING  CONSOLE 

OOOOOOG 

BIT 

#OP$CON 

$OPTON 

IS  THIS  FOR  LOGGING  CONSOLE? 

BNE 

10$ 

BR  IF  YES 

000120' 

MOV 

#FF.M0N 

EVQUAL 

ELSE  MUST  BE  LOGGING  MONITOR 

OOOOOOG 

10$: 

BIT 

#0P$LNE 

$OPTON 

WAS  A  LINE  QUALIFIER  SPECIFIED? 

BEQ 

20$ 

BR  IF  NO 

000120' 

BIS 

*FF.L1N 

EVQUAL 

ELSE  SET  QUALIFIER  BIT 

OOOOOOG 

20$: 

BIT 

#OP$NOD 

$OPTON 

WAS  A  NODE  QUALIFIER  SPECIFIED? 

BEQ 

30$ 

BR  IF  NO 

000120" 

BIS 

#FF.ADD 

EVQUAL 

ELSE  SET  QUALIFIER  BIT 

OOOOOOG 

30$: 

BIT 

#OP$SIN 

$OPTON 

WAS  A  SINK  NODE  SPECIFIED? 

BEQ 

40$ 

BR  IF  NO 

000120' 

BIS 

*FF.REM 

EVQUAL 

ELSE  SET  QUALIFIER  BIT 

OOOOOOG 

40$: 

BIT 

#OP$HOS 

$OPTON 

WAS  $HOST  SPECIFIED? 

BEQ 

50$ 

BR  IF  NO 

000120' 

50$: 

BIS 

RETURN 

*FF.HST 

EVQUAL 

ELSE  SET  QUALIFIER  BIT 

RETURN 


1 


I  2 
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4A00 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 


.SBTTL  TSKSCH  -  SEARCH  FOR  TASK  TCB 
'♦•-TSKSCH-SEARCH  TCB'S  FOR  SPECIFIED  TASK 
INPUTS: 


RO 


-  POINTER  TO  RAD50  TASK  NAME 


OUTPUTS: 

SRADDR  -  ADDRESS  OF  TCB 
$BFR    -  IMAGE  OF  TCB 
C-BIT  SUCCESS/FAILURE 
R3,R4,R5  DESTROYED 


021630 
021630 
021650 
021654 

021660 
021666 
021670 
021672 
021676 
021702 
021704 
021712 
021714 


TSKSCH: 


012705  OOOOOOG 
011565  000030 

016567  000030 

000261 

001411 


021065 
001366 
026065 
001362 


OOOOOOG  10$: 


000006 

000002  000010 


30$: 


GETRV 

MOV 

MOV 

MOV 

SEC 

BEQ 

GETRV 

CMP 

BNE 

CMP 

BNE 

RETURN 


.TSKHD,.TLGTH 

#$SFR,R5 

(R5),T.TCBL(R5) 

T.TCBL(R5),$RADDR 

30$ 

(R0),T.NAM(R5) 
10$ 

2(R0),T.NAM+2(R5) 
10$ 


READ  IN  LISTHEAD 
POINT  AT  BUFFER  BASE 
INITIALIZE  FOR  LOOP 

;  SET  TCB  ADDRESS 

ASSUME  ERROR 

NULL  TASK  (  END  OF  LIST  ) 

READ  IN  TCB 

MUST  MATCH  BOTH 

;  HALVES  OF  NAME 
C-8IT  IS  CLEAR 


I  3 


VENA 


CREATED  BY  MACRO  ON  11-SEP-85  AT  12:08 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


E.LIN 

E.LNK 

E.MOD 

E.NOD 

E.PDV 

E.PORT 

E.PRM 

E.PVC 

E.SIZ 

E.TIME 

FATAL 

FF.ADD 
FF.CIR 
FF.CON 
FF.FIL 
FF.HST 
FF.LIN 
FF.MOD 
FF.MON 
FF.MSK 

FF.PRT 
FF.QUL 
FF.REM 
f ILDEV 
FILLEN 
FILNAM 
FILOPR 
FILPRO 


000024 
000000 
000036 
000034 
000021 
000040 
000026 
000044 
000022 
000004 

=   ****** 

=  000020 
=  000040 
=  000001 
=  000002 
=  040000 
=  000010 
=  000100 
=  000004 
=  000077 

=  000200 
=  000370 
=  100000 

000146  R 
=  000020 
000134  R 
015772  R 
014422  R 


GX 


REFERENCES 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 
11-514 
40-2176 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 

#5-69 
63-3679 

#5-69 

#5-69 

#5-69 

#6-154 

#6-128 

#6-151 
57-3220 
56-3147 


FILTYP 

000142 

R 

#6-152 

FILUIC 

000152 

R 

#6-156 

FILUNT 

000150 

R 

#6-155 

FILVER 

000144 

R 

#6-153 

FINFLT 

015340 

R 

59-3345 

F I  NOB J 

005376 

R 

#29-1611 

FINREM 

005500 

R 

28-1578 

FLTBUF 

000170 

R 

#6-161 
62-3627 

FNDCTR 

021022 

R 

79-4205 

FNDDCB 

02C616 

R 

38-1909 

FNDDMP 

002732 

R 

13-604 

FNDFIL 

015534 

R 

57-3173 

FNDFR 

002136 

R 

16-701 

FNDLIN 

002304 

R 

15-669 

FNDPCL 

002526 

R 

13-599 

FNDTRI 

002310 

R 

13-594 

FNPID 

002222 

R 

16-697 

FRSSCC 

=  000007 

#5-79 

FRSCCF 

=  000001 

#5-79 

FRSCOF 

=  000002 

#5-79 

FRSDAO 

=  00001 1 

#5-79 

11-516 

40-2177 

5-69 

5-69 

6-166 

6-167 

71-3909 

5-69 

5-69 

6-168 

45-2595 

63-3685 

5-69 

60-3385 
50-2816 
50-2806 
47-2691 
#62-3481 
#57-3170 
♦50-2900 
♦50-2849 
♦50-2820 
♦50-2915 
#60-3371 
41-2276 
#30-1640 
62-3520 
62-3630 
80-4225 
50-2827 
#22-1015 
57-3183 
#18-820 
#20-899 
#21-961 
14-637 
#19-857 
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39-2057 
40-2178 
57-3172 

55-3089 
55-3089 
73-3980 
45-2601 

55-3089 
60-3381 
72-3931 


60-3387 

♦50-2819 

58-3284 

50-2803 


♦50-2902 
♦50-2853 


♦62-3521 
63-3672 

#81-4251 
52-2995 

#61-3425 


#20-902 


39-2062 
40-2179 
61-3449 

55-30"^ 
55-30-.=: 

57-31 72 

55-3098 
61-3435 


60-3391 
50-2826 

50-2862 


39-2063 
83-4396 
73-3974 

63-3689 
63-3689 

61-3453 

63-3689 
61-3440 


61-3445 
58-3282 


39-2064 


63-3691 
63-3691 

73-3971 

63-3691 
62-3539 


39-2065 


73-3965 
73-3962 


73-3968 
62-3579 


39-2069 


40-2171 


62-3588    62-3637 


63-3694    63-3696    63-3699    73-3977 


62-3526 
63-3673 

#77-4159 


62-3529 
63-3684 


62-3532 
63-3688 


♦62-3600 
63-3696 


62-3620 
63-3699 


62-3623 
63-3701 


I  4 


VENA 


CREATED  BY  MACRO  ON  11-SEP-85  AT  12:08 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 
$QUAL   =  »♦«»«*  GX 
SRADDR  =  .*.t**  GX 


H  5 

PAGE  19 

CREF   OA.OO 


SRBLCK 
SRDBLH 
SRPASW 
SRSIZE 


SSAVAL 
SSAVRG 
$SLN 

SSLTA 

SSLTMA 

$SMOD 

SSNOD 

STPASW 

$TRIB 

SVACP 

SVACT 

SVALI 

SVCOST 

SVDEA 

SVENA 

SVERIF 

SVFLAG 


$VHST 
SVHTM 
SVINA 
tVINC 
tVLlK 
SVLOG 
SVLTM 
$VOBJ 
$VOUT 
$VOW^ 
$VREM 
$VRET 


******  GX 
»»««♦*  GX 
006130  RG 
******  GX 


«♦**♦*  GX 
******  GX 
******  GX 


~   ****** 


GX 


GX 

007524  RG 
003'460  RG 
006260  RG 
******  GX 

00652'i  RG 
001350  RG 
011012  RG 
002006  RG 
00K30  RG 
000250  RG 
006A10  RG 


GX 


020662  RG 
020770  RG 
OO^Ui  RG 
00'iO5'i  RG 
00A23A  RG 
012002  RG 
020736  RG 
010306  RG 
OOAIIO  RG 
001 51 G  RG 
00165A  RG 
004200  RG 


REFERENCES 

41-2203 
56-3150 
•11-442 
•26-1307 
•29-1620 
•39-1990 
•40-2157 
•50-2831 
•62-3589 
•75-4103 
♦82-4328 
•20-913 
39-2033 
25-1229 
•45-2594 
•62-3538 
•63-3679 
11-397 
57-3170 
11-416 
81-4268 
11-447 
20-904 
35-1807 
#40-2084 
#25-1171 
25-1230 
11-422 
21-985 
25-1232 
#14-632 
#42-2300 
#17-771 
#15-664 
#11-394 
25-1231 
•11-414 
26-1264 
40-2090 
75-4120 
25-1226 
#80-4225 
25-1237 
25-1235 
25-1227 
#44-2489 
#79-4205 
#41-2196 
25-1236 
#16-695 
25-1228 
25-1238 


41-2210 

58-3244 

•20-919 

•26-1324 

•30-1649 

•39-1993 

•41-2273 

•53-3020 

•62-3616 

♦75-4123 

•82-4333 

•20-918 

39-2034 

25-1247 

•45-2595 

•62-3539 

63-3680 

45-2582 

11-436 

11-467 
21-962 


25-1248 

11-461 

22-1038 

#39-1939 


#38-1907 
11-474 
28-1490 
40-2108 
83-4387 
25-1244 

#26-1341 

#26-1307 

25-1245 


#26-1324 

25-1246 
#26-1358 


41-2223 
73-3960 
'20-927 
•26-1341 
•32-1713 
•39-2015 
•42-2339 
•59-3341 
•62-3638 
•76-4139 
•82-4344 
•21-971 

#36-1827 

45-2597 

•62-3578 


16-715 

12-554 
22-1016 


#37-1867 
16-726 
81-4259 


11-479 
28-1504 
40-2115 
83-4394 
#78-4178 


#27-1379 


#28-1484 


42-2307 

•21-977 

•26-1358 

•36-1830 

•39-2040 

•42-2345 

•60-3379 

•63-3677 

♦76-4142 

♦82-4348 

♦21-976 


•60-3380 
•62-3579 


16-717 

12-567 
24-1113 


16-728 
81-4269 


11-494 

39-1940 

40-2129 


43-2465         45-2561 


•21-984 

•27-1399 

♦36-1832 

♦39-2044 

♦42-2390 

•61-3433 

•74-4009 

•77-4161 

•84-4415 

•22-1025 


•60-3381 
•62-3587 


16-735 

13-591 
24-1123 


16-736 


•11-510 
39-1947 
40-2152 


•22-1031 
•27-1407 
•37-1870 
•39-2046 
•42-2423 
•62-3503 
♦74-4025 
•78-4179 
♦84-4419 
•22-1030 


60-3382 
•62-3588 


16-738 

14-633 
24-1137 


16-743 


11-518 

39-1984 

42-2365 


47-2689 

•22-1037 
•28-1570 
•37-1872 
40-2124 
♦42-2427 
♦62-3515 
♦74-4028 
•81-4271 


•61-3434 
•62-3636 


45-2605 

15-665 
24-1147 


17-790 


55-3090 

•26-1267 
♦28-1573 
♦38-1911 
•40-2133 
•45-2593 
•62-3540 
•74-4065 
•81-4275 


56-3126 

•26-1290 
•28-1583 
39-1979 
•40-2136 
•49-2774 
•62-3580 
•75-4094 
•82-4321 


•39-2038       *39-2045       ^81-4272 


♦61-3435 
♦62-3637 


61-3455 

16-703 
81-4251 


17-792 


61-3436 
♦63-3678 


71-3899 
17-772 


20-928 


12-539  23-1065 

39-2010       ^39-2024 
53-3025         54-3061 


24-1098 
39-2031 
55-3100 


1     5 
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516 
517 
518 

519  00120^ 

520  001212 

521  0012U 

522  0012'6 

523  001220 

524  001222 

525  00122A 

526  001230 

527  001232 

528  001234 

529  001240 

530  001244 
551   001246 

532  001252 

533  001260 

534  001262 

535  001264 

536  001270 

537  001274 
538 

539 
540 
541 

542  001276 

543  001304 

544  001306 

545  001310 

546  001314 

547  001316 

548  001320 

549  001322 

550  001324 

551  001326 

552  001332 

553  001334 

554  001336 

555  001342 

556  001344 

557  001350 

558  001354 

559  001356 

560  001362 

561  001366 

562  001370 

563  001374 

564  001400 

565  001402 

566  C01406 

567  001414 

568  001416 

569  001422 

570  001426 

571  001432 


012767 
112546 
010546 
011605 
005003 
152503 
122703 
001406 
106303 


000765 
005267 
126667 
001356 
022626 
005067 
005067 


100000  000450' 


OOOOOOG 


000446' 
000002 


000446' 


000446' 
000450' 


;  SECONDARY  FILE 

MXTAB:  MOV 

#100000, FLAGS 

INDICATE  MUX  EXPANSION 

FILE:   MOVB 

(R5)+,-(SP) 

GET  REPEAT  COUNT 

MOV 

R5,-(SP) 

SAVE  CURRENT  BINARY  FILE  POINTER 

10$:    MOV 

(SP),R5 

RESTORE  BINARY  FILE  POINTER 

20$:    CLR 

R3 

GET  FUNCTION  CODE 

BISB 

(R5)+,R3 

CHPB 

#.E0F,R3 

IS  IT  END  OF  FILE? 

BEQ 

30$ 

IF  EO,  YES 

ASLB 

R3 

CONVERT  TO  A  WORD  INDEX 

CALL 

aTA8LE-2(R3) 

EXPAND  A  FIELD 

CALL 

$8UFCK 

DON'T  LET  BUFFER  OVERFILL 

BR 

20$ 

KEEP  LOOKING  FOR  EOF 

30$:    INC 

INDEX 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

CMPB 

2(SP), INDEX 

ARE  UE  DONE? 

BNE 

10$ 

IF  NE,  NO 

CMP 

(SP)+,(SP)t 

PURGE  STACK 

CLR 

INDEX 

CLEAR  SECONDARY  INDEX 

CLR 

FLAGS 

AND  SPECIAL  FLAGS 

RETURN 


■  LINKED  SECONI 

012767 

000200  000450' 

MP TAB: 

MOV 

112546 

LFILE: 

MOVB 

112546 

MOVB 

112566 

000001 

MOVB 

010546 

MOV 

011605 

10$: 

MOV 

010446 

MOV 

005003 

20$: 

CLR 

152503 

BISB 

022703 

OOOOOOG 

CMP 

001404 

BEQ 

106303 

ASLB 
CALL 

000767 

BR 

012700 

OOOOOOG 

30$: 

MOV 

066600 

000004 

ADD 

012601 

MOV 

016002 

000002 

MOV 

166702 

oooooof: 

sue 

005011 

CLR 

066701 

OOOOOOG 

ADD 

010160 

000002 

MOV 

010112 

MOV 

005267 

000446' 

INC 

126667 

000004  000446' 

CMPB 

001340 

BNE 

062706 

000006 

ADD 

005067 

000446' 

CLR 

005067 

000450' 

CLR 
RETURN 

#200, FLAGS 

(R5)+,-(SP) 

(R5)+,-(SP) 

(R5)+,1(SP) 

R5,-(SP) 

(SP),R5 

R4,-(SP) 

R3 

(R5)+,R3 

#.E0F,R3 

30$ 

R3 

aTA8LE-2(R3) 

20$ 

#$TMPBF,RO 

4(SP),R0 

(SP)+,R1 

2(R0),R2 

$LINK,R2 

(R1) 

$LINK,R1 

R1,2(R0) 

R1,(R2) 

INDEX 


4(SP) 

10$ 

#6,SP 

INDEX 

FLAGS 


INDEX 


INDICATE  MTP  EXPANSION 

SAVE  REPEAT  COUNT 

AND  LISTHEAD  DISPLACEMENT 

SAVE  BINARY  POINTER 

RESET  BINARY  POINTER 

SAVE  SECONDARY  TABLE  ADDRESS 

GET  FUNCTION  CODE 

IS  IT  END  OF  FILE? 

IF  EQ,  YES 

CONVERT  TO  WORD  INDEX 

EXPAND  A  FIELD 

KEEP  LOOKING  FOR  EOF 

GET  MULTIPOINT  LISTHEAD  ADDRESS 

RESTORE'sECONDARY  table  ADDRESS 
LINK  SECONDARY  TABLE  TO  LISTHEAD 
RELOCATE  TO  SCOM 

RELOCATE'tO  SCOM 


TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  WE  DONE? 

IF  NE,  NO 

PURGE  STACK 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 


_J 
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VEX2  CREATED  BY     MACRO     ON  29-JUN-85   AT  02:27  PAGE  A 

SYMBOL  CROSS  REFERENCE  CREF   OA.OO 

SYMBOL  VALUE  REFERENCES 

IICBAD  =  *»«*** 

SICBLN  =  «•♦*»♦ 

SICBSZ  =  •»♦♦»♦ 

SLINK  =  ******     GX  7:27l"  7-316"  11-560  11-562  13-71A         *13-715         M3-716         *13-717         ♦13-760 

SMXADD  =  ****** 

$MXS12  =   ••♦«*♦ 

$PTR  =   ****** 

JpyTDr  —  ****** 

SRADDR  =  ******     GX         *7-366'  *7-373'         *12-670         *13-7A8 

SSADDR  =  *••♦*• 

$SLN  =  «»*♦** 

SSLTA  =  ****** 

STMPBF  =   ******      ...  ,      

$UDA  =   ******     GX  8-458  *8-470  9-483  *9-486 

J.VECT1  =   *»**»» 

$VEX2  000000 

$X2HLD  =  ****** 

$X2MSS  =  ****** 

$X2MRT  =  ****** 

$X2MWS  =  ****** 

$X2RET  =  ****** 

$X3CAL  =  ****** 

$X3CLR  =  ****** 

$X3DBS  =  ****** 

$X3DUS  =  ****** 

$X3MBS  =  ****** 

$X3MCL  =  ****** 

$X3MRE  =  ****** 

$X3HRS  =  ****** 

$X3MWS  =  ****** 

SX3RES  =  ****** 

$X3RST  =  ****** 

$$APR  =  ****** 

$$CSR  =  ****** 

$$DCHA  =  ****** 

$$DPR  =  ****** 

$$LSAD  =  ****** 

$$MTP  =  ****** 

SSPCHA  =  **♦*.♦ 

$$PRI  =  ****** 

$$SCSR  =  ****** 

SSSNUM  =  ****** 

.EOF  =  »♦»***  _,.     ,   ._.     .  .  ._      ._   _ 

.MGMGE  =^  ******     GX  8-',',7  8-460  10-494  12-586  12-600 


GX 

12-670 

GX 

12-659 

GX 

12-670 

GX 

12-590 

*12-593 

GX 

7-271 

7-316 

11-560 

GX 

13-715 

GX 

13-759 

GX 

6-181 

GX 

12-670 

13-748 

GX 

*7-306 

*7-373 

*12-670 

GX 

7-324 

12-602 

12-652 

GX 

7-352 

7-364 

GX 

7-269 

GX 

11-556 

GX 

8-458 

*8-470 

9-483 

GX 

12-653 

*12-658 

RG 

#6-175 

GX 

15-867 

GX 

15-852 

GX 

15-857 

GX 

15-847 

GX 

15-862 

GX 

14-810 

GX 

14-815 

GX 

14-790 

GX 

14-800 

GX 

14-795 

GX 

14-830 

GX 

14-835 

GX 

14-840 

GX 

14-805 

GX 

14-820 

GX 

14-825 

GX 

13-773 

GX 

7-244 

GX 

7-274 

7-275 

GX 

13-779 

13-782 

GX 

7-202 

7-211 

GX 

7-391 

7-404 

GX 

7-294 

GX 

10-513 

GX 

7-339 

GX 

7-394 

7-408 

GX 

11-525 

11-551 

13-727 

GX 

8-447 

8-460 

10-494 

VEX? 

CREATED   BY 

MACRO     ON  29-JUN-85  AT 

02:27 

PAGE   1 

SYMBOL 

CROSS  REFERENCE 

CREf        0 

SYMBOL 

VALUE 

REFERENCES 

NULL 

00005A 

R 

5-77 

5-78 

5-84 

l-^L 

5-97 

5-100 

5-101 

5-102 

5-lK 

5-115 

5-116 

5-117 

5-123 

5-124 

5-125 

5-126 

POPl 

0C0050 

R 

5-79 
#7-180 

5-80 

5-81 

5-83 

P0P2 

0000A4 

R 

5-88 

5-107 

5-110 

5-111 

P0P5 

000036 

R 

5-91 

5-9A 

#7-168 

TABLE 

000000 

R 

#5-77 

6-156 

XCORE 

000106 

R 

5-82 

#8-208 

XLIBR 

000U6 

R 

5-89 

#9-227 

XMXPTS 

000202 

R 

5-112 

#10-242 

XSCOM 

000056 

R 

5-99 

#8-195 

SADDR 

-      ****** 

GX 

6-U9 

$BIN 

=      ****** 

GX 

6-U8 

$DEA16 

-      ****** 

GX 

8-202 

10-253 

$0EA18 

-      ****** 

GX 

8-221 

SMXLEN 

=      ****** 

GX 

10-250 

$PTR 

=      ****** 

GX 

6-150 

$VEX3 

000000 

RG 

#6-U7 

SXLBR 

-    ****** 

GX 

9-237 

.MGMGE 

GX 

8-212 

9-234 

H     9 


04.00 


5-86 

5-103 

5-118 

5-127 

5-87 

It?-]?', 


5-90 

5-104 

5-119 

5-128 

5-95 


5-92 

5-105 

5-120 

5-129 

5-98 


5-93 
5-106 
5-121 
#7-186 
5-108 


5-96 

5-113 

5-122 

5-109 


n 


VEX5  -  VNP  UPDATE  LINE 
EXPANSION  ROUTINES 


472 
473 
474 

475  001044 

476  001050 

477  001052 

478  001054 

479  001056 

480  001062 

481  001064 

482  001072 

483  001074 

484  001100 

485  001102 

486  001104 

487  001106 

488  001112 

489  001114 

490  001116 

491  001122 

492  001124 

493  001130 

494  001136 

495  001140 

496  001142 

497  001146 

498  001152 
499 

500 

501 

502 

503  001154 

504 

505 

506 

507 

508  001156 

509  001160 

510  001162 

511  001164 

512  001166 

513  001170 

514  001172 

515  001174 

516  001200 

517  001202 

518  001204 

519  001210 

520  001212 

521  001216 

522  001224 

523  001226 

524  001230 

525  001234 

526  001240 
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;  SECONDARY  FILE 

005267 

000154' 

MX  TAB: 

INC 

FLAGS 

112546 

FILE: 

M0V8 

(R5)+,-(SP) 

010546 

MOV 

R5,-(SP) 

011605 

10$: 

MOV 

(SP),R5 

005767 

000154' 

TST 

FLAGS 

001407 

BEQ 

20$ 

126467 

000013  000152' 

CMPB 

L.UNT(R4), INDEX 

001003 

BNE 

20$ 

026403 

000004 

CMP 

L.DDS(R4),R3 

001025 

BNE 

101$ 

005002 

20$: 

CLR 

R2 

152502 

BISB 

(R5)+,R2 

122702 

OOOOOOG 

CMPB 

#.E0F,R2 

001404 

BEQ 

30$ 

106302 

ASL8 
CALL 

R2 
aTABLE-2(R2) 

000767 

BR 

20$ 

005267 

000152' 

30$: 

INC 

INDEX 

126667 

000002  000152' 

CMPB 

2(SP), INDEX 

001346 

BNE 

10$ 

022626 

CMP 

(SP)t,(SP)+ 

005067 

000152' 

CLR 

INDEX 

005067 

000154' 

CLR 
RETURN 

FLAGS 

;  ERROR 

CONDITION 

101$: 

CRASH 

;  LINKED  SECONDARY  FILE 

MPTAB: 

CRASH 

112546 

LFILE: 

MOVB 

(R5)+,-(SP) 

122525 

CMPB 

(R5)+,(R5)+ 

010546 

MOV 

R5,-(SP) 

011605 

10$: 

MOV 

(SP),R5 

005002 

20$: 

CLR 

R2, 

152502 

BISB 

(R5)t,R2 

022702 

0000006 

CMP 

*.E0F,R2 

001404 

BEQ 

30$ 

106302 

ASLB 
CALL 

R2 
aTA8LE-2(R2) 

000767 

BR 

20$ 

005267 

000152' 

30$: 

INC 

INDEX 

126667 

000002  000152 

CMPB 

2(SP), INDEX 

001360 

BNE 

10$ 

022626 

CMP 

(SP)+,(SP)+ 

005067 

000152' 

CLR 

INDEX 

005067 

000154' 

CLR 
RETURN 

FLAGS 

INDICATE  MUX  EXPANSION 

GET  REPEAT  COUNT 

SAVE  CURRENT  BINARY  POINTER 

RESTORE  BINARY  POINTER 

IS  IT  MUX  EXPANSION  ? 

NO  .. 

DO  UNIT  NUMBERS  MATCH  ? 

NO  .. 

IS  THE  LINE  TABLE  POINTER  CORRECT  ? 

NO  ..  ERROR 

GET  FUNCTION  CODE 

IS  IT  END  OF  FILE? 

IF  EQ,  YES 

CONVERT  TO  A  WORD  INDEX 

EXPAND  A  FIELD 

KEEP  LOOKING  FOR  EOF 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  WE  DONE? 

IF  NE,  NO 

PURGE  STACK 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 


LINE  TABLE  POINTER  (R3)  IS  SCREWED  UP 


SAVE  REPEAT  COUNT 

DISCARD  LISTHEAD  DISPLACEMENT 

SAVE  CURRENT  BINARY  POINTER 

RESET  BINARY  POINTER 

GET  FUNCTION  CODE 

IS  IT  END  OF  FILE? 

IF  EQ,  YES 

CONVERT  TO  WORD  INDEX 

EXPAND  A  FIELD 

KEEP  LOOKING  FOR  EOF 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  WE  DONE? 

IF  NE,  NO 

PURGE  STACK 

CLEAR  SECONDARY  INDEX 

AND  SPECIAL  FLAGS 


H  11 

VFGDTE  -  INITIAL  CONfIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:28 
Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL  SYMBOL  DrFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

LOOK  FOR  DTESDf  MACRO 

TPARS  STATE  TABLES 

LINE-ID  SUBEXPRESSION 

DTESDF  ACTION  ROUTINES 

CHKDTE  -  CHECK  FOR  VALID  DTE  ADDRESS 

BIASX  -  SET  APR6  BIAS  CORRECTLY 

LINE-ID  ACTION  ROUTINES 

STRNXT  -  STORE  NEXT  DIGIT 

PCKBCD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 


s- 

ss 

6- 

N 

/- 

99 

«- 

^6 

9- 

HH 

10- 

1ft9 

n- 

??y 

1^- 

;>« 

16- 

^A1 

V- 

40'; 

IH- 

ti?!. 

m- 

4SS 

^0- 

481 
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CHKDTE    -   CHECK   FOR   VALID   DTE    ADDRESS 
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361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
37^ 
3"2 
373 
374 
375 
376 

377  000'.26 

378  000432 

379  000436 

380  000442 

381  000460 

382  000464 

383  000466 

384  000472 

385  000474 

386  000476 

387  000502 

388  000504 

389  000514 

390  000532 

391  000536 

392  000542 

393  000546 

394  000552 

395  000554 

396  000556 

397  00056' 

398  ooo:  _ 

399  000564 

400  000570 

401  000574 


.SBTTL   CHKDTE  -  CHECK  FOR  VALID  DTE  ADDRESS 


CHKDTE  -  CHECK  FOR  VALID  DTE  ADDRESS 

INPUTS: 

NONE 

OUTPUTS: 

CARRY  CLEAR  -  DTE  ADDRESS  IS  UNIQUE 

R4  =  COUNT  OF  DTES  DEFINED  ALREADY 
CARRY  SET  -  DTE  ADDRESS  IS  NOT  UNIQUE 
R0,R1,R2  DESTROYED 


016700 
062700 


005004 
016700 
000261 
001433 
010067 
005204 


012701 
012702 
062702 
012703 
122223 
001344 
005301 
003374 
000241 


OOOOOOG 
000002 


OOOOOOG 
OOOOOOG 


000010 
OOOOOOG 
000020 
000017' 


10$: 


010466  000012 


CHKDTE:  CALL 
MOV 
ADD 
6ETRV 
SAVMAP 
CLR 
MOV 
SEC 
BEQ 
MOV 
INC 

CEACCS 
GETAD 
MOV 
MOV 
ADD 
MOV 
CMP8 
BNE 

tic 

RESMAP 

MOV 

RETURN 


20$: 


30$: 
40$; 


$SAVAL 
$PSIPT,R0 
#H$LDTE,RO 
R0,#2 

R4 
$8FR,R0 

30$ 

RCDTEDL  . 

R4 

RO 

RO,#L$LEN 

#<DTEALN+1>/2,R1 

#$8FR,R2 

#L$DTEA,R2 

#DTEPCK,R3 

(R2)+,(R3)t 

10$ 


R4,R$R4(SP) 


SAVE  ALL  REGISTERS 

POINT  TO  PSI  HOME  BLOCK 

POJNT  TO  LOCAL  DTE  LISTHEAD 

READ  IN  LISTHEAD 

SAVE  CURRENT  MAPPING 

INITIALISE  DTE  COUNT 

POINT  TO  NEXT  BLOCK  IN  LIST 

INDICATE  NOT  IN  DTE  LIST?? 

BR  IF  END  OF  LIST 

SAVE  UNMAPPED  DTE  ADDRESS 

ONE  MORE  BLOCK  SEEN 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  DTE  DESCRIPTOR 

GET  DTE  ADDRESS  LENGTH 

GET  ADDRESS  OF  LOCAL  DTE  DESCRIPTOR 

POINT  TO  DTE  ADDRESS 

POINT  TO  SPECIFIED  DTE  ADDRESS 

DO  THE  ADDRESSES  MATCH' 

BR  IF  NO:  UNIQUE  SO  F " 

MORE  OF  ADDRESS  TO  CHi  ^? 

BR  IF  YES 

INDICATE  FOUND  IT 

RESTORE  PREVIOUS  MAPPING 

RETURN  COUNT  IN  TASK  R4 
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Table  ot  contents 

5-  54    MACRO  DEFINITIONS 

6-  99    LOCAL  SYMBOL  DEFINITIONS 

7-  118    LOCAL  DATA 

8-  161    ERROR  MESSAGES 

9-  178    LOOK  FOR  PVCSDF  MACRO 

10-  208    TPARS  STATE  TABLES 

11-  297    PVCSDF  ACTION  ROUTINES 
U-  423    ALLXCB  -  ALLOCATE  X25  CIRCUIT  BLOrK 

15-  473    FNDPRT  -  FIND  FREE  PORT  ENTRY 

16-  519    INIXCB  -  INITIALIZE  X25  CIRCUIT  BLOCK 

17-  567    FNDHSH  -  FIND  HASH  TABLE  ENTRY 

18-  613    BIA5X  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

19-  633    PVDLM  -  CHECK  FOR  DLM  PVC 

20-  687    DLMTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 
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A75 
A7A 
475 
476 
477 
478 
479 
480 
481 
482 
485 
484 
485 
486 
487 
488 
489 

490  000664 

491  000670 

492  000674 

493  000700 

494  000704 

495  000722 

496  000730 

497  000734 

498  000752 

499  000764 

500  000770 

501  000772 

502  001006 

503  001012 

504  001014 

505  001016 

506  001020 

507  001022 

508  001024 

509  001026 

510  001032 

511  001036 

512  001040 

513  001044 

514  001046 

515  001050 

516  001054 

517  001060 


016700  OOOOOOG 

062700  000022 

016767  OOOOOOG  000004' 

062700  177776 


016701   000004' 
006301 

012702  OOOOOOG 

005001 

005722 

005201 

005722 

001006 

005742 

010267  000006' 

110167  000034' 

000404 

020167     000004' 

103764 

000261 


.SBTTL      FNDPRT   -   FIND   FREE   PORT   ENTRY 

h 

FNDPRT  -  FIND  FREE  PORT  ENTRY 

INPUTS: 

PORTNO  -  TOTAL  NUMBER  OF  PORTS 

OUTPUTS: 

CARRY  CLEAR  -  FREE  PORT  FOUND 
Rl  -  PORT  NUMBER  ALLOCATED 
PVCPRT  -  PORT  NUMBER 

PRTADD  -  MAPPED  ADDRESS  OF  ENTRY  IN  PORT  TABLE 
CARRY  SET  -  FREE  PORT  NOT  FOUND 


SAVE  R0,R2 

SAVE  CURRENT  MAPPING 

GET  ADDRESS  OF  PSI  HOME  BLOCK 

POINT  TO  NUMBR  OF  PORTS 

READ  IN  NUMBER  OF  PORTS 

SAVE  NUMBER  OF  PORTS 

POINT  TO  PORT  TABLE  LISTHEAD 

READ  IN  LISTHEAD 

GET  MAPPED  ADDRESS 

GET  NUMBER  OF  PORTS 

GET  NUMBER  OF  BYTES  IN  PORT  TABLE 

READ  IN  PORT  TABLE 

POINT  TO  PORT  TABLE 

PORT  NUMBER  COUNTER 

SKIP  FIRST  ENTRY  (NOT  AVAILABLE) 

INCREMENT  PORT  NUMBER 

IS  THIS  A  FREE  PORT? 

BR  IF  NO 

POINT  TO  PORT  ENTRY 

SAVE  MAPPED  ADDRESS  OF  ENTRY 

SAVE  PORT  NUMBER  ALLOCATED 

AND  EXIT 

END  OF  LIST? 

BR  IF  NO 

INDICATE  NUMBER  OF  PORTS  EXCEEDED 

RESTORE  PREVIOUS  MAPPING 

RESTORE  R0,R2 


FNDPRT: 

SAVRG 
SAVMAP 

<R0,R2> 

MOV 

$PSIPT,RO 

ADD 

*H$NPT,RO 

GETRV 

R0,#2 

MOV 

$BFR, PORTNO 

ADD 

#H$PTB-H$NPT,RO 

GETRV 

R0,#2 

CEACC$ 

$BFR,RO 

MOV 

PORTNO, Rl 

ASL 

Rl 

GETAD 

R0,R1 

MOV 

#$8FR,R2 

CLR 

Rl 

TST 

CR2)  + 

10$: 

INC 

Rl 

TST 

(R2)  + 

BNE 

15$ 

TST 

-(R2) 

MOV 

R2, PRTADD 

MOVB 

Rl, PVCPRT 

BR 

20i 

15$: 

CMP 

Rl, PORTNO 

BLO 

lOl 

SEC 

20$: 

RESMAP 

RESRG 

<R2,R0> 

RETURN 

VF&PVC  CREATED  BY     MACRO     ON  ?9-JUN-85  AT   0^:50 
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CREF       OA.OO 


SYMBOL      VALUE 


REFERENCES 


St$BAS 

r  *♦♦**♦ 

8-165 
8-169 

S.COST 

000001 

#5-70 

S.FLG 

000000 

#5-70 

S.LEN 

OOOOOA 

#5-70 

S.NMST 

000002 

#5-70 

S.OWNR 

000003 

#5-70 

T$FLAG 

OOOOAA 

#5-66 

t$l:f 

000013 

#5-66 

TSLIFL 

000013 

#5-66 

T$LIFO 

000013 

#5-66 

T$L!FS 

000013 

#5-66 

TSLIN 

000000 

#5-66 

TSLIPS 

000006 

#5-66 

T$LLD 

000012 

#5-66 

TSLLDC 

0000^5 

#5-66 

TSLLDL 

000012 

#5-66 

TSLLDO 

000012 

#5-66 

TSLLDS 

000012 

#5-66 

TSLLEN 

000046 

#5-66 

TSLOPR 

000002 

#5-66 

TSLTCL 

000024 

#5-66 

TSLTIM 

000026 

#5-66 

T$LTPR 

OOOOU 

#5-66 

TSLTPS 

000020 

#5-66 

TSNAPL 

OOOOOA 

#5-66 

TSNFE 

000000 

#5-66 

TSNLEN 

000010 

#5-66 

TSNNUL 

000002 

#5-66 

TSNOPL 

000006 

#5-6t 

TSNRNI 

000042 

#5-66 

TSNRPL 

0000C5 

#5-6l 

TSNRUL 

000007 

#5-66 

T$NVR 

000001 

#5-66 

TSRPRI 

000040 

#5-66 

T$SVC 

000034 

#5-66 

T$T5 

000030 

#5-66 

T$T6 

000032 

#5-66 

XTSPVC 

=  000001 

16-563 

XSABO 

000076 

♦16-560 

XSCTIM 

000060 

»16-550 

X$DTE 

000024 

.16-551 

X$GLEN 

000106 

14-441 

X$LCN 

000026 

»16-555 

X$LEN 

000106 

14-438 

XSMOWN 

000023 

*14-468 

X$PKS7 

000016 

»16-549 

X$PRT 

000021 

.16-552 

XSRXQ 

000072 

•16-556 

XS5T 

000005 

.16-562 

X$TCL7 

000030 

.14-469 

X$TXQ 

000066 

.16-554 

8-165 
8-170 


8-166 
8-170 


8-166 
8-171 


8-167 
8-171 


8-167 
8-172 


8-168 
8-172 


8-168 


8-169 


.20-746 


20-737 


20-736 


20-739 


20-741 


♦20-744 


.20-745 
.20-747 
.20-748 

16-561 


14-462 
14-459 


16-557 


16-555 


.16-561 


16-540 
16-537 


.16-557 


►16-555 
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257 
258 
259 
260 
261 
262 
263  000052 

.SSTTL 
.ENABL 

SVC$Df  ACTION  ROUTINES 
LS8 

•  SVNAM 

-  PROCESS  NAME 

022767 

000003 

OOOOOOG 

SVNAM; 

CMP 

i»3,.PSTCN 

VALID  NAME? 

26A  000060 

001063 

BNE 

101$ 

BR  IF  NO 

265  000062 

016700 

OOOOOOG 

MOV 

.PSTPT,RO 

POINT  TO  PROCESS  NAME 

266  000066 

005001 

CLR 

R1 

267  000070 

CALL 

$CAT5 

CONVERT  TO  RAD50 

268  00007A 

022^01 

015355 

CMP 

#*RDLM,R1 

IS  IT  DLM? 

269  000100 

001053 

BNE 

101$ 

BR  IF  NO  -  ERROR 

270  000102 

005067 

000006' 

CLR 

PKTSVC 

INITIALIZE  OPTIONAL  PARAM 

271  000106 

105067 

000022' 

CLRB 

WNDSVC 

272  000112 

RETURN 

273 

2T^ 
275 
276 
277  0001 K 

•  SVCTL 

-  CONTROLLER  NUMBER 

005767 

OOOOOOG 

SVCTL: 

TST 

.PNUMH 

VALID  LINE-ID? 

278  000120 

001043 

BNE 

101$ 

BR  IF  NO 

279  000122 

105767 

000001 G 

TST6 

.PNUMBO 

280  000126 

001040 

BNE 

101$ 

BR  IF  INVALID  LINE-ID 

281  000130 

116767 

OOOOOOG 

000021' 

MOVB 

.PNUMB,CTLSVC 

SAVE  CONTROLLER  NUMBER 

282  000136 

016700 

OOOOOOG 

MOV 

$SLTA,RO 

GET  SLT  ADDRESS 

283  000142 

126760 

OOOOOOG 

000012 

CMPB 

.PNUMB,L.CTL(RO) 

CORRECT  CONTROLLER  NUMBER 

284  000150 

001404 

BEQ 

10$ 

BR  IF  YES 

285  000152 

REJ$ 

ELSE  REJECT  TRANSITION 

286  000162 

10$: 

RETURN 

287 

288 
289 

290 

291  000164 

•  SVSTA 

-  STATION  NUMBER 

005767 

OOOOOOG 

SVSTA: 

TST 

.PNUMH 

VALID  LINE-ID? 

292  000170 

001017 

BNE 

101$ 

•  BR  IF  NO 

293  000172 

105767 

000001 G 

TST8 

.PNUMBtl 

294  000176 

001014 

BNE 

101$ 

■  BR'IF  INVALID  ID 

295  000200 

116767 

OOOOOOG 

000014' 

MOVB 

.PNUMB.STASVC 

•  SAVE  STATION  NUMBER 

296  000206 

126767 

OOOOOOG 

OOOOOOG 

CMPB 

$TRIB,.PNUMB 

•  CORRECT  STATION  NUMBER? 

297  000214 

001404 

BEQ 

20$ 

•  BR  IF  YES 

298  000216 

REJ$ 

;  ELSE  REJECT  TRANSITION 

299  000226 

20$: 

RETURN 

300 

301 
502 
303  000230 

;  ERROR 

bl$: 

EMSG$R 

21 

;  ILLEGAL  LINE-ID 

304 

.DSA8L 

LS8 
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3635  017022 

363A  C1702A 

3635  017026 

3636  017036 

3637  01704-; 

3638  01705? 

3639  017062 
36A0  017064 
36A1  017066 
3642 

3643  01707G 

3644  017076 

3645  017100 


000753 


016767 
042767 


010401 
0C0731 


012600 


77%: 


000002G  OOOOOOG 
177700     OOOOOOG 


80$: 


BR 

75$ 

SAVRG 

<R4> 

CEACCS 

R4 

MOV 

F.CLS+$BFR,$RSIZE 

BIC 

#«C<FF.MSK>,$RSIZE 

PUTAD 

R4 

RESRG 

<R4> 

MOV 

R4.R1 

BR 

75i 

SWTCHO 

MOV 

(SP)+,RO 

RETURN 

CHECK  NEXT  BLOCK  IN  LIST 

SAVE  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

GET  LENGTH  OF  BLOCK  TO  DEALLOCATE 

OUTPUT  UPDATED  FILTER  BLOCK 
RESTORE  UNMAPPED  ADDRESS 
SAVE  ADDRESS  OF  PREVIOUS 
GET  NEXT  BLOCK  IN  LIST 

RESTORE  SBFR  AS  OUTPUT  BUFFER 
RESTORE  RO 
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n 
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1  c 
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STQUAL  -  SET  OUALIFIER  BITS 


5988 

.SBTTL 

ALPLB  -  ALLOCATE  PLB  DATA 

3989 

+ 

3990 

***  - 

ALPLB 

-  ALLOCATE  PLB  DATA  BASE 

3991 

Allocates  PLB's  and  index  uector. 

3992 

clears 

the  PLBs.  Note:  Vector  an 

3993 

3994 

INPUTS: 

3995 

NONE. 

3996 

3997 

OUTPUTS: 

3998 

C-BIT 

=  SUCCESS/FAILURE 

3999 

No  reg 

isters  preseri/ed 

4000 

- 

4001 

4002  020022 

ALPLB: 

4003  020022 

CALL 

CHKXPT               ; 

4004 

4005 

4006  020'~'26 

103536 

BCS 

40$                ; 

4007  020030 

116000 

OOOOOOG 

MOVB 

Z.LLN(RO),RO          ; 

4008 

4009  020034 

4010 

4011  020054 

GETRV 

$DECPT,#D$END 

010067 

000030G 

MOV 

RO,$BFR+D$NLN 

4012  020060 

010046 

MOV 

RO,-(SP) 

4013  020062 

4014 

4015  020066 

PUTRC 

012701 

000052 

MOV 

#P$LEN,R1            ; 

4016  020072 

CALL 

$MUL 

4017  020076 

012600 

MOV 

(SP)+,RO 

4018  020100 

006300 

ASL 

RO 

4019  020102 

060001 

ADD 

RO.Rl 

4020  020104 

CALL 

$ALL15 

4021  020110 

103506 

BCS 

50$ 

4022 

4023 
4024 
4025  020112 

■  Link 

uector 

into  XPT's  data  base 

GETRV 

$DECPT,*0$END 

4026  020132 

016705 

000030G 

MOV 

$BFRtD$NLN,R5 

4027 

4028  020136 

GETRV 

R2,#N$XLEN 

4029  020154 

010567 

000016G 

MOV 

R5,N$PLD+$BFR 

4030  020160 

010067 

L  ;0020G 

MOV 

R0,N$PLDt2+$BFR 

4031  020164 

PUTRC 

4032 

4033 

;  Initialize  Vector  and  PLBs 

4034 

4035  020170 

105067 

000123' 

CLRB 

LCLFLG 

4036  020174 

010102 

MOV 

R1,R2 

4037  020176 

020227 

001000 

10$: 

CMP 

R2,#512. 

4038  020202 

003403 

BLE 

4039  020204 

012701 

001000 

MOV 

#512., R1 

4040  020210 

4041 

4042  020212 

160102 

SUB 

R1,R2 

010046 

20$: 

MOV 

RO,-(SP) 

4043  0202U 

010146 

MOV 

R1,-(SP> 

Initializes  the  vector  and 


GET  XPT'S  DATA  BASE  ADDRESS 

Ret:  RO=PDV  addr,  Rl^XPT  PDV  idx, 

R2=XPT  db  virt  addr 
IF  CS,  ASSUME  A  PROTOCOL  EMULATOR 
GET  NUMBF'  OF  XPT  CHANNELS 

READ  DECk-T  HOME  BLOCK 

SAVE  IT 

WrItE  back  DECNET  home  BLOCK 

GET  SIZE  OF  EACH  PLB 

CALCULATE  SIZE  OF  PLB  DATA  BASE 

Get  number  of  channels  again 

multiply  by  two  for  vector  size 

add  to  total  allocation 

TRY  TO  ALLOCATE  PLB'S 

IF  CS,  FAILED  TO  ALLOCATE  PLB'S 


READ  DECNET  HOME  BLOCK 
SAVE  NUMBER  OF  CIRCUITS 

READ  IN  XPT'S  DATA  BASE 
STORE  NUMBER  OF  PLB  ENTRIES 
AND  ADDRESS  OF  PLB  DATA  BASE 
WRITE  BACK  THE  XPT  DATA  BASE 


Clear  flag  for  first  time 
SAVE  NUMBER  OF  BYTES  ALLOCATED 
CAN  PUTRV  HANDLE  THIS  TRANSFER? 
BR  IF  YES 

SET  UP  FOR  LARGEST  TRANSFER 
UPDATE  NUMBER  OF  BYTES  REMAINING 

Push  Virtual  address  of  block 
and  byte  count  of  transfer 
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^429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 


021716 
021716 
021720 
021724 
021730 
021732 
021734 
021736 
021742 
021744 
021746 
021750 
021752 
021754 
021756 
021760 
021764 
021766 


010046 

016701  OOOOOOG 

016702  OOOOOOG 
001407 

012100 

001403 

026016  OOOOOOG 

001403 

005302 

001371 

000261 

005226 

006016 

005741 

166701  OOOOOOG 

006316 


000001 


.SBTTL  SFPDV  -  FIND  A  PDV  ADDRESS 
$FPDV  -  TRY  TO  FIND  PDV 
INPUTS: 


RO  =  RAD50  PDV  NAME 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 

RO  =  PDV  ADDRESS 

R1  =  PDV  index 

R2  =  DESTROYED 

iFPDV:; 


(SP) 


MOV 

RO,-(SP) 

MOV 

$PDVTA,R1 

MOV 

$PDVNM,R2 

BEQ 

30$ 

10$: 

MOV 

(R1)+,R0 

BEQ 

20$ 

1S$: 

CMP 

Z.NAM(RO) 

BEQ 

40$ 

20$: 

DEC 

R2 

BNE 

10$ 

^()$: 

SEC 

40$: 

INC 

(SP)  + 

ROR 

(SP) 

TST 

-(R1) 

sua 

$PDVTA,R1 

ASL 

(SP) 

save  name  to  be  matched 
get  pdv  table  address 
and  number  of  pdv's 
if  zero,  no  pdv'si 
get  pdv  address 
if  zero,  skip  this  one 
does  the  name  match? 
if  eq,  yes  (c-bit  clear) 

loop  $pdvnm  times 
indicate  failure 
purge  stack 
save  c-bit 
calculate  pdv  index 

restore'c-bit 


RETURN 
.END 
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SYMBOL 

:R0SS  REFERENCE 

CREF   04. 

DO 

r. 

SYMBOL 

VALUE 

REFERENCES 

FRSEXC 

=  000000 

#5-79 

FRSFRM 

=  000010 

#5-79 

FRSFTL 

=  000005 

#5-79 

FRSOPN 

=  000004 

#5-79 

FRSRFD 

=  000006 

#5-79 

FRSSBU 

=  000012 

#5-79 

FRSSHO 

=  000003 

#5-79 

FRSUBU 

=  000013 

#5-79 

FRSUPT 

=  000014 

#5-79 

F  ADD 

000016 

#5-69 

61-3451 

F.CEV 

000030 

#5-69 
62-3623 

6-161 

45-2610 

59-3310 

62-3490 

62-3492 

62-5529 

62-5575 

62-5594 

F.CIR 
F.CLS 

000024 
000002 

#5-69 
#5-69 
62-3587 

45-2594 
62-3636 

59-3343 
63-3678 

60-3380 
63-3684 

60-3398 
72-3930 

61-3434 

61-3439 

62-3538 

62-3578 

F.EVT 

000004 

#5-69 

45-2609 

62-3602 

62-3605 

62-3611 

F.FLG 

000014 

#5-69 

45-2601 

59-3342 

60-3387 

60-3391 

61-5443 

65-5688 

65-5696 

63-3699 

F.LEN 

000016 

#5-69 
62-3616 

45-2593 
63-3677 

45-2597 
63-3680 

59-3307 

60-3379 

60-5582 

61-5453 

61-5436 

62-3487 

F.LIN 

000020 

#5-69 

45-2606 

61-3455 

F.LNK 

000000 

#5-69 

F.MOD 

000022 

#5-69 

F.NRBD 

-   ***♦♦* 

GX 

♦27-1406 

♦27-1408 

♦28-1582 

♦28-1584 

♦39-2020 

♦40-2161 

♦42-2544 

♦42-2346 

♦42-2419 

♦42-2426 

♦42-2428 

♦45-2583 

♦62-3520 

♦62-5544 

♦62-3575 

♦62-3620 

♦62-3643 

♦82-4347 

F.REM 

000026 

#5-69 

59-3344 

60-3393 

61-3447 

63-3701 

F.RSIZ 

-  **♦♦♦* 

GX 

♦11-442 

♦20-919 

♦20-927 

♦21-977 

♦21-984 

♦22-1031 

♦22-1037 

♦26-1267 

♦26-1290 

♦26-1307 

♦26-1324 

♦26-1341 

♦26-1358 

♦27-1399 

♦27-1407 

♦28-1570 

♦28-1575 

♦28-1585 

♦29-1620 

♦30-1649 

♦32-1713 

♦36-1830 

♦36-1832 

♦57-1870 

♦37-1872 

♦58-1912 

♦59-1990 

♦39-1993 

♦39-2015 

♦39-2040 

♦39-2044 

♦39-2046 

♦40-2135 

♦40-2136 

♦40-2157 

♦41-2273 

♦42-2339 

♦42-2345 

♦42-2390 

♦42-2423 

♦42-2427 

♦45-2593 

♦49-2774 

♦50-2851 

♦53-3020 

♦59-3341 

♦60-3379 

♦61-3433 

♦62-3503 

♦62-3515 

♦62-3616 

♦63-3677 

♦74-4009 

♦74-4025 

♦74-4028 

♦74-4065 

♦75-4094 

♦75-4103 

♦75-4123 

♦76-4139 

♦76-4142 

♦77-4164 

♦78-4179 

♦81-4271 

♦81-4275 

♦82-4321 

♦82-4328 

♦84-4415 

F.SEV 

000004 

#5-69 

57-3177 

62-3510 

62-3526 

62-5556 

62-5591 

62-5627 

F.URBD 

3  **■*♦«* 

GX 

♦27-1398 
♦53-3019 

♦27-1400 
♦53-3022 

♦28-1572 
♦63-3672 

♦28-1574 
♦63-3708 

♦42-2558 

♦42-2340 

♦42-2389 

♦42-2591 

♦45-2584 

GCLASS 

000116 

R 

#6-141 

GETLEN 

013572 

R 

48-2731 

49-2767 

50-2800 

#51-2938 

GETNXT 

017102 

R 

62-3523 

62-3621 

#63-3672 

GMASK 

000106 

R 

#6-140 

57-3203 

57-3205 

62-5497 

62-5525 

62-3564 

GTSLT 

006044 

R 

33-1738 

34-1766 

#35-1795 

INIEVT 

017454 

R 

59-3325 

59-3336 

#70-3870 

LCLFLG 

000123 

R 

#6-144 

♦74-4035 

74-4045 

♦74-4068 

LD.AL! 

=  000030 

#5-73 

LD.CEX 

=  000024 

#5-73 

LD.CIR 

-  000035 

#5-73 

LD.LIN 

=  000025 

#5-73 

LD.LOG 

=  000031 

#5-73 

LD.MOD 

=  000057 

#5-73 

LD.NOD 

r  000027 

#5-73 

LD.OBJ 

=  000032 

#5-73 

LD.PRO 

=  000026 

#5-73 
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VENA  CREATED  SV     MACRO     ON  11-SEP-85  AT   12:08 

SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


SVSEG 

SVSER 

SVTAD 

SXLINK 

$$ 


004020  RG 
000242  RG 
001230  RG 
»»*♦♦«  GX 
177777 


$$$ 


=  003632  R 


S$f$ 


.ABTIM 
.CLKHO 
.MGMGF 
.TLGTH 
. TSKHD 
..COO 


003656  R 


r  ***** 


GX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

25-1234 
#11-393 
#13-590 

27-1414 

9-217 

9-221 
#9-225 
#9-230 

9-235 

9-239 
#9-243 
#9-248 

9-253 

9-257 
#9-261 
#9-266 

9-271 

9-275 
#9-279 
#9-284 

9-289 

9-293 
#9-297 
#9-302 

9-307 

9-311 
#25-1218 
#9-217 

9-226 
#9-235 

9-244 
#9-253 

9-262 
#9-271 

9-280 
#9-289 

9-298 
#9-307 

25-1219 
#9-218 
#9-236 
#9-254 
#9-272 
#9-290 
#9-308 

82-4321 

82-4327 

20-914 

39-1990 

84-4415 

39-2013 


#26-1290 


32-1720 

9-217 
#9-221 
#9-226 

9-231 

9-235 
#9-239 
#9-244 

9-249 

9-253 
#9-257 
#9-262 

9-267 

9-271 
#9-275 
#9-280 

9-285 

9-289 
#9-293 
#9-298 

9-303 

9-307 
#9-311 
#25-1219 

9-218 
#9-227 

9-236 
#9-245 

9-254 
#9-263 

9-272 
#9-281 

9-290 
#9-299 

9-308 

#9-220 
#9-238 
#9-256 
#9-274 
#9-292 
#9-310 


21-972 
40-2133 

40-2155 
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CREF        04.00 


41-2220 

42-2354 

72-3938 

#9-217 

#9-218 

9-219 

9-219 

#9-219 

#9-220 

9-221 

#9-222 

9-223 

9-223 

#9-223 

#9-224 

9-225 

9-225 

9-227 

9-227 

#9-227 

#9-228 

9-229 

9-229 

#9-229 

9-231 

#9-231 

#9-232 

9-233 

9-233 

#9-233 

#9-234 

#9-235 

#9-236 

9-237 

9-237 

#9-237 

#9-238 

9-239 

#9-240 

9-241 

9-241 

#9-241 

#9-242 

9-243 

9-243 

9-245 

9-245 

#9-245 

#9-246 

9-247 

9-247 

#9-247 

9-249 

#9-249 

#9-250 

9-251 

9-251 

#9-251 

#9-252 

#9-253 

#9-254 

9-255 

9-255 

#9-255 

#9-256 

9-257 

#9-258 

9-259 

9-259 

#9-259 

#9-260 

9-261 

9-261 

9-263 

9-263 

#9-263 

#9-264 

9-265 

9-265 

#9-265 

9-267 

#9-267 

#9-268 

9-269 

9-269 

#9-269 

#9-270 

#9-271 

#9-272 

9-273 

9-273 

#9-273 

#9-274 

9-275 

#9-276 

9-277 

9-277 

#9-277 

#9-278 

9-279 

9-279 

9-281 

9-281 

#9-281 

#9-282 

9-283 

9-283 

#9-283 

9-285 

#9-285 

#9-286 

9-287 

9-287 

#9-287 

#9-288 

#9-289 

#9-290 

9-291 

9-291 

#9-291 

#9-292 

9-293 

#9-294 

9-295 

9-295 

#9-295 

#9-296 

9-297 

9-297 

9-299 

9-299 

#9-299 

#9-300 

9-301 

9-301 

#9-301 

9-303 

#9-303 

#9-304 

9-305 

9-305 

#9-305 

#9-306 

#9-307 

#9-308 

9-309 

9-309 

#9-309 

#9-310 

9-311 

#9-312 

9-313 

9-313 

#9-313 

#9-314 

25-1218 

25-121 

#9-219 

9-220 

#9-221 

9-222 

#9-223 

9-224 

#9-225 

9-228 

#9-229 

9-230 

#9-231 

9-232 

#9-233 

9-234 

#9-237 

9-238 

#9-239 

9-240 

#9-241 

9-242 

#9-243 

9-246 

#9-247 

9-248 

#9-249 

9-250 

#9-251 

9-252 

#9-255 

9-256 

#9-257 

9-258 

#9-259 

9-260 

#9-261 

9-264 

#9-265 

9-266 

#9-267 

9-268 

#9-269 

9-270 

#9-273 

9-274 

#9-275 

9-276 

#9-277 

9-278 

#9-279 

9-282 

#9-283 

9-284 

#9-285 

9-286 

#9-287 

9-288 

#9-291 

9-292 

#9-293 

9-294 

#9-295 

9-296 

#9-297 

9-300 

#9-301 

9-302 

#9-303 

9-304 

#9-305 

9-306 

#9-309 

9-310 

#9-311 

9-312 

#9-313 

9-314 

#25-121 

#9-222 

#9-224 

#9-226 

#9-228 

#9-230 

#9-232 

#9-234 

#9-240 

#9-242 

#9-244 

#9-246 

#9-248 

#9-250 

#9-252 

#9-258 

#9-260 

#9-262 

#9-264 

#9-266 

#9-268 

#9-270 

#9-276 

#9-278 

#9-280 

#9-282 

#9-284 

#9-286 

#9-288 

#9-294 

#9-296 

#9-298 

#9-300 

#9-502 

#9-304 

#9-306 

#9-312 

#9-314 

#25-1219 

22-1026 

76-4139 

84-4415 
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2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE 
.IDENT 


VEX2  -  VNP  EXPANSION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTUARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  NORMAL  CASE  LINE  TABLE  BUILDER 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 


2.00 


3.00 


14-DEC-79 
DECNET-llM/S  V3.0 
DECNET-IIM-PLUS  VI 


0 


16-APR-82 
DECNET-11M  V3.1 
DECNET-IIM-PLUS  Vl.1 


4.00  07-NOV-83 

DECNET-llM  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Ptus  V3.0 
OECnet-Micro/RSX  Vl.O 
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573 
57^ 
S75 
76  001A3A 

577  00U3A 

578  00K36 

579  00H42 

580  OOKAA 

581  00UA6 

582  OOU52 

583  001A54 

584  00U60 

585  00H62 

586  001466 

587  001472 

588  001474 

589  001476 

590  001500 

591  001504 

592  001506 

593  001510 

594  001514 
595 

596 
597 
598 

599  001516 

600  001522 

601  001526 

602  001530 

603  001536 

604  001540 

605  001546 

606  001554 

607  001560 

608  001566 
609 

610 
611 
612 
613 

614  001570 

615  001576 

616  001600 

617  001606 
618 

619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 


LIBRARY  POINTER 


112546 
112566 
012600 
112546 
112566 
012602 

060201 
016124 
005767 
100402 
112524 
112524 
016701 
010021 
010221 
010167 


005067 
005767 
100417 
026727 
103413 
152767 
012767 
005067 
012767 


132767 
001445 
152767 
01670C 


LIBR: 


000001 
000001 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


000004' 
0000006 


50$: 


Move 
Move 

MOV 

M0V8 

MCVB 

MOV 

CALL 

ADD 

MOV 

TST 

BMI 

MOVE 

MOVe 

MOV 

MOV 

MOV 

MOV 

RETURN 


(R5)+,-(SP) 

(R5)+,1(SP) 

(SP)t,RO 

(R5)+,-(SP) 

(R5)t,l(SP) 

(SP)+,R2 

SGETLB 

R2,R1 

LB.ADR(R1),(R4)+ 

.MGMGE 

50$ 

(R5)+,(R4)+ 

(R5)+,(R4)t 

$LDA,R1 

R0,(R1)+ 

R2,(R1)+ 

R1,$LDA 


ASSEMBLE  DESCRIPTOR  BIAS 


AND  OFFSET 


READ  IN  LIBRARY  BLOCK 
POINT  AT  OUR  DESCRIPTOR 
;  STORE  LIBRARY  ADDRESS 
MAPPED  TARGET  SYSTEM? 
IF  MI,  NO 
COPY  USER  MAPPING  DISPLACEMENT 

GET  LIBRARY  DATA  ADDRESS  WITHIN  UNLOAD  BLOCK 

STORE  DESCRIPTOR  BIAS 

AND  OFFSET 

UPDATE  LIBRARY  DATA  POINTER 


IF  UE  HAVE  A  PARTITION  LINE  TABLE,  DO  SOME  SET  UP  HERE. 


PRLT: 


OOOOOOG  120000 


000001 
000006' 
000002' 
177776 


000004' 
000212' 

000000' 


50$: 


CLR 

TST 

BMI 

CMP 

BLO 

BIS8 

MOV 

CLR 

MOV 

RETURN 


FLAGA 

.MGMGE 

50$ 

$SADDR, #120000 

50$ 

*F. PRLT, FLAGA 

#IC8LK,ICBL 

IC8PT 

#-2,NXTLN 


FLAG  FOR  VECTOR  BLOCK  CODE  ONLY 

MEMORY  MANAGEMENT  SYSTEM? 

NO  IF  MINUS 

PARTITION  LINE  TABLE  ALLOCATED? 

NO  IF  LOW! 

SAY  YES 

VECTOR  BLOCK  ADDR  WITHIN  VNP 

ZERO  POINTER  INTO  KB 

INIT  DISPLACEMENT  POINTER 


IF  A  PARTITION  LINE  TABLE  WAS  ALLOCATED,  SET  UP  KB 

FOR  EACH  .INT  HERE.  WRITE  THE  BLOCK  BEFORE  EXITING  VEX2. 


000001  000004'  PRINT: 

000002  000004' 
000212' 


5$: 


BITS 

BEQ 

BIS8 

MOV 


#F. PRLT, FLAGA 

100$ 

#F. WRIT, FLAGA 

icecRO 


.IF  DF  R$$MPL 

TST  ICBPT 

BNE  5$ 

CLR  (R0)+ 


BIT 
BEQ 

MOV 
MOV 


#DF.DAS,$DFLAG 

10$ 

#13746, (R0)+ 

#172375, (R0)+ 


PARTITION  LINE  TABLE? 
IF  EQ,  NO 

WRITE  KB  AT  SOME  POINT 
ADDR  OF  NEXT  KB  ENTRY 


FIRST  INT  ? 
IF  NO  -  BRANCH 
CLEAR  LINK  WORK 


D-SPACE  SUPPORTED  ? 
IF  NO  -  BRANCH 
MOV  a#KINAR5,-(SP) 


;CMP01] 
;[MP01] 

; LMPOI ] 


LMPOI] 
[MP01] 
[HP01] 
[MP01] 
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MACRO  CROSS  REFERENCE  CREF   OA.OO 


MACRO  NAME 

REFERENCES 

CALL 

6-178 
12-583 

6-187 
12-670 

13-730 

6-190 
13-748 

7-306 

7-373 

10-506 

11-528 

11-529 

11-554 

CALLR 

13-761 

CRASH 

7-300 

DHBDFt 

#5-5A 

5-59 

GETRV 

#5-54 

7-306 

7-373 

PUTAD 

#5-54 

PUTRC 

#5-54 

12-670 

13-748 

RAND 

#7-306 

7-306 

#7-373 

7-373 

#12-670 

12-670 

#13-748 

13-748 

RESRG 

#5-54 

7-272 

13-754 

RETURN 

6-191 

7-203 

7-213 

7-215 

7-223 

7-232 

7-238 

7-246 

7-252 

7-276 

7-279 

7-295 

7-310 

7-319 

7-325 

7-340 

7-342 

7-353 

7-366 

7-376 

7-383 

7-395 

7-397 

7-410 

7-412 

7-420 

7-422 

7-430 

7-432 

7-439 

8-471 

9-487 

10-507 

10-514 

11-537 

11-571 

12-594 

12-608 

12-660 

12-708 

13-767 

13-774 

13-780 

13-783 

14-791 

14-796 

14-801 

14-806 

14-811 

14-816 

14-821 

14-826 

14-831 

14-836 

14-841 

15-848 

15-853 

15-858 

15-863 

15-868 

SAVRG 

#5-54 

7-268 

13-741 

SLTDFS 

#5-54 

5-60 

SUTCHI 

#5-54 

7-305 

7-309 

SWTCHO 

#5-54 

12-667 

13-747 

13-755 

TTABS 

#5-65 

5-93 

5-94 

5-95 

5-96 

5-97 

5-98 

5-99 

5-100 

5-101 

5-102 

5-103 

5-104 

5-105 

5-106 

5-107 

5-108 

5-109 

5-110 

5-111 

5-113 

5-114 

5-115 

5-116 

5-117 

5-118 

5-119 

5-120 

5-121 

5*'  22 

5-123 

5-124 

5-125 

5-126 

5-127 

5-128 

5-129 

5-130 

5-131 

5-132 

5-133 

5-134 

5-135 

5-136 

5-137 

5-138 

5-139 

5-140 

5-141 

5-U2 

5-143 

5-144 

5-145 
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MACRO  CROSS  REFERENCE 
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CREF   0^.00 


MACRO  NAME 

REFERENCES 

CALL 

6-156 

8-202 

8-221 

10-253 

CALLR 
RETURN 

9-237 
6-158 

7-169 

7-175 

7-181 

7-186 

8-203 

8-222 

10-251 

TTABS 

#5-6A 

5-77 

5-78 

5-79 

5-80 

5-81 

5-82 

5-83 

5-81 

5-85 

5-86 

5-87 

5-88 

5-89 

5-90 

5-91 

5-92 

5-93 

5-94 

5-95 

5-96 

5-97 

5-98 

5-99 

5-100 

5-101 

5-102 

5-103 

5-104 

5-105 

5-106 

5-107 

5-108 

5-109 

5-110 

5-111 

5-112 

5-113 

5-114 

5-115 

5-116 

5-117 

5-118 

5-119 

5-120 

5-121 

5-122 

5-123 

5-124 

5-125 

5-126 

5-127 

5-128 

5-129 

.1  0 
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528 
529 
530 

531  001242 

532  001246 

533  001252 

534  001256 

535  001262 

536  001264 

537  001270 

538  001272 

539  001274 

540  001300 

541  001304 

542  001312 

543  001324 

544  001330 

545  001332 

546  001334 

547  001336 

548  001340 

549  001344 

550  001346 

551  001350 

552  001356 

553  001360 

554  001364 

555  001366 

556  001370 

557  001372 

558  001376 

559  001400 

560  001402 

561  001406 

562  001410 

563  001414 

564  001422 

565  001424 

566  001426 

567  001430 

568  001434 

569  001440 
570 

571 

572 

573  001442 

574 

575 

576 

577 

578  001444 

579 

580 

581 

582 

583 

584 


SECONDARY  LINKED  FILE 


005267  000154'        MXPTB: 

010377  OOOOOOG 

005077  OOOOOOG 

005767  OOOOOOG 

100413 

020327  120000 

103410 

010346 

042716  160000 

012677  OOOOOOG 

016777  OOOOOOG  OOOOOOG 

012703     OOOOOOG 

005723 

010346 

112546 

122525 

016303     177776 

010546 

011605 

126467     000013     000152' 

001003 

026403  000004 

001026 

005002  20$: 

152502 

122702  OOOOOOG 

001404 

106302 


5$: 


10$: 


000767 

005267  000152' 

126667  000002  000152' 

001351 

022626 

012603 

005067  000152' 

005067  000154' 


000004 


30$: 


INC 

MOV 

CLR 

TST 

BMI 

CMP 

BLO 

MOV 

BIG 

MOV 

MOV 

GETAD 

MOV 

TST 

MOV 

H0V8 

CMP8 

MOV 

MOV 

MOV 

CMP8 

BNE 

CMP 

BNE 

CLR 

BIS8 

CMP8 

BEQ 

ASLB 

CALL 

BR 

INC 

CMPB 

BNE 

CMP 

MOV 

CLR 

CLR 

RETURN 


FLAGS 

R3,a$ADR2 

a$ADRX 

.MGMGE 

5$ 

R3, #120000 

5$ 

R3,-(SP) 

*160000,(SP) 

(SP)+,a$ADRZ 

$CJAS,a$ADRX 

,*10 

*$6FR,R3 

(R3)  + 

R3,-(SP) 

(R5)+,-(SP) 

(R5)+,(R5)t 

-2(R3),R3 

R5,-(SP) 

(SP),R5 

L.UNT(R4), INDEX 

20$ 

L.DDS(R4),R3 

101$ 

R2 

(R5)t,R2 

#.E0F,R2 

30$ 

R2 

aTA8LE-2(R2) 

20$ 

INDEX 

2CSP), INDEX 

10$ 

(SP)+,(SP)+ 

(SP)+,R3 

INDEX 

FLAGS 


ERROR  CONDITIONS 
101$:    lOT 


CURRENT  TIME 


IME: 


CLR 

CALL 

MOV 

CLR 

TST 

BMI 


RO 

ELTIME 

R3,a$ADRZ 

a$ADRX 

.MGMGE 

10$ 


INDICATE  MUX  EXPANSION 

VIRTUAL  ADDRESS 

CLEAR  THE  BIAS 

MEMORY  MANAGEMENT  SYSTEM? 

NO  IF  MINUS 

PARTITION  LINE  TABLE? 

NO  IF  LO 

LINE  TALE  ADDRESS 

CLEAR  THE  APR  BITS 

NEW  VIRTUAL  ADDRESS 

AND  THE  PROCSS  BIAS 

ACCESS  THE  LINE  TABLE 

POINT  TO  CONTROLLER  LINE  TABLE 

POINT  PAST  FIRST  LINE  TABLE  ADDRESS 

SAVE  OUTPUT  FILE  POINTER 

GET  REPEAT  COUNT 

SKIP  ALLOCATION  ADDRESS 

GET  FIRST  LINE  TABLE  ADDRESS 

SAVE  CURRENT  BINARY  FILE  POINTER 

RESTORE  BINARY  FILE  POINTER 

DO  UNIT  NUMBERS  MATCH  ? 

IF  NE,  NO 

IS  THE  LINE  TABLE  POINTER  CORRECT  ? 

IF  NE,  NO  ..  ERROR 

GET  FUNCTION  CODE 

is'lT  END  OF  FILE  ? 

IF  EQ,  YES 

ELSE,  CONVERT  TO  A  WORD  INDEX 

EXPAND  A  FIELD 

GO  TILL  END  OF  FILE 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  WE  DONE  ? 

IF  NE,  NO 

ELSE,  PURGE  STACK 

RESTORE  OUTPUT  FILE  POINTER 

CLEAR  SECONDARY  INDEX  FILE  COUNT 

AND  FLAGS 


LINE  TABLE  POINTER  (R3)  IS  SCREWED  UP 


USE  MIDNIGHT 

GET  SECONDS/2  SINCE  MIDNIGHT 


VIRTUAL  ADDRESS 
ASSUME  NO  BIAS 
MAPPED  SYSTEM  ? 
IF  MI,  NO 


J  10 


1  11 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AG 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  VFGDTE  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 
.ENASL  LC 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  04-MAR-82 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  8-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

OECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


;[T0001] 

;**-1 


VFGDTE   -   INITIAL   CONFIG   FILE   SC  MACF(0  V05.03b  Saturday  29-Jun-85 
BIASX   -   SFT   APR6  BIAS   CORRECTLY 
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A03 
40A 
405 
A06 
W7 
408 
409 
410 
411 
412 
413 
4-'4 
415 
416 
417 
418 
419 
420 
421 
422 


.SSTTL  BIASX  -  SET  APR6  BIAS  CORREl  .V 

BIASX  -  SET  APR6  BIAS  CORRECTLY 

INPUTS: 

RO  =  ADDRESS  (POOL  OR  APR5) 

OUTPUTS: 

RO   =  ADDRESS    (POOL  OR  APR6) 


000576 

000576  020027     120000 

000602  103404 

000604  042700     160000 

000610  052700     140000 

000614 


3IA5X: 


10$: 


RETURN 


R0,#1 20000 

#160000, RO 
#1 40000, RO 


ADDRESS  IN  APRS  ? 
BR  IF  NO  (ASSUME  POOL) 
CLEAR  ALL  APR  BITS 
AND  BIAS  FOR  APR6 
RETURN 
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1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
15 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
?5 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
10 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE  VFGPVC  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  04-MAR-82 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 


5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-PLus  V3.0 
DECnet-Micro/RSX  VI. 0 
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519 
520 
521 
522 
523 
52A 
525 
526 
'^27 
528 
52V 
530 
531 
532 
533 
53^ 
535 

536  001062 

537  001072 

538  001076 

539  00110A 
5A0  001106 
5A1  001112 

542  001126 

543  001132 

544  001134 

545  001136 

546  001140 

547  001142 

548  001146 

549  001154 

550  001162 

551  001170 

552  001176 

553  001204 

554  001212 

555  001216 

556  001224 

557  001230 

558  001236 

559  001242 

560  001250 

561  001254 

562  001262 

563  001270 

564  001276 

565  001302 


012701 
032767 
001402 
012701 

012702 
105022 
005301 
003375 
010300 

016767 
016767 
016767 
016767 
116767 
016767 
010067 
062767 
010067 
062767 
010067 
062767 
010067 
062767 
116767 
11276/ 


.S8TTL  INIXCB  -  INITIALIZE  X25  CIRCUIT  BLOCK 

INIXCB  -  INITIALIZE  X25  CIRCUIT  BLOCK 

INPUTS: 

RO  -  UNMAPPED  ADDRESS  OF  CIRCUIT  BLOCK 
SPFLAG  -  PSI  CHARACTERISTICS  WORD 

OUTPUTS: 

R3  -  MAPPED  ADDRESS  OF  X25  CIRCUIT  BLOCK 

X25  CIRCUIT  BLOCK  INITIALIZED  ACCORDING  TO  VALUES 

SPECIFIED  IN  PVCSDF 
R0,R1,R2  DESTROYED 


;[TD001] 


000106 

OOOOOOG  OOOOOOG 

000106 

OOOOOOG 


INIXCB:  CEACCS  R0,R3 

MOV  #X$LEN,R1 

BIT  #PF.PSV,$PFLAG 

BEQ  5$ 

MOV  #X$GLEN,R1 

5$:     GETAD  R3,Rl 

MOV  #$BFfi,R2 

10$:    CLRB  (R2)+ 

DEC  R1 

BGT  10$ 

MOV  R3,R0 

CALL  BIASX 

000016'  000020G        MOV  PVCWSZ,X$WSZ+$BFR  . 

000014"  000016G        MOV  PVCPSZ,X$PKSZ+$BFR; 

000012'  000060G        MOV  PVCCTM,X$CTIM+$BFR; 

OOOOOOG  000024G        MOV  DTEDES,X$DTE+$BFR  ; 

000034'  000021G        MOVB  PVCPRT,X$PRT+$BFR  ; 

000010'  000026G        MOV  PVCLCN,X$LCN+$BFR  ; 

000070G  MOV  R0,X$TXQ+2+$BFR 

000066  000070G        ADD  #X$TXQ,X$TXQ+2+$BFR 

000074G  MOV  R0,X$RXQt2t$BFR 

000072  000074G        ADD  #X$RXQ,X$RXQ+2+$BFR 

000064G  MOV  R0,X$WAQt2+$BFR 

000062  000064G        ADD  #X$WA0,X$WAQ+2+$BFR 

OOOIOOG  MOV  R0,X$ABQ+2+$BFR 

000076  OOOIOOG        ADD  #X$A6Q,X$ABQ+2+$BFR 

000062'  000005G        MOVB  SP$P4,X$STt$BFR 

000001  00001 5G        MOVB  #XT$PVC,X$TYP+$BFR 

PUTAD 

RETURN 


GET  MAPPED  ADDRESS  OF  CIRCUIT  BLOCK 

GET  SIZE  OF  CIRCUIT  BLOCK 

CHECK  FOR  PSV  MODULE 

BRANCH  IF  NOT  PRESENT 

PSV  NEEDS  LONGER  XCB 

READ  IN  CIRCUIT  BLOCK 

GET  CIRCUIT  BLOCK  ADDRESS 

INITIALIZE  CIRCUIT  BLOCK  TO  ZEROES 

MORE  TO  INITIALIZE? 

BR  IF  YES 

COPY  VIRTUAL  ADDRESS  OF  XCB 

BIAS  CORRECTLY  FOR  APR6 

STORE  WINDOW  SIZE 

STORE  PACKET  SIZE 

STORE  COUNTER  TIMER 

STORE  DTE  DESCRIPTOR  ADDRESS 

STORE  PORT  NUMBER 

STORE  LOGICAL  CHANNEL  NUMBER 
INITIALISE  TRANSMISSION  QUEUE 


;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 


INITIALISE  RECEIVED  DATA  QUEUE 

'initialise  ACKNOWLEDGEMENT  QUEUE 

' INITIALISE  ABORTED  DATA  QUEUE 

SET'pORT  in  data  TRANSFER  STATE 
SET  CIRCUIT  TYPE  AS  PVC 
WRITE  UPDATED  CIRCUIT  BLOCK 


VFGPVC  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:30 

SYMBOL    CROSS   REFERENCE 


SYMBOL      VALUE 


XtTYP 

XtWAQ 

XSWSZ 

2. DAT 

Z.MAP 

Z.NAM 

$ALF=HA 

SALPOL 

$ANY 

$BFR 


000015 
000062 
000020 

=  ****** 
-  **♦*  *♦ 
=   ****** 

=  000022 

~      ****** 

=   000020 

=  ****** 


GX 
GX 
GX 

GX 

GX 


SBLANK 

=  000006 

$CAT5 

=   *■*♦*♦♦ 

GX 

tCEACC 

=   * tt *  *♦ 

GX 

SDIGIT 

=  000024 

SDNUMB 

=  000014 

$EOS 

=  000012 

SERRNO 

000064 

R 

SERRNI 

000124 

R 

SERRN2 

000160 

R 

'^RRN3 

000212 

R 

tERROO 

000312 

R 

$ERR05 

000346 

R 

$ERR09 

000402 

R 

$ERRP8 

000256 

R 

SERRIT 

::      ****** 

GX 

SEXIT 

=  000000 

$FAIL 

=   177777 

SGETAD 

=      ****** 

GX 

SGETRV 

=      ****** 

GX 

SGPRM 

r     ****** 

SLAMDA 

=  000000 

SLLCTA 

-    «****t 

GX 

SNUMBR 

=  000002 

SPDVNM 

-    ****** 

GX 

SPDVTA 

=r     ****** 

GX 

SPFLAG 

-    *♦**«* 

GX 

SPSIPT 

=    ****** 

GX 

SPUTAD 

-    ****** 

GX 

$QPVC 

000000 

RG 

SRADDR 

~    ■»♦**♦■* 

GX 

$RAD50 
SRBLCIC 

SRONLY 
SSAVAL 
SSLTA 
SSLTMA 


000016 
♦♦♦♦♦♦     GX 


****** 


GX 
GX 
GX 


REFERENCES 

♦16-563 
♦16-558 
♦16-548 

20-731 

20-728 

20-723 
#10-212 

14-442 
#10-212 

14-450 
♦16-550 
♦16-559 

20-732 
♦20-748 
#10-212 

12-378 

14-451 
#10-212 
#10-212 
#10-212 
#8-165 
#8-166 
#8-167 
#8-168 
#8-170 
#8-171 
#8-172 
#8-169 

9-206 
#10-212 
#10-212 

14-452 

14-446 

10-212 
#10-212 

20-710 
#10-212 

20-721 

20-720 

14-439 

14-444 

U-454 
#9-190 
♦14-446 
♦20-731 
#10-212 

13-410 
♦20-732 

10-212 

13-409 

19-670 

20-703 


♦14-468 

♦16-551 

♦16-560 

20-733 


19-647 
15-498 


11-316 
12-384 
12-398 
13-421 
12-369 
11-344 
11-332 
12-357 


14-463 
15-494 


I  15 

PAGE   5 

CREF        04.00 


16-559         ♦16-559 


♦14-469 

♦16-552 

♦16-561 

20-734 


16-536 


19-660 


15-495 
♦16-553 
♦16-562 

20-737 


17-586 


15-498 
♦16-554 
♦16-563 

20-739 


15-502 
♦16-555 

17-588 
♦20-744 


16-542 
♦16-556 

17-599 
♦20-745 


♦16-548 
♦16-557 
♦17-607 
♦20-746 


♦16-549 
♦16-558 
♦17-608 
♦20-747 


15-501 
15-497 


16-541 
20-731 


17-587 


17-598 


20-736 


14-460 
15-492 
14-470 

16-538 
16-564 

17-609 

20-749 

♦14-452 
♦20-736 

♦14-463 

♦15-494 

♦15-497 

♦15-501 

♦16-541 

♦17-587 

♦17-598 

♦13-416 

♦20-750 

10-212 

14-447 
10-212 

.14-455 

15-491 

♦15-515 

17-585 

♦17-610 

20-730 

20-704 
20-707 
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306 
307 
308 
309 

310  000236 

311  0002A2 

312  000244 
315  000252 
5U 

315 

516 

317  000254 

318 

319 

320 

321 

322  000262 

323  000266 

324  000270 

325  000276 

326  000300 

327  000506 
528 

329 

330 

331  000310 

352 

333 

354 

335 

336  000316 

537  000322 

358  000324 

339  000532 

540 

341 

342 

343  000534 

544 

345 

346 

347 

348  000342 

549  000346 

350  000550 

551  000354 

552  000556 
555  C00364 
354 

555 
356 
357  000566 


005767  OOOOOOG 

001004 

016767  OOOOOOG  000006' 


005767 
001010 
022767 
103404 
116767 


005767 
001007 
105767 
001004 
116767 


OOOOOOG 
000001G 
OOOOOOG  000025' 


PACKET  SIZE 

SVPKT:  TST 
BNE 
MOV 
RETURN 


OOOOOOG 

000007     OOOOOOG 

OOOOOOG  000022' 


.PNUMH 

101$ 

.PNUMB.PKTSVC 


005767     OOOOOOG 

001004 

016767  OOOOOOG  000010' 


;  ERROR 

101$:   EMSG$R 

3D 

;  WINDOW  SIZE 

SVWND:   TST 
BNE 
CMP 
BLO 
MOVB 
RETURN 

.PNUMH 

101$ 

*MAXWND,.PNUMB 

101$ 

.PNUMB.WNDSVC 

;  ERROR 

101$:   EMSG$R 

3E 

;  FLAGS  WORD 

SVFLAG:  TST 
BNE 
MOV 
RETURN 


.PNUMH 

101$ 

.PNUMB.FLGSVC 


;  ERROR 

'101$:   EMSG$R 

3f 

;  MAX  RECALLS 

SVRCLL:  TST 
BNE 
TSTB 
BNE 
MOVB 
RETURN 

.PNUMH 

101$ 

.PNUMB+I 

101$ 

.PNUMB,RCLSVC 

■  ERROR 

101$:   EMSG$R 

3G 

LEGAL  PACKET  SIZE? 

BR  IF  NO 

SAVE  PACKET  SIZE 


ILLEGAL  PACKET  SIZE 


LEGAL  WINDOW  SIZE? 
BR  IF  NO 

BR'iF  illegal  WINDOW  SIZE 
SAVE  WINDOW  SIZE 


ILLEGAL  WINDOW  SIZE 


LEGAL  FLAGS  WORD? 

BR  IF  NO 

SAVE  FLAGS  WORD 


ILLEGAL  FLAGS  WORD 


LEGAL  MAX  RECALLS  ? 
BR  IF  NO 

BR'iF  ILLEGAL  MAX  RECALLS 
SAVE  RECALL  TIMER 


ILLEGAL  MAX  RECALLS 


VNA  -  VNP  ENABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  1 
r'^TNXT   -  GET   NEXT    FILTER  BLOCK 


J      1 

-Sep-85   12:06 


Page  63 


364^ 

.SBTTL 

GETNXT  -  GET  NEXT  FILTER 

BLOCK 

36Ab 

36A9 
3650 
3651 

+ 

GETNXT  -  GET 

NEXT  FILTER  BLOCK  IN  LIST 

AND  CHECK  TO  DETERMINE 

3652 

WHETHER  IT  IS  A  QUALIFIED  EVENT  BLOCK  WHICH  IS 

3653 

ASSOCIATED  WITH  THE  GLOBAL  EVENT  BLOCK  WHICH  WAS 

365A 

OPERATED  ON 

3655 

3656 

INPUTS: 

3657 

FLT8UF 

-  ADDRESS  OF  NEXT  BLOCK  I^ 

LIST 

3658 

3659 

OUTPUTS: 

3660 

CARRY 

;et: 

3661 

FLTBUF  -  ADDRESS  OF  NEXT  EVENl 

FILTER  BLOCK  IN  LIST 

3662 

THIS  FILTER  BLOCK  CORRESPONDS  TO  THE  SAME  CLASS, 

3663 

SINK  NODE,  AND  QUALIFIER  AS  THE  GLOBAL  FILTER 

366A 
3665 
3666 

BLOCK  WHICH  WAS  OPERATED  ON 

CARRY 

:lear: 

3667 

THE 

NEXT  FILTER  BLOCK  IN  THE  LIST  IS  NOT  ASSOCIATED 

3668 
3669 
3670 
3671 
3672  017102 

WITH  THE  GLOBAL  FILTER  BLOCK  WHICH  WAS  OPERATED  ON. 

- 

3ETNXT: 

SWTCHI 

#FLT8UF 

USE  FLTBUF  AS  INPUT  BUFFER 

3673  017110 

016704 

000170' 

10$: 

MOV 

FLTBUF,R4 

GET  POINTER  TO  NEXT  BLOCK 

367A  01711A 

001475 

BEQ 

50$ 

BR  IF  END  OF  LIST 

3675  017116 

.,  'RG 

<R4> 

SAVE  UNMAPPED  ADDRESS 

3676  017120 

CEACC$ 

R4 

CONVERT  TO  MAPPED  ADDRESS 

3677  017130 

GETAD 

R4,#F.LEN 

READ  IN  f  LTER  BLOCK 

3678  01 7146 

016767 

000002G 

OOOOOOG 

MOV 

F.CLS+$BFR,$RSIZE 

Gf  '  LENG  If   FILTER  BLOCK 

3679  01715A 

042767 

177700 

OOOOOOG 

BIC 

#*C<FF.MSK>,$RSIZE 

3680  017162 

022767 

000016 

OOOOOOG 

CMP 

*F.LEN,$RSIZE 

DID  WE  Ki.AD  IN  ENTIRE  BLOCK? 

3681  017170 

001402 

BEQ 

20$ 

BR  IF  YES 

3682  017172 

GETAD 

ELSE  READ  IN  ENTIRE  BLOCK 

3683  017176 

20$: 

RESRG 

<R4> 

RESTORE  UNMAPPED  ADDRESS 

3684  017200 

016746 

000172' 

MOV 

F.CLStFLTBUF,-(SP) 

GET  EVENT  CLASS  AND  LENGTH 

3685  017204 

C42716 

000077 

BIC 

#FF.MSK,(SP) 

ISOLATE  EVENT  CLASS 

3686  017210 

026726 

000074' 

CMP 

CLASS, (SP)t 

SAME  EVENT  CLASS? 

3687  017214 

001335 

BNE 

10$ 

BR  IF  NO  -  CHECK  NEXT  BLOCK 

3688  017216 

016746 

000204' 

MOV 

F.FLG+FLTBUF,-(SP) 

GET  FLAGS  WORD 

3689  017222 

042716 

177770 

BIC 

#"C<FF.M0N1FF.C0NIFF.FIL>,(SP)  ;  ISOLATE  SINK  TYPE 

3690  017''26 

016746 

000120' 

MOV 

EVQUAL,-(SP) 

GET  FLAGS  WORD  FOR  GLOBAL  BLOCK 

3691  01/^32 

042716 

177770 

BIC 

#*c<ff.hon!ff.coniff.f;l 

>,(SP)  ;  ISOLATE  SINK  TYPE 

3692  017236 

022626 

CMP 

(SP)+,(SP)+ 

MATCH  ON  SINK  TYPE? 

3693  017240 

001323 

BNE 

10$ 

BR  IF  NO 

3694  017242 

032767 

100000 

000120' 

BIT 

#FF.REM,EVQUAL 

QUALIFIED  BY  SINK  NODE? 

3695  017250 

001005 

BNE 

30$ 

BR  IF  YES 

3696  017252 

032767 

100000 

000204' 

BIT 

#FF.REM,F.FLG+FLT8UF 

THIS  BLOCK  QUALIFIED  BY  SINK  NODE? 

3697  017260 

001313 

BNE 

10$ 

BR  IF  YES,  CHECK  NEXT  BLOCK 

3698  017262 

000410 

BR 

40$ 

MATCH  ON  SINK  NODES 

3699  017264 

032767 

100000 

000204' 

30$: 

BIT 

*FF.REM,F.FLG+FLTBUF 

•  QUALIFIED  BY  SINK  NODE? 

5700  017272 

001706 

BEQ 

10$ 

BR  IF  NO 

3701  017274 

026767 

000216' 

00013C' 

CMP 

f.rem+fltbuf.sinknd 

■  DO  SINK  NODES  MATCH? 

3702  017302 

001302 

BN' 

10$ 

•BR  F  NO 

3703  117304 

000261 

40$: 

SEC 

■  INDICATE  BLOCK  FOUND 
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4044  020216 

012703 

OOOOOOG 

MOV 

#$BFR,R3 

4045  020222 

105767 

000123' 

TSTB 

LCLfLG 

4046  020226 

001013 

BNE 

30$ 

4047 

4048 

4049  020230 

010500 

MOV 

R5,R0 

4050  020232 

010004 

MOV 

R0,R4 

4051  020234 

006304 

ASL 

R4 

4052  020236 

160401 

SUB 

R4,R1 

4053  020240 

066604 

000002 

ADD 

2(SP),R4 
R4,(R^)+ 
#P$LEN,R4 

4054  020244 

010423 

27$: 

MOV 

4055  020246 

062704 

000052 

ADD 

4056  020252 

00^^300 

DEC 

RO 

4057  020254 

4058 

4059  020256 

0 

BGT 

27$ 

105023 

30$: 

CLRB 

(R3)  + 

4060  020260 

005301 

DEC 

R1 

4061  020262 

003375 

BGT 

30$ 

4062 

4063  020264 

012601 

35$: 

MOV 

(SP)+,R1 

4064  020266 

012600 

MOV 

(SP)+,R0 

4065  020270 

PUTRC 

RO.RI 
#5l2.,R2 

4066  020304 

022702 

001000 

CMP 

4067  020510 

103005 

BHIS 

40$ 

4068  020312 

105267 

000123' 

INCB 

LCLFLG 

4069  020316 

060100 

ADD 

Rl.RO 

4070  020320 

010201 

MOV 

R2,R1 

4071  020322 

000725 

BR 

10$ 

4072 

4073  020324 

000241 

40$: 

CLC 

4074  020326 

50$: 

RETURN 

4075 

POINT  AT  BUFFER 
Test  first  time  flag 
If  NE,  skip  vector  im't 

Im'tiaLize  the  vector 
Get  the  number  of  PLBs 
Calc  virtual  address  of  PLB 


Init  vector  entry  to  point  at  PLB 
calc  next  PLB  virtual  address 
decrement  PLB  count 
loop  till  vector  is  initialized 

Zero  the  PLB's 
until  byte  count  runout 


Restore  byte  count 

and  starting  virtual  address 

WRITE  BACK  THE  r'LB  DATA  BASE 

MORE  TO  TRANSFER? 

BR  IF  NO 

make  first  time  flag  non-zero 

Update  starting  virtual  address 

GET  NUMBER  OF  BYTES  REMAINING 

BR  TO  TRANSFER  NEXT  GROUP 

INDICATE  SUCCESS 
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Symbol 

table 

ACPNAM 

OOOOOOR 

002  CL$MAN= 

000000 

[)L$HLT  = 

000000 

D$RNN 

000002 

ERR49 

003426R    002 

AC$DNT= 

000002 

CL$PAZ= 

034100 

DL$IST= 

000001 

DSRTMR 

9929^$ 

ERRS 

000524R    002 

AC$X25= 

000001 

CL$PLH= 

034000 

DL$MA1= 

000004 

D$SEG 

000036 

ERR6 

000560R    002 

AE$CIR= 

000003 

CL$PLL= 

000600 

DL$0FF= 

000001 

D$SER 

000032 

ERR7 

000642R    002 

AESLIN= 

000001 

CL$PRT= 

034200 

DL$ON  = 

000000 

DSSQRL 

000052 

ERR77 

000664R    002 

AE$MOD= 

OOOOOA 

CL$ROU= 

010000 

DL$RUN= 

000003 

D$$BUG= 

177514 

ERRS 

000714R    002 

ALPLB 

020022R 

CL$SES= 

000200 

DL$SHU= 

000002 

D$$ISK= 

000000 

ERR9 

000764R    002 

AT$ACL= 

000100 

CL$SGE= 

035000 

DL$SYN= 

000005 

D$$L11= 

000001 

EVQUAL 

0001 20R    002 

AT$ADN= 

000040 

CL$SSE= 

035100 

DSBLIN 

003230R 

D$$YNC= 

000000 

EVTVAL 

OOOOOOR 

AT$AUP= 

000020 

CL$TRN= 

000400 

DV.CCL= 

000002 

D$$YNM= 

000000 

EVTVSZ^ 

000020 

AT$CYC= 

OOOOOA 

CL$XL2= 

013700 

DV.COM= 

020000 

D.NAH  = 

«****•  GX 

EV$ACF= 

000201 

AT$LV1= 

000002 

CL$XL3= 

013600 

DV.DIR= 

000010 

D.PCB  = 

»»****  GX 

EV$ADR= 

000420 

AT$LV2= 

000001 

CL$X2S= 

013500 

DV.EXT= 

000400 

D.UCB  = 

***«♦»  GX 

EV$ADU= 

000417 

AT$NEX= 

000200 

CM$SET= 

*»•*♦*  GX 

DV.F11= 

040000 

EF$ACT= 

000001 

EV$APL= 

000400 

ATSUP  = 

000010 

CNUOTB 

003714R 

DV.JSP= 

002000 

ENALIN 

0031 34R 

EV$ARC= 

000421 

ASCIR 

000003 

CONNAM 

0001 60R 

002  DV.MBC= 

000400 

ERR1 

000336R 

002 

EV$AUC= 

000010 

ASLEN 

000004 

CURUNM 

0001 64R 

002  DV.MNT= 

100000 

ERR10 

001040R 

002 

EV$AUS= 

000003 

ASNID 

000000 

CUSTEV= 

000740 

DV.MSD= 

000100 

ERR12 

001104R 

002 

EV$CDF= 

000520 

A$TM 

000003 

C$$CKP= 

000000 

DV.0SP= 

004000 

ERR13 

001136R 

09? 

EV$C0Z= 

000011 

A$TMI 

000002 

C$$ORE= 

000400 

DV.PSE= 

010000 

ERR14 

001176R 

002 

EV$DBR= 

000302 

ASTSZ 

000000 

C$$RSH= 

177564 

DV.REC= 

000001 

ERR15 

001244R 

002 

EV$GAS= 

035101 

A$TYP 

000002 

C.AR5 

000014 

DV.SD1= 

000020 

ERR16 

001314R 

002 

EV$HCE= 

035114 

A$$CH<= 

000000 

CAST 

000012 

DV.SQD= 

000040 

ERR17 

001342R 

002 

EV$HCI= 

035113 

A$$CP5= 

000000 

C.CSTP= 

000012 

DV.SWL= 

001000 

ERR18 

001414R 

002 

EV$HFE= 

000506 

A$$PRI= 

000000 

CDS! 

000016 

DV.TTY= 

000004 

ERR19 

001442R 

002 

EV$IFL= 

000413 

AtSTRP= 

000000 

C.EFN 

000003 

DV.UMD= 

000200 

ERR2 

000372R 

002 

EV$IFO= 

000415 

A.ACC 

000020 

C.LGTH= 

000020 

DSAMXC 

000072 

ERR20 

001472R 

002 

EV$IFS= 

000414 

A.LNK 

000000 

C.LNK 

000000 

DSAMXH 

000074 

ERR21 

001520R 

002 

EV$INF= 

000515 

A.NAM 

000002 

C.MRKT= 

000000 

D$ANN 

000000 

ERR22 

001572R 

002 

EV$LDL= 

000407 

A.  PUD 

000010 

C.RQT 

000002 

DSBRPR 

000102 

ERR23 

001636R 

002 

EV$LDN= 

010416 

A. REM 

000012 

C.RSI 

000012 

DSBRTM 

000100 

ERR24 

001664R 

002 

EV$LDO= 

000411 

A.UCB 

000010 

C.SCHD= 

000002 

DSDELF 

000045 

ERR25 

001726R 

002 

EV$LDS= 

000410 

BF.TRC= 

000004 

C.SRC 

000014 

DSDELW 

000046 

ERR26 

001762R 

002 

EV$LSC= 

000500 

CHAN 

000070R 

002  C.SSHT= 

000004 

D$END  = 

000104 

ERR27 

002020R 

002 

EV$LUP= 

000412 

CHFIL 

0U24OR 

C.SUB 

000012 

D$FNB 

000034 

ERR28 

002054R 

002 

EV$NOL= 

000402 

CHKEVT 

017352R 

C.SYST= 

000006 

DSHIOR 

000024 

ERR29 

002110R 

002 

EV$NRC= 

000416 

CHKEXE 

003730R 

C.SYTK= 

000010 

D$HOST 

000022 

ERR3 

000424R 

002 

EV$NSC= 

000200 

CHKXPT 

021516R 

C.TCB 

000004 

DSJNAC 

000044 

ERR30 

002U4R 

002 

EV$NUL= 

000401 

CHNAM 

0U666R 

C.TIM 

000006 

DSINCT 

000042 

ERR31 

0021 76R 

002 

EV$NVR= 

000406 

CHSTA 

0UK2R 

C.UIC 

000016 

D$IPL 

000051 

ERR32 

002236R 

002 

EV$0PL= 

000403 

CHTBLE 

000262R 

002  DEAFIL 

017600R 

D$LID 

000020 

ERR33 

99?I2^'' 

002 

EV$PCC= 

034000 

CKCON 

012772R 

DEFCON 

000044R 

002  DSLNAM 

000006 

ERR34 

002354R 

002 

EVSPCI= 

034001 

CKEVE 

012U4R 

DEFDEV 

000032R 

002  DSLNUM 

000014 

ERR35 

002402R 

99? 

EV$PCM= 

034002 

CKFIL 

013072R 

DEFFIL 

000020R 

002  D$LST 

000047 

ERR36 

002444R 

002 

EV$PFE= 

000404 

CKMDEV 

013634R 

DEFMON 

000040R 

002  DSMAXf 

000064 

ERR37 

002476R 

002 

EV$PPC= 

034003 

CKMON 

012676R 

DEFTYP 

000026R 

002  DSMAXH 

000066 

ERR38 

002546R 

09? 

EV$RCF= 

000517 

CtCNAME 

012536R 

DEFUIC 

000036R 

002  DSMAXV 

000070 

ERR39 

002614R 

002 

EV$RDC= 

010001 

CKNODE 

0U070R 

DEFUNT 

000034R 

002  DSMLL 

000040 

ERR4 

000'.62R 

002 

EV$RDR= 

010002 

CKSINK 

013746R 

DEFVER 

000030R 

002  DSMNOD 

000041 

ERR40 

002u70R 

002 

EV$RJE= 

035106 

CLASS 

000074R 

002  OF.CRC= 

000010 

D$NA 

062 

ERR41 

002742R 

59? 

EV$RSC= 

000501 

CL<QB 

000050P 

002  DF.FOC= 

000020 

DSNBEA 

0.  "56 

ERR42 

003000R 

002 

EV$RUL= 

000405 

CLRBiT 

005724R 

DF.LEN= 

000030 

DtNBRA 

OOi  54 

ERR43 

003050R 

002 

EV$SNA= 

035000 

CLREVT 

017334R 

DF.RAN= 

000040 

D$NEND= 

000054 

ERR44 

003122R 

99? 

EV$SNF= 

000516 

CL$AS?= 

010500 

DF.UNK= 

000100 

D$NLN 

000030 

ERR45 

0031 52R 

002 

EV$SPE= 

035001 

CL$DLL= 

000500 

DISMNT 

020330R 

D$NN 

000060 

ERR46 

003226R 

002 

EV$XCE= 

034110 

CLSECL= 

000300 

DLXPX 

000125R 

002  OSOUTT 

000043 

ERR47 

003300R 

002 

EV$XDI= 

013600 

CL$1DN  = 

-  010400 

DL$AST= 

000002 

DSRETF 

000050 

ERR48 

003350R 

002 

EV$XGW= 

034111 
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SYMBOL  CROSS  REFERENCE  CREF   OA.OO 

SYMBOL  VALUE  REFERENCES 

LF.ACT  =  ...*.»  GX    16-706  23-1067    2i-1105    2A-1115 

LF.BRO  =  <■•♦•»*  GX     ^■\-A5',  17-776     17-784 

LF.ENA  =  *•♦♦**  GX     11-484  11-496     23-1075    24-1131    24-1139 

LF.LPB  =  *♦♦♦♦♦  GX    16-713  33-1742    34-1770 

L F  MTP  =  *»•*♦♦  GX    13-592  14-634    15-666 

LFiRDY  =  .♦♦♦♦*  GX    11-451  16-704    17-773    20-905    21-963    22-1017    81-4252 

LF.SER  =  ***'»«  GX     12-542  12-550     12-556 

LINFLT    012216  R      44-2500  #45-2582 

LN.OFF  =  ******     GX    24-1106  24-1112 

LN.ON   =  **♦**.  GX    23-1068  23-1072 

LO.ADD    000022       #5-73 

LoicLS    000002       #5-73  46-2641   *56-3140    56-3146    59-3321 

LO.CON    000006       #5-73  ,,     ,  ^^^^ 

LO.COP    000010      #5-73  41-2233    4i-2266 

LO.CGS    000020      #5-73  17-783    17-797 

LO.CSR    000010       #5-73  5-73 

LO.CTL    000032       #5-73 

LO.DES    000002       #5-73  5-73 

LOiEVT    000004       #5-73  45-2560    56-3141    57-319A    57-3213    62-3491    62-3498    62-3511    62-3552 

62-3555  62-3560    62-3567    62-3572    62-3601    69-3850    69-3851    69-3852    69-3853 
#5-73 

#5-73  78-4183 

#5-73  80-4227 

#5-73  26-1342 

#5-73  26-1308 
#5-73 
#5-73 
#5-73 

#5-73  79-4207 

#5-73  lA-640 

#5-73  27-1432    27-1441    27-1455    28-1514    28-1526    28-1535    28-1559 

#5-73 

#5-73  54-3060 

#5-73  41-2235    41-2241   •41-2246    41-2248    41-2265 

#5-73  41-2251    41-2252    41-2267    41-2268 

#5-73  26-1325 

#5-73  16-696 

#5-73 

#5-73 

#5-73  26-1359 

#5-73  36-1841 

#5-73 

#5-73  26-1291 

#5-73 

#5-73  53-3024 

#5-73  47-2685    50-2821    50-2829    51-2938 

#5-73  37-1879 

#5-73  45-2603    71-3900 

#5-73  13-597    13-602    13-607 


n 

GRO 

000024 

n. 

HOS 

000040 

n. 

HTM 

000032 

n 

INA 

000062 

n 

INC 

000060 

n 

IDT 

000046 

n 

1  ID 

000030 

n 

LIN 

000004 

n 

1  TM 

000034 

10 

MAC 

000022 

n 

MDE 

000024 

n 

NAM 

000044 

in 

NET 

=  000002 

in 

NNM 

000022 

1  n 

OFL 

000012 

in 

ONM 

000004 

1  n 

OUT 

000056 

10 

OWN 

000026 

10 

PAR 

000010 

10 

PR  I 

000012 

1  n 

RFT 

000064 

in 

RPA 

000030 

10 

SCR 

000016 

1  0 

SFfi 

000054 

in 

SKA 

000014 

1  n 

SKN 

000014 

1  n 

SNM 

000035 

in 

.TPA 

000020 

1  n 

TRS 

000034 

LO 

.TRI 

000030 
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MACRO  NAME 

REFERENCES 

ADJDFS 

#5-62 

5-83 

AN8DF$ 

-      #5-60 

5-76 

ASL$ 

#5-62 

#5-93 

56-3139 

ASR$ 
CALL 

#5-103 
11-397 

46-2642 
11-401 

11-407 

11-412 

11-440 

11-442 

11-489 

11-502 

11-505 

11-509 

11-514 

11-515 

11-516 

11-517 

11-520 

11-521 

11-522 

13-594 

13-599 

13-604 

13-608 

13-614 

13-615 

14-637 

14-641 

14-646 

14-647 

15-669 

15-673 

15-678 

15-679 

16-697 

16-701 

16-752 

16-753 

16-754 

16-755 

16-756 

17-802 

17-803 

20-919 

20-927 

20-940 

20-941 

21-977 

21-984 

21-995 

21-996 

22-1031 

22-1037 

22-1048 

22-1049 

24-1154 

25-1176 

25-1202 

25-1217 

26-1267 

26-1290 

26-1292 

26-1307 

26-1309 

26-1324 

26-1326 

26-1341 

26-1343 

26-1358 

26-1360 

27-1386 

27-1394 

27-1399 

27-1407 

27-1414 

27-1416 

27-1421 

27-1430 

27-1434 

27-1436 

27-1442 

27-1445 

27-1465 

27-1466 

27-1467 

28-1493 

28-1499 

28-1507 

28-1518 

28-1527 

28-1531 

28-1536 

28-1540 

28-1554 

28-1569 

28-1570 

28-1573 

28-1578 

28-1580 

28-1583 

28-1591 

28-1592 

28-1593 

28-1594 

29-1619 

29-1620 

30-1648 

30-1649 

32-1712 

32-1713 

32-1715 

32-1720 

33-1738 

34-1766 

35-1799 

36-1828 

36-1830 

36-1832 

36-1853 

37-1868 

37-1870 

37-1872 

37-1891 

38-1909 

38-1912 

38-1919 

38-1925 

38-1926 

39-1943 

39-1953 

39-1966 

39-1987 

39-1990 

39-1993 

39-1998 

39-1999 

39-2003 

39-2015 

39-2017 

39-2022 

39-2040 

39-2044 

39-2046 

39-2052 

39-2056 

39-2057 

39-2058 

39-2060 

39-2062 

39-2063 

39-2064 

39-2065 

39-2066 

39-2068 

39-2069 

39-2070 

40-2086 

40-2092 

40-2098 

40-2113 

40-2131 

40-2133 

40-2136 

40-2140 

40-2141 

40-2145 

40-2157 

40-2159 

40-2166 

40-2170 

40-2171 

40-2172 

40-2174 

40-2176 

40-2177 

40-2178 

40-2179 

40-2180 

41-2208 

41-2220 

41-2222 

41-2229 

41-2253 

41-2259 

41-2272 

41-2273 

41-2276 

41-2278 

41-2283 

41-2284 

41-2285 

42-2313 

42-2315 

42-2339 

42-2345 

42-2354 

42-2356 

42-2363 

42-2368 

42-2373 

42-2374 

42-2376 

42-2384 

42-2390 

42-2397 

42-2401 

42-2405 

42-2409 

42-2413 

42-2422 

42-2423 

42-2427 

42-2436 

42-2437 

42-2438 

43-2469 

43-2471 

43-2473 

44-2491 

44-2500 

44-2512 

44-2525 

44-2534 

45-2568 

45-2582 

45-2592 

45-2593 

45-2599 

45-2620 

46-2664 

47-2698 

47-2703 

47-2706 

47-2712 

47-2713 

48-2731 

48-2737 

49-2767 

49-2771 

49-2774 

50-2800 

50-2817 

50-2827 

50-2831 

50-2846 

50-2850 

50-2868 

50-2894 

50-2912 

52-2987 

52-2995 

53-3020 

53-3029 

53-3042 

54-3065 

54-3073 

56-3125 

56-3147 

57-3173 

57-3183 

57-3204 

57-3214 

57-3216 

57-3220 

57-3223 

57-3228 

59-3312 

59-3325 

59-3327 

59-3328 

59-3331 

59-3335 

59-3336 

59-3340 

59-3341 

59-3345 

59-3347 

59-3353 

60-3378 

60-3379 

60-3384 

61-3432 

61-3433 

61-3438 

62-3493 

62-3499 

62-3502 

62-3503 

62-3512 

62-3514 

62-3515 

62-3523 

62-3527 

62-3530 

62-3534 

62-3537 

62-3540 

62-3554 

62-3557 

62-3561 

62-3566 

62-3569 

62-3574 

62-3577 

62-3580 

62-3586 

62-3589 

62-3592 

62-3595 

62-3603 

62-3607 

62-3609 

62-3613 

62-3615 

62-3616 

62-3621 

62-3625 

62-3628 

62-3632 

62-3635 

62-3638 

63-3676 

63-3677 

63-3682 

65-3754 

72-3938 

72-3940 

74-4003 

74-4009 

74-4013 

74-4016 

74-4020 

74-4025 

74-4028 

74-4031 

74-4065 

75-4090 

75-4094 

75-4097 

75-4101 

75-4103 

75-4107 

75-4115 

75-4116 

75-4123 

76-4139 

76-4142 

76-4144 

77-4164 

78-4179 

78-4188 

79-4205 

79-4208 

79-4210 

80-4225 

80-4228 

80-4230 

81-4271 

81-4275 

82-4306 

82-4321 

82-4328 

82-4333 

82-4344 

82-4346 

82-4348 

82-4355 

82-4356 

83-4375 

83-4391 

83-4393 

83-4396 

84-4415 

84-4422 

CALLR 

#5-62 

39-1945 

39-1949 

39-1963 

39-1975 

39-1986 

CEACCS 

#5-61 

28-1569 

29-1619 

30-1648 

32-1712 

41-2272 

42-2422 

45-2592 

59-3340 

60-3378 

61-3432 

62-3502 

62-3514 

62-3537 

62-3577 

62-3536 

62-3615 

62-3635 

63-3676 

ClKDFS 

#5-59 

5-67 

CTRDF$ 

#5-62 

5-68 

DDCDFS 

#5-61 

5-81 

OHBDFS 

#5-62 

5-84 

DMPDFS 

#5-62 

5-80 

ECDDBS 

#5-59 

5-70 

ERBLK$ 

#5-59 

9-218 

9-220 

9-222 

9-224 

9-226 

9-228 

9-230 

9-232 

9-234 

It  s 
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.MCALL   SWTCHI,SUTCH0,PUTRC,GETRV,DH8DF$,SLTDF$,RESRG,SAVRG,PUTAD 
LOCAL  MACROS 


54 
55 
56 
57 
58 

59  000000 

60  000000 
61 

62 

63 

6A 

65 

66 

67 

68 

69 

70 

71 

72 

73  000000 

74 

75 

76 

n 

78  000000 

79  000002 
80 

81 

82  000004 

83 

84 

85 

86  000006 

87  000212 

88  000214 
89 

90 
91 
92 

93  000274 

94  000276 

95  000300 

96  000302 

97  000304 

98  000306 

99  000310 

100  000312 

101  000314 

102  000316 

103  000320 

104  000322 

105  000324 

106  000326 

107  000330 

108  000332 

109  000334 

110  000336 


DH8DF$ 
SLTDFS 


;  DEFINE  DECNET  HOME  BLOCK  OFFSETS 
;  DEFINE  SLT  OFFSETS 


000000 
000000 
000012 

000000 
000001 
000002 


000006' 


DEFINE  TRANSFER  TABLE  ENTRY 

.MACRO  TTABS   AA,BB 
.WORD   AA 
.ENDM   TTA8$ 

LOCAL  DATA 

.PSECT  DATA.D 

VARIABLES  FDR  VECTOR  BLOCK  ROUTINES 


NXTLN:  .WORD 
ICBPT:  .WORD 
JSR0F=12 

FLAGA:   .WORD 

F.PRLT=1 

F.WRIT=2 

ICBLK:  .8LKW 
ICBL:  .WORD 
KRBB:    .BLKB 


66. 

IC8LK 

60 


USED  AS  AN  OFFSET  FOR  KB  DISPLACEMENT 

FUD6ER 

OFFSET  TO  JSR  IN  LINE  TABLE 

FLAG  FOR  VECTOR  BLOCK  ROUTINES 
PARTITION  LINE  TABLE  ALLOCATED 
WRITE  VECTOR  BLOCK  TO  IMAGE 

ROOM  FOR  PLENTY  OF  ENTRIES 
POINTER  TO  ICBLK  ENTRY 
INTERNAL  KRB  COPY 


TRANSFER  TABLE  USING  FUNCTION  CODE  AS  INDEX 


TABLE: 


TTABS 
TTA8$ 
TTA8$ 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 


ADDRB.NULL 

ADDRW.NULL 

BLKB.POPI 

BLKW.POPI 

BYTE.POPI 

CORE.XCORE 

CSR,P0P1 

CTIM,NULL 

OVCHA.NULL 

EOF .NULL 

FILE.POPI 

INT,P0P2 

LIBR.XLIBR 

LINKS, NULL 

LFILE,P0P3 

LSTHD.NULL 

LTAB.NULL 

MPTAB,P0P3 


EXPANSION  ROUTINE  IS  FIRST  ENTRY 
CLEANUP  ROUTINE  IS  SECOND  ENTRY 
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630 
631 
632 

633  001612 

634  001616 
655 

636  001622 

637  001626 

638  001632 
639 

640 
641 
642 
643 
644 
645 
646 
647 
648 
649 

650  001636 

651  001644 

652  001650 

653  001654 

654  001660 

655  001664 

656  001670 

657  001672 

658  001676 

659  001704 

660  001712 
661 

662 
663 
664 

665  001714 

666  001722 

667  001724 
668 

669 

670  001732 

671 

672 

675 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 


10$: 


012720  013746 

012720  172552 

012720  012737 

016720  OOOOOOG 

012720  172352 


.ENDC 

MOV 
MOV 

MOV 
MOV 
MOV 


#13746, (R0)+ 
#172355, (R0)+ 

#12737, (R0)t 
$BIAS,(R0)t 
#172352, 'R0)  + 


.IF  DF  R$$MPL 


20$: 


062767  000002  000000' 

016701  000000' 

016702  OOOOOOG 
066102  OOOOOOG 
062702  000012 
012720  000137 
010220 

010067  000212' 

016761  000002'  OOOOOOG 

066767  OOOOOOG  000002' 


100$: 


BIT 
BEQ 
MOV 
MOV 
MOV 

.ENDC 

ADD 
MOV 
MOV 
ADD 
ADD 
MOV 
MOV 
MOV 
MOV 
ADD 
RETURN 


#DF.DAS,$DFLAG 

20$ 

#12737, (RO)t 

$BIAS,(RO)+ 

#172372, (R0)+ 


,R2 


#2,NXTLN 

NXTLN,R1 

$SADDR,R2 

$VECT1(R1) 

#JSR0F,R2 

#137,(R0)t 

R2,(R0)+ 

RO,ICBL 

ICBPT,$VECT1(R1) 

$ICBLN,ICBPT 


MOV  5)#KISAR5,-(SP)  CODE 
MOV  $BIAS,a#KISAR5  CODE 


D-SPACE  SUPPORTED 
IF  NO  -  BRANCH 
MOV  $BIAS,a#KINAR5 


UP  THE  POINTER 

NEXT  ENTRy  IN  $VECT1 

LINE  TABLE  ADDRESS 

POINT  AT  CORRECT  .INT  CODE 

POINT  AT  JSR  WITHIN  .INT 

JMP  a#LINE-TABLE-ADDRESS 

READr  FOR  NEXT  ENTRV 
;  SET  UP  FOR  STMVCT 
FOR  NEXT  TIME 


152767  000002 
001415 


SEE  IF 

000004'  WRVBL 


AN  KB  SHOULD  BE  WRITTEN  TO  THE  IMAGE. 


BITB  #F.WfiIT,FLAGA 

BEQ  100$ 

SWTCHO  #ICBLK 

.IF  NDF  R$$MPL 


10$: 


PUTRC 
.IFF 
TST 
BPL 

sue 

PUTRC 

ADD 

BR 

MOV 
MOV 
SWTCHI 
ADD 

GETRV 
MOV 


$IC8AD,$ICBSZ 

.MPRO 
10$ 

#2,$ICBSZ 
$IC8AD,$ICBSZ 
#2,$ICBSZ 
106$ 

$SLTA,R5 
L.KR8A{R5),R5 
#KRBB 
#K.PRM,R5 

R5,#$KRBLN 
KR8e,R5 


IF  SET  THEN  DO  A  WRITE 

NO  IF  EQ 

SET  UP  BUFFER  ADDRESS 


WRITE  KB  TO  IMAGE 

MULTIPROCESSOR  ? 
IF  YES  -  BRANCH 

UPDATE  KB  SIZE 
WRITE  KB  TO  IMAGE 
RESTORE  KB  SIZE 
CONTINUE 

GET  SLT  ADDRESS 

GET  KRB  ADDRESS 

SET  INPUT  BUFFER 

ADJUST  FOR  NEGATIVE  OFFSETS 

READ  KRB 

GET  KB  ADDRESS/2  WITH  CPU  NUMBER 


;CHPOn 

;[MP013 
;CMPOn 


;[HP01] 

.■[MP01] 
;[MP0n 
;CMPOn 
.•CMPOl] 
;CMP01] 

;[MP01] 


;CMP01] 


;tMP01] 
;[MP01] 
;[MP01] 

;[MP01] 
;CMP01] 
;[MP01] 
; CMPOl ] 

;[MP01] 
;[MP01] 
; CMPOl] 
;[MP01] 

;[MP01] 
; CMPOl] 


♦♦FILE«'ID««VEX3 
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vv    vv 

EEEEEEEEEE 

XX      XX 

333333 

VV    vv 

EEEEEEEEEE 

XX      XX 

333333 

vv    vv 

EE 

XX      XX 

^^   II 

vv    vv 

EE 

XX      XX 

5^   II 

vv    vv 

EE 

XX  XX 

33 

vv    vv 

EE 

XX  XX 

33 

vv    vv 

EEEEEEEE 

XX 

33 

vv    vv 

EEEEEEEE 

XX 

33 

vv    vv 

EE 

XX   XX 

33 

vv    vv 

EE 

XX   XX 

33 

vv  vv 

EE 

XX      XX 

33     33 

vv  vv 

EE 

XX      XX 

33     33 

vv 

EEEEEEEEEE 

XX      XX 

333333 

vv 

EEEEEEEEEE 

XX      XX 

333333 

ssssssss 

TTTTI 

TrTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

S5SSSS 

ss 

SS 

ss 

ss 

LLLLLLLLLL 
LLLLLLLLLL 

ssssssss 
ssssssss 

*f  ILE«MD«-»VEX5 
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VV    vv 

EEEEEEEEEE 

XX      XX 

5555555555 

vv    vv 

EtEEEEEEEE 

XX      XX 

5555555555 

vv    vv 

EE 

XX      XX 

55 

vv    vv 

EE 

XX      XX 

55 

vv    vv 

EE 

XX  XX 

555555 

vv    vv 

EE 

XX  XX 

555555 

vv    vv 

EEEEEEEE 

XX 

55 

vv    vv 

EEEEEEEE 

XX 

55 

vv    vv 

EE 

XX  XX 

55 

vv    vv 

EE 

XX  XX 

55 

vv  vv 

EE 

XX      XX 

55     55 

vv  vv 

EE 

XX      XX 

55     55 

vv 

EEEEEEEEEE 

XX      XX 

555555 

vv 

EEEEEEEEEE 

XX      XX 

555555 

SSSSSSSS 

TTTTT 

TTTTT 

SSSSSSSS 

TTTTT 

mil 

SS 

SS 

SS 

SS 

ssssss 

ssssss 

SS 

SS 

SS 

SS 

.LLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

VEX5  -  VNP  UPDATE  LINE  TABLES 
EXPANSION  ROUTINES 

585 

586 

587 

588 

589 

590 

591 

592 

593 

59^  OOH^A  005723 

595  001AA6 

596 

597 

598 

599 

600 

601  0OU5O 

602  00H50  005203 

603  001452 
604 
605 
606 
607 

608  00145A  005723 

609  001456 
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10$: 


CMP 

BLO 

MOV 

BK 

MOV 

MOV 

GETAD 

MOV 

PUTAD 

TST 

RETURN 


R3, #120000 

10$ 

R3,-(SP) 

*160000,(SP) 

(SP)+,a$ADRZ 

$8IAS,S$ADRX 

,*2 

R0,$8FR 

(R3)  + 


DEAD  POLLING  RATIO  BYTE 
ACTIVE  POLLING  RATIO  (APR) 

DPRB: 

APR:    INC     R3 
RETURN 


DEAD  POLLING  RATIO  WORD 

DPRW:   TST     (R3)+ 
RETURN 


PARTITION  LINE  TABLE  ? 
IF  LO,  NO 

GET  LINE  TABLE  ADDRESS 
WITHOUT  APR  SELECT  BITS 
SET  NEW  VIRTUAL  ADDRESS 
SET  BIAS  OF  PROCESS 
ACCESS  LINE  TABLE 
STORE  TIME 
RE-WRITE  LINE  TABLE 
UPDATE  POINTER 


SKIP  IT 


SKIP  IT 


_J 


VrGDTE  - 
MACRO  DE 

55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 


INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:28  Page  5 
FINITIONS 


62:2J 
.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 


.MCALL  EMSG$R,SLTDF$,SAVRG,RESRG,DTEDF$,GETA[i,CEACC$ 
.MCALL  PHBDF$,NTLER$, I  STATS, TRANS, STATES, ASL$,GETRV 


000000 
000000 
000000 


LIBRARY  SYMBOLS 

DTEDFS 
PH8DFS 
SLTDFS 

LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV     SR8LCK,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)+,SRBLCK 

.ENDM 


LOCAL  DTE  DESCRIPTOR  BLOCK  OFFSETS 
DEFINE  PSI  HOME  SLOCK  OFFSETS 
DEFINE  SLT  OFFSETS 


VFGDTE    -    INITIAL    CONFIG 
LINE-ID   ACTION   ROUTINES 
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424 

.S8TTL 

LINE-ID  ACTION  ROUTINES 

425 
426 
427 
428 
429  000616 

.ENA8L 

LSB 

;  DEVICE  NAME 

022767 

000003 

OOOOOOG 

DEVNAM:  CMP 

#3,.PSTCN 
10l$ 

430  000624 

103425 

BLO 

431  000626 

016700 

OOOOOOG 

MOV 

.PSTPT.RO            ; 

432  000632 

CALL 

$CAT5 

433  000636 

010167 

000042' 

MOV 

R1,LJNNAH 

434  000642 

435 

436 

437 

458  000644 

RETURN 

;  DEVICE  CONTROLLER  NUMBER 

005767 

OOOOOOG 

DEVCTL:  TST 

.PNUMH 

459  000650 

001013 

BNE 

101$ 

440  000652 

016767 

OOOOOOG 

000044' 

MOV 

.PNUMB.LINCTL 

441  000660 

442 

443 

444 

445  000662 

RETURN 

;  DEVICE  UNIT  NUMBER 

005767 

OOOOOOG 

DEVUNT:  TST 

.PNUMH 

446  000666 

001004 

BNE 

101$ 

447  000670 

116767 

OOOOOOG 

00004  5' 

M0V8 

.PNUMB.LINUNT 

448  000676 

RETURN 

449 

450 

;  ERRORS 

451 

452  000700 

101$:   EMSGSR 

06 

453 

.DSA8L 

LSB 

VALID   DEVICE   NAME? 

8R   IF  NO 

GET  ADDRESS  OF  FIRST  CHARACTER 

CONVERT  TO  RAD50 

SAVE  DEVICENAME 


LEGAL  CONTROLLER  NUMBER  VALUE? 

BR  IF  NO 

SAVE  CONTROLLER  NUMBER 


LEGAL  UNIT  NUMBER  VALUE? 

8R  IF  NO 

SAVE  UNIT  NUMBER 


ILLEGAL  LINE-ID 


"n 


VfGPVC  -  INITIAL  CONFIG  FILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85  02:29  Page  5 
MACRO  DEFINITIONS 
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02:29 


5A 
55 
56 
57 
58 
59 
50 
61 
62 
63 
M 

65  000000 

66  000000 

67  000000 

68  000000 

69  000000 

70  000000 

71  000000 

72  000000 
71 

7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 


.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 


.MCALL  EMSG$R,SAVRG,RESRG, PVCDFS, XCBDFS, GE TAD, PUTAD.GETRV 
.MCALL  PHBDFS,NTLER$, STATES, TRANS, I  STATS, CEACCS, PLBDFS 
.MCALL  SLTDFS,XPDDB$, CTRDFS, DTEDFS 


LOCAL  DTE  DESCRIPTOR  OFFSETS 

TRANSPORT  COUNTER  BLOCK  OFFSETS 

XPT'S  DDB  OFFSETS 

PSI  HOME  BLOCK  OFFSETS 

PVC  NAME  BLOCK  OFFSETS 

SLT  OFFSETS 

X25  CIRCUIT  CONTROL  BLOCKS 

PLB  OFFSETS 


;  LIBRARY  SYMBOLS 

DTEDFS 
CTRDFS 
XPDDBS 
PHBDFS 
PVCDFS 
SLTDFS 
XCBDFS 
PLBDFS 

;  LOCAL  MACRO  DEFINITIONS 

.MACRO 

MOV 

.ENDM 

SAVMAP 
SRBLCK, 

■(SP) 

.MACRO 

MOV 

.ENDM 

RESMAP 
(SP)t, SRBLCK 

•  SET 

UP  APR5  MAPPING 

.MACRO 

MOV 

.ENDM 

MAP     BIAS 
BIAS, SRBLCK 

;  SET 

UP  APRS  BIAS 

.MACRO 
BIC 
BIS 
.ENDM 

BIAS 

#160000 

*120000 

REG 

REG 

.REG 

CLEAR  CURRENT  MAPPING  BITS 
SET  UP  APR5  MAPPING 


VFGPVf"  -  INITIAL  CONfIG  fILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
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567 
568 
569 
570 
571 
572 
573 
57A 
575 
576 
577 
578 
579 
580 
581 
582 
583 
58A 

585  001 30A 

586  001310 

587  001322 

588  001 3A0 

589  001 3A6 

590  001350 

591  001354 

592  001360 

593  001362 
59A  001364 

595  001566 

596  001370 

597  001372 

598  001376 

599  00U14 

600  00H20 

601  00U22 

602  001A24 

603  00U30 

604  001432 

605  001434 

606  001436 

607  001440 

608  001446 

609  001454 

610  001460 

611  001464 


FNDHSH: 

SAVMAP 
CEACCS 
GETAD 

016767 

000030G 

OOOOOOG 

MOV 

005002 

CLR 

016700 

000010' 

MOV 

016701 

OOOOOOG 

10$: 

MOV 

005401 

NEG 

040100 

BIC 

010001 

MOV 

006300 

ASL 

006300 

ASL 

066700 

OOOOOOG 

ADD 
GETAD 

005767 

000002G 

TST 

001407 

BEQ 

005202 

INC 

026702 

OOOOOOG 

CMP 

103413 

BLO 

060201 

ADD 

010100 

MOV 

000746 

BR 

016767 

000010' 

OOOOOOG 

20$: 

MOV 

116767 

000034' 

000002G 

30$: 

M0V8 
PUTAD 
RESMAP 
RETURN 

.SBTTl  FNDHSH  -  FIND  HASH  TABLE  ENTRV 


FNDHSH  -  FIND  HASH  TABLE  ENTRY 

INPUTS: 

PVCLCN  -  LOGICAL  CHANNEL  NUMBER 

PVCPRT  -  PORT  NUMBER 

HSHADD  -  APR6  ADDRESS  OF  HASH  TABLE  ENTRY 

OUTPUTS: 

CARRY  CLEAR  -  TABLE  ENTRY  AVAILABLE  AND  SET  UP  WITH  LCN/PORT 
CARRY  SET  -  NO  ENTRIES  AVAILABLE 
R0,R1,R2  DESTROYED 
MAPPING  PRESERVED 


;  SAVE  MAPPING 
DTEDES,R2       ;  CONVERT  TO  MAPPED  ADDRESS 
R2,#L$LEN      ;  READ  IN  DTE  DESCRIPTOR 
L$CHTB+$BFR, HSHADD  ;  GET  HASH  TABLE  ADDRESS 
R2  ;  INITIAL  OFFSET  FOR  HASH  TABLE  INSERTION 

PVCLCN, RO       ;  GET  LOGICAL  CHANNEL  NUMBER 
HSHSZ.RI        ;  GET  NUMBER  OF  ENTRIES  IN  HASH  TABLE 
R1  ;  GET  MASK  FOR  HIGH  BITS 

R1,R0  ;  COMPUTE  ENTRY  NUMBER  (MODULO  TABLE  SIZE) 

RO.fil         ;  SAVE  ENTRY  NUMBER 
RO  ;  MULTIPLY  BY  4  TO  DETERMINE  OFFSET 

RO  ;  ...  INTO  HASH  TABLE 

HSHADD, RO       ;  DETERMINE  ENTRY  ADDRESS  IN  HASH  TABLE 
R0,«4  ;  READ  IN  HASH  TABLE  ENTRY 

$6FR+2         ;  IS  THIS  ENTRY  AVAILABLE? 
20$  ;  BR  IF  YES  (CLEARS  CARRY) 

ELSE,  COLLISION  -  UPDATE  OFFSET 

ANY  ENTRIES  AVAILABLE? 

BR  IF  NO  (SETS  CARRY) 

CALCULATE  ENTRY  NUMBER  +  OFFSET 

SAVE  ENTRY  NUMBER  +  OFFSET 

FIND  NEXT  AVAILABLE  ENTRY 

STORE  LOGICAL  CHANNEL  NUMBER  IN  HASH  TABLE 
+2   ;  STORE  PORT  NUMBER  IN  LOW  BYTE  OF  HASH  TABLE 

WRITE  UPDATED  HASH  TABLE  ENTRY 

RESTORE  MAPPING 


,R2 


R2 

HSHSZ 

30$ 

R2,fi1 

RI.RO 

lOi 

PVCLCN, $BFR 

PVCPRT, SBFR 


VFGPVC  CREATED  BY     MACRO     ON  29-JUN-85  AT   02:30 

SYMBOL    CROSS  REFERENCE 
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CREf       Ci.OO 


SYMBOL 

VALUE 

REFERENCES 

ISTRNG 

; 

000004 

#10-212 

tSUBXP 

n 

000010 

#10-212 

STRIB 

= 

****** 

fix 

19-678 

$X3DBS 

r 

****** 

GX 

11-308 

$X3DWS 

= 

****** 

GX 

11-309 

tSHTIM 

= 

****** 

GX 

13-A06 

$$LTIM 

= 

****** 

GX 

13-«7 

$$$FLG 

- 

\11111 

#10-212 

$$$<EY 

- 

M7777 

#10-212 

.PNUMB 

= 

*♦*♦♦* 

GX 

11-323 
19-682 

11-359 

12-391 

12-393 

19-665 

.PNUMH 

= 

»*♦**• 

GX 

11-321 

11-337 

12-389 

19-666 

19-680 

.PSTCN 

r 

GX 

12-374 

.PSTPT 

- 

****** 

GX 

12-376 

.TPARS 

= 

****** 

GX 

9-197 

19-668 


19-671 


19-677 


19-678 
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559 

560 

561 

562  000574 

365  000400 

364  000402 

565  000410 

566 

567 

568 

369  000412 

570 

■  RETRV  TIMER 

001004 
016767 

OOOOOOG 
OOOOOOG 

000012' 

SVRRTM:  TST 
BNE 
MOV 
RETURN 

•  ERROR 

.PNUMH 

101$ 

.PNUMB,RTMSVC 

101$:   EMSGSR 

5H 

371 
572 
573 
5^4  000420 

375  000426 

376  000450 
377 

378 

379 

380  000432 

381 

382 

383 

384  000440 

385  000444 

386  000450 

387  000452 

388  000454 

389  000456 

390  000462 

391  000470 

392  000474 
593 

394 
395 
396 

597  000476 

598  000504 

399  000506 

400  000512 
401 

402 

403 

404  000514 

405 

406 

407 

408 

409  000522 

410  000526 

411  000532 

412  000536 

413  000542 

414  000546 

•  NO  DTE  ADDRESS  SPECIFIED 

032767 
001401 

000002 

00001 C 

NODTE:   BIT 
BEQ 
RETURN 

•  ERROR 

#SF$INC,FLGSVC 
101$ 

012700 
012701 
105021 
005300 
003375 
105067 
012767 

O0C017 
000025' 

000024' 
000025' 

OOOOOO' 

101$:   EMSGSR 
;  START  OF  DTE 

SVDTES: :MOV 
MOV 

10$:    CLRS 
DEC 
BGT 
CLR8 
MOV 
CALL 
RETURN 

3M 

ADDRESS 

#DTELEN,RO 

#DTESVC,R1 

(R1)  + 

RO 

10$ 

COUNT 

#DTESVC,NEXT 

STRNXT 

■  PROCESS  DTE  DIGIT 

026727 
101003 

OOOOOO' 

000044' 

SVDTED:  CMP 
BHI 
CALL 
RETURN 

;  ERRORS 

NEXT,#DTEEND 

101$ 

STRNXT 

101$:   EMSGSR  31 
■  END  OF  DTE  ADDRESS 

004567 
012700 
012704 
012705 

OOOOOOG 
000010 
000025' 
000044' 

SVDTEE:JSR 
MOV 
MOV 
MOV 
CALL 
RETURN 

R5,$SAVRG 

#<DTELENt1>/2,R0 

#DTESVC,R4 

#DTEPCK,R5 

PCK8CD 

LEGAL  RECALL  TIMER 

BR  IF  NO 

SAVE  RECALL  TIMER 


ILLEGAL  RECALL  TIMER 


IS  THIS  AN  INCOMING  SVC? 
BR  IF  NO 


DTE  ADDRESS  MISSING 


GET  LENGTH  OF  REMOTE  DTE  ADDRESS 

GET  ADDRESS  OF  START  OF  BUFFER 

INITIALIZE  BUFFER 

MORE  TO  INITIALIZE? 

BR  IF  YES 

INITIALIZE  DIGIT  COUNT 

START  AT  BEGINNING  OF  BUFFER 

STORE  CHARACTER 


IS  ADDRESS  TOO  LONG? 
BR  IF  YES 
STORE  CHARACTER 


ILLEGAL  DTE  ADDRESS 


SAVE  R3-R5 

GET  LENGTH  OF  PACKED  ADDRESS 

POINT  TO  NUMBER  TO  CONVERT 

POINT  TO  STORAGE  FOR  PACKED  NUMBER 

PACK  REMOTE  DTE  ADDRESS  IN  BCD 


K  1 

VENA  -  VNP  FNABLE/DISABLE  LINES  MACRO  V05.03b  Wednesday  1i-Sep-85  12:06  Page  63-1 
GETNXT  -  GET  NEXT  FILTER  BLOCK 


370A  017306  000A01 

3705 

37C6  017310     0002^1 

3707 

3708  017512 

3709  017320 


50$: 
60$: 


BR 

CLC 

SWTCHI 
RETURN 


60$ 


FINISH  UP 

INDICATE  END  OF  EVENT  CLASS  LIST 

RESTORE  IBFR  AS  INPUT  BUFFER 
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DISMNT  -  DISMOUNT  THE  ACP 

.SBTTL  DISMNT  -  DISMOUNT  THE  ACP 

*•*  -  DISMNT  -  DISMOUNT  THE  ACP 

INPUTS: 

NONE. 
OUTPUTS: 

NONE. 


4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088  020330 

4089  020330 

012700 

000010' 

4090  020334 

4091 

4092  020340 

016700 

00001 2G 

4093  020344 

001414 

4094  020346 

4095 

4096  0203b4 

042767 

010000  0000C6G 

4097  020372 

4098 

4099 

4100 

4101  020376 

4102  020402 

103435 

4103  020404 

4104  020422 

016700 

000016G 

4105  020426 

001423 

4106  020430 

012701 

000052 

4107  020434 

4108  020440 

016700 

00001 6G 

4109  020444 

006300 

4110  020446 

060001 

4111  020450 

016700 

000020G 

4112  020454 

001410 

4113  020456 

005067 

000016' 

4114  020462 

005067 

000020L 

4115  020466 

4116  020472 

4117 

4118 

4119  0204  76 

4120  020^^76 

032767 

OOOOOOG  OOOOOOG 

4121  0205J4 

001413 

4122  020506 

012767 

000340  OOOOOOG 

4123  020514 

4124  020534 

DISMNT: 


MOV 
CALL 

MOV 
BEQ 
GETRV 

BIC 
PUTRC 


#NTINAM,RO 
TSKSCH 

T.RCVL+$BFR,RO 

15$ 

R0,#36. 

#LS.CX0,LR.STS+6+$BFR 


DE-ALLOCATE  THE  PL8  DATA  BASE 


15$: 


20$: 


30$: 


CALL 

BCS 

GETRV 

MOV 

BEQ 

MOV 

CALL 

MOV 

ASL 

ADD 

MOV 

BEQ 

CLR 

CLR 

PUTRC 

CALL 


CHKXPT 

20$ 

R2,*N$XLEN 

N$PLD+$BfR,RO 

20$ 

#P$LEN,R1 

$MUL 

N$PLD+$BFR,R0 

RO 

RO.RI 

N$PLD+2+$BFR,R0 

20$ 

N$PLD+$BFR 

N$PLDt2+$BFR 

$DEA16 


BIT  #VF.SS,$VFLAG 

BEQ  30$ 

MOV  *340,$BFR 

PUTRC  *2,#2 

RETURN 


GET  RAD50  TASK  NAME  ADDRESS 
READ  TASK  TC8 

POINT  AT  THE  SEND  DATA  PACKET 
IF  EQ,  ACP  NOT  MOUNTED 
READ  IN  PACKET 

ELSE  CLEAR  SET  EXE  STATE  ON 
REWRITE  PACKET 


GET  XPT'S  DATA  BASE  ADDRESS 

IF  CS,  ERROR 

READ  IN  XPT'S  DATA  BASE 

GET  NUMBER  OF  PLB'S  ENTRIES 

IF  EQ,  NONE 

ELSE,  GET  LENGTH  OF  EACH  PL8 

CALCULATE  SIZE  OF  PLB  DATA  BASE 

Get  number  of  channels  again 

multiply  by  two  for  vector  size 

add  to  total  allocation 

GET  ADDRESS  OF  ALLOCATION 

IF  EQ,  NONE 

CLEAR  THE  DATA  BASE  POINTERS 

REWRITE  THE  XPT  DATA  BASE 
DEALLOCATE  THE  PLB  DATA  BASE 


IIS  ? 

IF  NO  -  BRANCH 

REPLACE  LOCATION  2 
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EVSXMX^ 

0005U 

FF.ADD= 

000020 

F.MOD 

000022 

LO.COS 

000020 

EV$XRS= 

000512 

FF.CIR= 

OOOOAO 

F.NRBD= 

****** 

GX 

LO.CSR 

000010 

EVtXSC= 

000513 

FF.CON= 

000001 

F.REM 

000026 

LO.CTL 

5S98^? 

EV$X2S= 

013500 

FF.FIL= 

000002 

F.fiSlZ= 

****** 

GX 

LO.DES 

000002 

EV.CCB= 

000001 

FF.HST= 

OAOOOO 

F.SEV 

OOOOOA 

LO.DTE 

0000A7 

EV.C1R= 

000020 

FF.LIN= 

000010 

F.UR8D= 

***ir** 

GX 

LO.EVT 

OOOOOA 

EV.LCB= 

000100 

FF.MOD: 

000100 

CCLASS 

000116R 

002  LO.GRO 

000024 

EV.LIN= 

OOOOOA 

FF.MON= 

OOOOOA 

GETLEN 

013572R 

LO.HOS 

000040 

EV.MAP= 

000002 

FF.f1SK= 

000077 

GETNXT 

017102R 

LO.HTM 

000032 

EV.MOD= 

OOOOAO 

FF.PRT= 

000200 

GMASK 

0001 06R 

002  LO.INA 

000062 

EV.NOD= 

000010 

FF.QUL= 

000370 

GTSLT 

0060AAR 

LO.INC 

000060 

EV.PRT= 

000200 

FF.REM= 

100000 

G$$TPP= 

000000 

LO.LCT 

000046 

ESDATA 

000020 

FILDEV 

0001A6R 

002  G$$TSS= 

000000 

LO.LID 

000030 

ESEVTS 

000000 

FILLEN= 

000020 

G$$TTK= 

029S29 

LO.LIN 

000004 

ESLCN 

000016 

FILNAM 

0001 3AR 

002  G$$URD= 

000000 

LO.LTM 

000034 

ESLIN 

000000 

FILOPR 

015772R 

INIEVT 

017A5AR 

LO.MAC 

000022 

ESMOD 

000012 

FILPRO 

01AA22R 

I$$RAR= 

000000 

LO.MDE 

000024 

EtNBR 

oooou 

FILTYP 

0001A2R 

002  I$$RDN= 

000000 

LO.NAM 

99981^ 

ESNBS 

000020 

FILUIC 

0001 52R 

002  I. OFF  = 

00002A 

LO.NET= 

000002 

ESNCR 

000034 

FILUNT 

0001 50R 

002  K$$CNT=: 

1775A6 

LO.NNM 

000022 

ESNCS 

000036 

FILVER 

OOOUAR 

002  K$$CSR= 

1775A6 

LO.OFL 

000012 

E$NIC 

OOOOAA 

FINFLT 

0153A0R 

K$$LDC= 

000000 

LO.ONM 

000004 

ESNLEN 

000050 

F I  NOB J 

005376R 

K$$TPS= 

00007A 

LO.OUT 

000056 

ESNLLA 

000012 

FINREM 

005500R 

LCLFLG 

000123R 

002  LO.OWN 

000026 

ESNLNK 

000000 

FLTBUF 

0001 70R 

002  LD$LP  = 

000000 

LO.PAR 

000010 

ESNML 

OOOOAO 

FNDCTR 

021022R 

LD.ALI= 

000030 

LO.PRI 

000012 

ESNMR 

00002A 

FNDDCB 

020616R 

LD.CEX= 

00002A 

LO.RET 

000064 

E$NMS 

000030 

FNDDMP 

002732R 

LD.CIR= 

000035 

LO.RPA 

000030 

F$NNOO 

000002 

FNDFIL 

01553AR 

LD.LIN= 

000025 

LO.SCR 

000016 

ESNOD 

000010 

FNDFR 

0021 36R 

LD.L0G= 

000031 

LO.SEG 

000054 

ESNRT 

000042 

FNDLIN 

00230AR 

LD.MOD= 

000037 

LO.SKA 

000014 

ESNRTP 

000005 

FNDPCL 

002526R 

LD.NOD= 

000027 

LO.SKN 

000014 

ESNSEG 

000010 

FNDTRI 

002310R 

LD.OBJ= 

000032 

LO.SNM 

000035 

ESNTIM 

0000A6 

FNPID 

002222R 

LD.PR0= 

000026 

LO.TPA 

000020 

ESNUSE 

OOOOOA 

FR$BCC= 

000007 

LE.NRH= 

000200 

LO.TRB 

000034 

ESPORT 

OOOOIA 

FR$CCF= 

000001 

LE.NRO= 

000001 

LO.TRI 

000030 

ESPRM 

000002 

FR$CDF= 

000002 

LE.NSH= 

000002 

LO.UNT 

000033 

ESSTAT 

000006 

FR$DAO= 

000011 

LE.NSO= 

000020 

LO.VCT 

000014 

ESSTRT 

000006 

FR$EXC= 

000000 

LE.RCO= 

OOOOAO 

LO.VER 

000042 

E$TC8 

OOOOOA 

FR$FRM= 

000010 

LE.SAE= 

OOOOOA 

LR.ACC 

000020 

E$$XPR= 

000000 

FR$FTL= 

000005 

LE.STT^ 

000010 

LR.ACO 

000052 

E.CTL 

000020 

FR$OPN= 

OOOOOA 

LE.XTU= 

000100 

LR.ADD 

000012 

E.DATA 

OOO0A6 

FR$RFD= 

000006 

LF.ACT= 

****** 

GX 

LR.ALI 

000002 

E.EVT 

000002 

FR$SBU= 

000012 

LF.8R0= 

****** 

GX 

LR.SLK 

000010 

E.LCN 

0000A2 

FR$SHO= 

000003 

LF.ENA= 

****** 

GX 

LR.CTL 

000004 

E.LEN 

000216 

FR$U8U= 

000013 

LF.LPB= 

****** 

GX 

LR.DES 

000010 

E.LIN 

00002A 

FR$UPT= 

00001 A 

LF.MTP=: 

****** 

GX 

LR.HLP 

000002 

E.LNK 

000000 

F$$LVL= 

000001 

LF.RDY= 

****** 

GX 

LR.LIN 

000002 

E.MOD 

000036 

F.ADD 

000016 

LF.SER= 

****** 

GX 

LR.NAM 

000012 

E.NOD 

C0003A 

F.CEV 

000030 

LINFLT 

01221611 

LR.PAS 

000041 

E.PDV 

000021 

F.CIR 

00002A 

LN.OFF= 

****** 

GX 

LR.PRO 

000002 

E.Pf'Rr 

OOOOAO 

F.CLS 

000002 

LN.ON  = 

****** 

GX 

LR.STS 

000000 

F.f   ' 

000026 

F.EVT 

OOOOOA 

LO.ADD 

000022 

LR.TRI 

000006 

E.pvr 

OOOOAA 

F.FLG 

OOOOU 

LO.ADR 

000052 

LR.TYP 

99999? 

E.SIZ 

000022 

F.LEN 

000016 

LO.CLS 

000002 

LR.UCB 

000016 

E.TIME 

OOOOOA 

F.LIN 

000020 

LO.CON 

000006 

LR.UIC 

000020 

FATAl  : 

-  ♦».,•«  ex 

F.LNK 

000000 

LO.COP 

000010 

LR.UNT 

000005 

LS.ALI= 
LS.CEX= 
LS.CIR= 
LS.CXO= 
LS.CX5= 
LS.ECH= 
LS.FDX= 
LS.HDX= 
LS.HLP= 
LS.LIN= 
LS.LMC= 
LS.LOG= 
LS.MOD= 
LS.NOD= 
LS.NTI= 
LS.08J= 
LS.OPT= 
LS.PRO= 
LS.TOP= 
LS.T$T= 
L$.UNF= 
LS.XIT= 
LX.ALI= 
LX.CEX= 
LX.CIR= 
LX.LIN= 
LX.LOG= 
LX.NOD= 
LX.OBJ= 
LX.PRO= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.BABL 


.BUFU 
L.CHA 
L.CNTL 
L.COST= 
L.CRC 
L.CRS 
L.DISL 


.DISR 
.Die  = 
.DLM  = 
.DLS  = 
.ENA 
.FLG  = 
.LNUM 
_.MPF  = 
L.NAST 
L.NCUB 
L.NCUL= 
L.NIP 
L.NLSE 
L.NMST= 
L.NRSE 


000016 

000001 

000033 

010000 

000400 

001000 

004000 

010000 

000012 

000003 

000007 

00002U 

000036 

000014 

000013 

00002c 

OOOAOO 

000002 

002000 

000010 

02C000 

000011 

000017 

OOOOOA 

000034 

000006 

000021 

000015 

000023 

000005 

000000 

000000 

000001 

000000 

000062 

000052 

00003A 

000024 

******  GX 

000030 

000040 

000042 

000044 


****** 
****** 
****** 

000066 

****** 

0000A6 
****** 
000065 
000012 
000050 
000010 
000054 

****** 

000053 


GX 
GX 
GX 

GX 

GX 


GX 
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CREf   04.00 


SYMBOL 

VALUE 

REFERENCES 

LO.UNT 

000053 

#5-73 

LO.VCT 

000014 

#5-73 

LO.VER 

000042 

#5-73 

38-1916 

LR.ACC 

000020 

#5-73 

LR.ACO 

000052 

#5-73 

42-2382 

42-2410 

LR.ADO 

000012 

#5-73 

26-1269 

28-1498 

28-1530 

28-1539 

28-1564 

LR.ALl 

000002 

#5-73 

42-2301 

42-2395 

LR.BLK 

000010 

#5-73 

LR.CTL 

000004 

#5-73 

LR.DES 

000010 

#5-73 

42-2367 

42-2370 

42-2399 

LR.HLP 

000002 

#5-73 

R.LIN 

000002 

#5-73 

5-73 

5-73 

5-73 

5-73 

5-73      5-73 

LR.NAM 

000012 

#5-73 

26-1271 

26-1273 

26-1275 

27-1380 

27-1450    28-1492    28-1506 

LR.PAS 

000041 

#5-73 

42-2380 

42-2406 

LR.PRO 
LR.STS 

000002 
000000 

#5-73 
#5-73 
♦40-2151 

39-1994 
♦40-2154 

♦39-1997 
♦75-4096 

♦39-2008 
♦76-4143 

♦39-2009 

♦39-2012    40-2137   ^40-2139 

♦40-2150 

LR.TRI 

000006 

#5-73 

LR.TYP 

000002 

#5-73 

41-2197 

41-2264 

LR.UCB 

000016 

#5-73 

42-2398 

LR.UIC 

000020 

#5-73 

42-2378 

42-2402 

LR.UNT 

000005 

#5-73 

LS.ALI 

=  000016 

#5-73 

LS.CEX 

=  000001 

#5-73 

39-2008 

40-2150 

LS.CIR 

=  000033 

#5-73 

LS.CXO 

=  010000 

#5-73 

39-1994 

39-1997 

39-2008 

75-4096 

L5.CX5 

=  000400 

#5-73 

40-2137 

40-2139 

40-2150 

76-4143 

LS.ECH 

=  001000 

#5-73 

LS.FDX 

=  004000 

#5-73 

LS.HDX 

=  010000 

#5-73 

LS.HLP 

=  000012 

#5-73 

LS.LIN 

=  000003 

#5-73 

LS.LMC 

=  000007 

#5-73 

LS.LOG 

=  000020 

#5-73 

LS.MOD 

=  000036 

#5-73 

LS.NOD 

=  000014 

#5-73 

LS.NTI 

=  000013 

#5-73 

LS.OBJ 

=  000022 

#5-73 

LS.OPT 

=  000400 

#5-73 

LS.PRO 

=  000002 

#5-73 

L5.T0P 

=  002000 

#5-73 

LS.TST 

=  000010 

#5-73 

LS.UNF 

=  020000 

#5-73 

39-2009 

39-2012 

40-2151 

40-2154 

LS.XII 

=  000011 

#5-73 

LX.ALI 

=  000017 

#5-73 

LX.CEX 

=  000004 

#5-73 

LX.CIR 

=  000034 

#5-73 

LX.LIN 

=  000006 

#5-73 

LX.LOG 

=  000021 

#5-73 

LX.NOD 

=  000015 

#5-73 

LX.OBJ 

=  000023 

#5-73 

LX.PRO 

=  000005 

#5-73 

VENA      CREATED  BY  MACRO  ON  11-SEP-85  AT  12:08 
MACRO  CROSS  REFERENCE 


MACRO  NAME 


ERMSGS 


ERRPTS 


EVLDFS 
FLTDFS 
GETAD 

GETRV 


NSFOFS 
OBJDFS 
PCLDFS 
PLBDF$ 
PUTAD 


PUTRC 


RAND 


REFERENCES 

9-236 
9-256 
9-276 
9-296 
#11-396 
#5-59 
9-235 
9-255 
9-275 
9-295 
#11-396 
#5-59 
13-615 
17-802 
27-U65 
39-2057 
40-2171 
42-2363 
54-3073 
#5-61 
#5-61 
#5-60 

39-2040 
#5-59 
36-1830 
42-2390 
76-4142 
#5-60 
#5-60 
#5-61 
#5-61 
#5-60 
41-2253 
62-3616 
#5-59 
37-1891 
42-2427 
82-4348 
#11-442 
#20-919 
#22-1037 
#26-1309 
#26-1358 
#28-1518 
#29-1620 
#36-1832 
#38-1912 
#39-2003 
#40-2133 
#41-2253 
#42-2423 
#49-2774 


9-238 
9-258 
9-278 
9-298 
25-1219 
9-217 
9-237 
9-257 
9-277 
9-297 
25-1218 
#11-396 
14-646 
17-803 
27-1466 
39-2058 
40-2172 
42-2436 
57-3228 
5-79 
5-69 
20-919 
45-2593 
11-442 
36-1832 
49-2774 
77-4164 
5-77 
5-75 
5-82 
5-72 
13-608 
41-2273 
62-3638 
11-509 
38-1919 
74-4013 

11-442 

20-919 

22-1037 

26-1309 

26-1358 

28-1518 

29-1620 

36-1832 

38-1912 

39-2003 

40-2133 

41-2253 

42-2423 

49-2774 


9-240 
9-260 
9-280 
9-300 

9-219 
9-239 
9-259 
9-279 
9-299 

11-514 

14-647 

20-940 

27-1467 

39-2062 

40-2176 

42-2437 

59-3353 


20-927 

45-2599 

26-1267 

37-1870 

50-2831 

78-4179 


14-641 

42-2423 

79-4208 

26-1292 

39-1998 

74-4031 

#11-509 

#20-927 

#26-1267 

#26-1324 

#26-1360 

#28-1540 

#30-1649 

#36-1853 

#38-1919 

#39-2015 

#40-2136 

#41-2273 

#42-2427 

#50-2831 
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CRE 

04.00 

9-242 

9-244 

9-246 

9-248 

9-250 

9-252 

9-254 

9-262 

9-264 

9-266 

9-268 

9-270 

9-272 

9-274 

9-282 

9-284 

9-286 

9-288 

9-290 

9-292 

9-294 

9-302 

9-304 

9-306 

9-308 

9-310 

9-312 

9-314 

9-221 

9-223 

9-225 

9-227 

9-229 

9-231 

9-233 

9-241 

9-243 

9-245 

9-247 

9-249 

9-251 

9-253 

9-261 

9-263 

9-265 

9-267 

9-269 

9-271 

9-273 

9-281 

9-283 

9-285 

9-287 

9-289 

9-291 

9-293 

9-301 

9-303 

9-305 

9-307 

9-309 

9-311 

9-313 

11-515 

11-516 

11-517 

11-520 

11-521 

11-522 

13-614 

15-678 

15-679 

16-752 

16-753 

16-754 

16-755 

16-756 

20-941 

21-995 

21-996 

22-1048 

22-1049 

24-1154 

25-1217 

28-1591 

28-1592 

28-1593 

28-1594 

38-1925 

38-1926 

39-2056 

39-2063 

39-2064 

39-2065 

39-2069 

39-2070 

40-2092 

40-2170 

40-2177 

40-2178 

40-2179 

41-2283 

41-2284 

41-2285 

42-2313 

42-2438 

43-2469 

44-2534 

46-2664 

47-2712 

47-2713 

53-3042 

79-4210 

80-4230 

82-4356 

83-4393 

83-4396 

21-977 

21-984 

22-1031 

22-1037 

29-1620 

30-1649 

32-1713 

60-3379 

60-3384 

61-3433 

61-3438 

63-3677 

63-3682 

81-4275 

26-1290 

26-1307 

26-1324 

26-1341 

26-1358 

27-1399 

28-1573 

37-1872 

38-1912 

39-1990 

39-1993 

40-2133 

40-2136 

42-2339 

53-3020 

74-4009 

74-4025 

74-4028 

75-4094 

75-4103 

76-4139 

81-4271 

82-4321 

82-4328 

82-4333 

82-4344 

84-4415 

84-4422 

15-673 

27-1434 

28-1518 

28-1540 

28-1570 

32-1715 

39-2046 

45-2620 

59-3341 

62-3503 

62-3515 

62-3540 

62-3580 

62-3589 

80-4228 

26-1309 

26-1326 

26-1343 

26-1360 

27-1407 

28-1583 

36-1853 

39-2003 

39-2015 

39-2044 

40-2140 

40-2145 

40-2157 

42-2345 

74-4065 

75-4097 

75-4115 

75-4123 

76-4144 

78-4188 

82-4346 

11-509 

#13-608 

13-608 

#14-641 

14-641 

#15-673 

15-673 

20-927 

#21-977 

21-977 

#21-984 

21-984 

#22-1031 

22-1031 

26-1267 

#26-1290 

26-1290 

#26-1292 

26-1292 

#26-1307 

26-1307 

26-1324 

#26-1326 

26-1326 

#26-1341 

26-1341 

#26-1343 

26-1343 

26-1360 

#27-1399 

27-1399 

#27-1407 

27-1407 

#27-1434 

27-1434 

28-1540 

#28-1570 

28-1570 

#28-1573 

28-1573 

#28-1583 

28-1583 

30-1649 

#32-1713 

32-1713 

#32-1715 

32-1715 

#36-1830 

36-1830 

36-1853 

#37-1870 

37-1870 

#37-1872 

37-1872 

#37-1891 

37-1891 

38-1919 

#39-1990 

39-1990 

#39-1993 

39-1993 

#39-1998 

39-1998 

39-2015 

#39-2040 

39-2040 

#39-2044 

39-2044 

#39-2046 

39-2046 

40-2136 

#40-2140 

40-2140 

#40-2145 

40-2145 

#40-2157 

40-2157 

41-2273 

#42-2339 

42-2339 

#42-2345 

42-2345 

#42-2390 

42-2390 

42-2427 

#45-2593 

45-2593 

#45-2599 

45-2599 

#45-2620 

45-2620 

50-2831 

#53-3020 

53-3020 

#59-3341 

59-3541 

#60-3379 

60-3379 

VEX2  -  VNP  EXPANSION  ROUTINES   MACRO 


111  000340 

112  000342 

113  000344 

114  000346 

115  000350 

116  000352 

117  000354 

118  000356 

119  000360 

120  000362 

121  000364 

122  000366 

123  000370 

124  000372 

125  000374 

126  000376 

127  000400 

128  000402 

129  000404 

130  000406 

131  000410 

132  000412 

133  000414 

134  000416 

135  000420 

136  000422 

137  000424 

138  000426 

139  000430 
KO  000432 

141  000434 

142  000436 

143  000440 

144  000442 

145  000444 
146 

147 

148 

149  000446 

150 

151 

152 

153 

154  000450 

155 

156  000000 


5.03b 

Saturday 

29-Jun-85  02:27 

TTASS 

MXTAB,P0P1 

TTABS 

NOD, NULL 

TTAB$ 

PfiI,NULL 

TTABS 

PRTOV.POPI 

TTABS 

SCOH.XSCOM 

TTABS 

SECSR,NULL 

TTABS 

SLNB.NULL 

TTABS 

SLNW.NULL 

TTABS 

STNB.NULl 

TTABS 

STNW.NULL 

TTABS 

UNB.NULL 

TTABS 

UNW.NULL 

TTABS 

W0RD,P0P2 

TTABS 

APR.POPI 

TTABS 

DPRB.POPI 

TTABS 

DPRW,P0P2 

TTABS 

TIME,P0P2 

TTABS 

MXPTB.XMXPTB 

TTABS 

PECHA.NULL 

TTABS 

X3CH01,NULL 

TTABS 

X3CH02,NULL 

TTABS 

X3CH03,NULL 

TTABS 

X3CH04,NULL 

TTABS 

X3CH05,NULL 

TTABS 

X3CH06,NULL 

TTABS 

X3CH07,NULL 

TTABS 

X3CH08,NULL 

TTABS 

X3CH09,NULL 

TTABS 

X3CH10,NULL 

TTABS 

X3CH11,NULL 

TTABS 

X2CH01,NULL 

TTABS 

X2CH02,NULL 

TTABS 

X2CH03,NULL 

TTABS 

X2CH04,NULL 

TTABS 

X2CH05,NULL 

■  SECONDARY  FILE  INDEX  VALUE 

INDEX 

.BLKW 

1 

;  MUX/MTP  FLAG! 

FLAGS 

.BLKW 
.PSECT 

1 

Page  5-1 


100000=MUX,  200=MTP 
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687 
688 
689 
690 
691 
692 
693 
69A 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708  001752 


100$: 


MOV 
BIC 
BIC 

SWAB 

ASR 

ASR 

ASR 

ASL 

MOV 

ADD 

SUTCH] 

GETRV 

SWTCHO 

MOV 
PUTAD 
SWTCHO 
.ENDC 

RETURN 


R5,R2 
#7?77, R2 
R2,R5 

R2 
R2 
R2 
R2 
R5 

R5,$ICBAD 
.K6TAB,R2 

R2,#2 
#IC8LK 

$BFR,$RBLCK 
$ICBAD,$ICBSZ 


COPY  KB  ADDRESS/2  WITH  CPU  NUMBER 
GET  CPU  NUMBER 
CLEAR  CPU  BITS 


GET  ACTUAL  ICB  ADDRESS 

COPY  ICB  ADDRESS 

GET  ADDRESS  OF  THIS  CPU  PARTITION  BIAS 

SET  INPUT  BUFFER 

READ  BIAS 

SET  UP  BUFFER  ADDRESS 

STORE  BIAS  FOR  ICB  WRITE 

WRITE  ICB  TO  IMAGE 

SET  OUTPUT  BUFFER  TO  DEFAULT 


CMPOn 
[MPOn 
[MP01] 

[HP01J 

CHPon 

CMP01] 
CMPOl] 

mpoi] 
CMPon 

CMPOl] 
CMPOl] 
CMPOl] 
CMPOl] 

CMPOl] 
CMPOl] 
CMPOl] 
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VEX3  -  VNP  EXPANSION  ROUTINES  C  MACRO  V05.03b  Saturday  29-Jun-85  02:27 
Table  ot  contents 

5-  56    MACRO  DEFINITIONS 

6-  133    $VEX3  -  TEMPLATE  EXPANSION  CLEANUP 

7-  160    CLEANUP  ROUTINES 


VEX5  -  VNP  UPDATE  LINE  TABLES 
Table  ' •  contents 
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MACRO  V05.O3b  Saturday  29-Jun-85  02:28 


5-  56  MACRO  DEFINITIONS 

6-  157  $VEX5  -  TEMPLATE  EXPANSION 

7-  200  EXPANSION  ROUTINES 

11-  676  X3CH 

12-  73A  X2CH 


n 


VEX5   -   VNP  UPDATE    LINE    TABLES 
EXPANSION  ROUTINES 


611 
612 
613 
6U 
615 
616 
617 
618 
619 
620 
621 
622 

623  0OK60 

624  00U60 

625  001A6A 

626  001470 

627  00U76 

628  001502 

629  001506 

630  001 514 
631 

632  001516 

633  001522 

634  001524 

635  001526 

636  001532 

637  001534 

638  001536 

639  001540 

640  001542 

641  001544 
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FLT16  -  FIND  A  16  BIT  ALLOCATION  LINE  TABLE 

INPUTS: 

R3=LINE  TABLE  ADDRESS 
R4=PDV  INDEX  OF  PROCESS 

OUTPUTS: 

RO,R1,R2,R3=DESTROYED 
U8IAS,UBA=UNL0AD  BLOCK  ADDRESS 
BLOCK=L0CAL  COPY  OF  UNLOAD  BLOCK 


005067  000160' 

012702  000164' 

012767  000100  OOOOOOG 

005077  OOOOOOG 

016777  OOOOOOC  OOOOOOG 

001463 


FLT16: 
FLT: 


005722 

005722 

126204  177776 

001013 

022203 

001440 

101011 

011246 

042716  000003 


10$: 
20$: 


642  001550 

066216 

177776 

643  001554 

022603 

644  001556 

101030 

645  001560 

000401 

646  001562 

005722 

30$: 

647  001564 

032722 

000001 

40$: 

648  001570 

001410 

649  001572 

005046 

650  001574 

152216 

651  001576 

005046 

652  001600 

152216 

653  001602 

062616 

654  001604 

006316 

655  001606 

006316 

656  001610 

062602 

657  001612 

022702 

000264' 

50$: 

658  001616 

001402 

659  001620 

005712 

660  001622 

001340 

661  001624 

o62 

663  001630 

012702 

000164' 

60$: 

011277 

OOOOOOG 

' 

664  001654 

001330 

665  001636 

000412 

666 

667  001640 

005742 

80$: 

CLR 

MOV 

MOV 

SWTCHI 

CLR 

MOV 

BEO 

GETAD 

TST 

TST 

CMPB 

BNE 

CMP 

BEQ 

BHI 

MOV 

BIC 

ADD 

CMP 

BHI 

BR 

TST 

BIT 

BEQ 

CLR 

BIS8 

CLR 

BISS 

ADD 

ASL 

ASL 

ADD 

CMP 

BEQ 

TST 

BNE 

MOl' 

CLR 

MOV 

BNE 

BR 

TST 


UBA  ;  INDICATE  NO  UNLOAD  BLOCK  FOUND  YET 

#BL0CK,R2  ;  USE  R2  AS  BASE  REGISTER 

#64.,$RS1ZE  ;  SIZE  OF  UNLOAD  BLOCK  IN  BYTES 

R2  ;  USE  BLOCK  AS  INPUT  BUFFER 

a$ADRZ  ;  SET  UP  ADDRESS 
.CXUNLt$NTLHB,a$ADRX  ;  OF  UNLOAD  BLOCK 

100$  ;  NO  UNLOAD  BLOCKS 

READ  IN  IMAGE  OF  UNLOAD  BLOCK 

SKIP  POINTER  TO  NEXT  UNLOAD  BLOCK 

POINT  PAST  PDV  INDEX 

IS  THIS  THE  RIGHT  PDV  ? 

IF  NE,  NO 

IS  THIS  OUR  LINE  TABLE? 

IF  EQ,  YES 

IF  HI,  NO 

EXTRACT  SIZE  FIELD 


(R2)  + 

(R2)  + 

-2(R2),R4 

30$ 

(R2)+,R3 

80$ 

40$ 

(fi2),-(SP) 

#3,(SP) 

-2(fi2),(SP) 

(SP)+,R3 

80$ 

40$ 

(R2)  + 

#1,(R2)+ 

50$ 

-(SP) 

(R2)+,(SP) 

-(SP) 

(R2;+,(SP) 

(SP)t,(SP) 

(SP) 

(SP) 

(SP)+,R2 

#BL0CKt64.,R2 

60$ 

(R2) 

20$ 

*BL0CK,R2 

a$ADRZ 

(R2),a$ADRX 

10$ 

100$ 

-(R2) 


ADD  TABLE  ENTRY 

IS  THIS  OUR  LINE  TABLE? 

IF  HI,  YES 

ELSE,  SKIP  ANY  SUB-ALLOCATIONS 

SKIP  THE  LINE  TABLE  ADDRESS 

ANY  SUB-ALLOCATIONS  THIS  ENTRY? 

IF  EQ,  NO 

GET  NUMBER  OF  ALLOCATIONS 

AND  NUMBER  OF  LIBRARIES 

ADD  them' TOGETHER 
MULTIPLY  BY  4 

GIVING'nEXT  TABLE  ENTRY 

IS  IT  PHYSICAL  END  OF  BLOCK? 

IF  EQ,  YES 

IS    IT   LOGICAL   END  OF    BLOCK? 

IF    NE,   NO  -   CHECK  NEXT   ENTRY 

RESET  R2   TO   START   OF    BLOCK 

SET   NEW  ADDRESS;    ^HIS   CAUSES  BUG; 

SET   NEW  ADDRESS 

READ    IN  BLOCK 

DONE 

RESET   R2    TO   FIRST   WORD   OF    EMRv 
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LOCAL  SYMBOL  DEFINITIONS 
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79 

80 

81 

82 

85 

8A 

000040 

85 

OOOOAO 

86 

001000 

87 

000020 

88 

89 

90 

91 

92 

000002 

93 

000004 

9'!, 

000006 

95 

000010 

96 

000012 

97 

OOOOK 

.S8TTL  LOCAL  SYMBOL  DEFINITIONS 
LOCAL  SYMBOL  DEFINITIONS 


SPACE  =  40 
HSHMN  =  32. 
HSHMX  =  512. 
NUMDTE  =16. 


ASCII  SPACE 

MINIMUM  VALUE  FOR  HASH  TABLE  SIZE 
MAXIMUM  VALUE  FOR  HASH  TABLE  SIZE 
MAXIMUM  DTES  ALLOWED 


SAVED  REGISTER  OFFSETS  ON  STACK  FOR  SSAVAL 


R$RO 
R$R1 
R$R2 
R$R3 
R$R4 
R$R5 


2 

4 

6 

10 

12 

14 


SAVED  RO 

SAVED  R1 

SAVED  R2 

SAVED  R3 

SAVED  R4 

SAVED  R5 
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VFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:28  Page  19 
STRNXT  -  STORE  NEXT  DIGIT 


455 
456 
457 
A58 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 

470  000706 

471  000714 

472  000720 

473  000726 

474  000730 

475  000734 

476  000740 

477  000744 

478  000750 

479  000754 


116767 
012701 
126727 
001404 
012700 

110177 
005267 
105267 


OOOOOOG  000036' 
000017 
OOOOOOG  000052 

000036' 

000040' 
000040' 
000035' 


.SBTTL   STRNXT  -  STORE  NEXT  DIGIT 


STRNXT  -  STORE  NEXT  DIGIT 

INPUTS: 

.PCHAR  -  MATCHED  CHARACTER  FROM  TPARS  TRANSITION 
NEXT  -  ADDRESS  OF  NEXT  BVTE  AVAILABLE  FOR  STORAGE 

OUTPUTS: 

NEXT  -  ADDRESS  OF  NEXT  AVAILABLE  BYTE 
COUNT  -  UPDATED 
R0,R1  DESTROYED 


STRNXT: 


10$: 


M0V8 

.PCHAR, CVTBUF 

MOV 

#17, R1 

CMP8 

. PCHAR, #'♦ 

BEQ 

10$ 

MOV 

*CVT8UF,R0 

CALL 

$CDT6 

MOVB 

R1,aNEXT 

INC 

NEXT 

INCB 

COUNT 

MOVE  DIGIT  TO  CONVERTSION  BUFFER 

ASSUME  CHAR  IS  AN  '*' 

IS  CHAR  AN  '*'  ? 

BR  IF  YES 

POINT  TO  CONVERSION  BUFFER 

CONVERT  TO  BINARY 

STORE  BINARY  DIGIT 

POINT  TO  NEXT  AVAILABLE  BYTE 

INCREMENT  DIGIT  COUNT 


RETURN 
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LOCAL  SYMBOL  DEFINITIONS 
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99 

100 

101 

102 

10? 

io; 

000040 

105 

000006 

106 

000020 

107 

108 

109 

110 

111 

000002 

112 

000004 

113 

000006 

1U 

000010 

115 

000012 

116 

OOOOU 

.SBTTL   LOCAL  SYMBOL  DEFINITIONS 


LOCAL  SYMBOL  DEFINITIONS 


SPACE 
PVNAMX 
MAX  ID 

:  40 
=  6 

=  16 

REGISTER  0 

R$R0  = 
R$R1  = 
R$R2  = 
R$R3  = 
R$R4  = 
R$R5  = 

2 

4 

6 

10 

12 

14 

;  ASCII  SPACE 

;  Maximum  length  of  circuit  id  Cold  format] 

;  Max  length  of  net.  mgmt.  'id-string' 


;CTD00i: 
;[TD00i: 


SAVED  REGISTER  OFFSEIS  ON  STACK  FOR  SSAVAL 

SAVED  RO 
SAVED  Rl 
SAVED  R2 
SAVED  R3 
SAVED  R4 
SAVED  R5 


VFGPVr  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Satu  day  29-Jun-85  02:29 
BIASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 
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615 
6U 
615 
616 
617 
618 
619 
620 
621 
622 
625 
624 
625 
626 
627 
628 
629 
650 
651 


.SBTTL  BIASX  -  BIAS  XPOOL  APDRESS  FOR  APR6 

y 
BIASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

INPUTS: 

RO  =  ADDRESS  (POOL  OR  APRS) 

OUTPUTS: 

RO  =  ADDRESS  (POOL  OR  APR6) 


00H66 

0OU66  020027      120000 

00U72  10540'; 

001A74  04270J  160000 

001500  052700  UOOOO 

001 50A 


BIASX: 


10$: 


CMP 
BLO 
BIC 
BIS 

RETURN 


RO, #120000 
lOi 

*160000,R0 
#140000, RO 


POOL  ADDRESS? 
YES,  LEAVE  AS  IS 
CLEAR  APR  BITS 
BIAS  FOR  APR6 
RETURN 
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VFGPVC            CREATED  BY     MACRO     ON  ?9-JUN-85  AT   0?:30  PAGE   7 

MACRO  CROSS  REFERENCE  CREf       04.00 
MACRO  NAME             REFERENCES 

CALL                        *9-?97             11-506  12-350  12-362  12-378          13-409           13-411           13-413           13-414           14-442 

'•*'■'■                            U-446             4-451  14-452  14-454  14-456           14-457           14-463           14-470           15-494             5-497 

5-498           15-501  16-536  16-541  16-547           16-564           17-586           17-587           17-598           17-609 

19-647           19-652  20-731  20-736  20-749 

CEACCS                     *5-60                15-498  16-536  17-586 

DBGTpI                    #?0-212  #10-240  *10-244  #10-248         #10-252         #10-256         #10-260         #10-264         #10-268         #10-272 
#10-276 

EMSGSR                    #5-59               9-206  11-316  11-332  11-344           12-35?           12-369           12-384           12-398           13-421 

GETAD                        #5-59''              14-452  14-463  15-501  16-541            17-587           ^7-598           20-736 

GETRV                       #5-59                14-446  15-494  15-497  20-731 
ISTATS                     #5-60                10-212 
MAP                            #5-88                20-732 

NTLERS                     #5-60^^           8-165  8-166  8-167  8-168             8-169             8-170             8-171              8-172 
PHBDF$                    #5-60               5-68 

PUTAD                       #5-59                14-454  14-470  16-564  17-609           20-749 

rand''*                     #U-446            14-446  #14-452  14-452         #14-454  14-454         #14-463           14-463         #14-470           14-470 

#5-494            15-494  #15-497  15-497         #15-501  15-501          #16-541            16-541          #16-5§^           l^l§^ 

#17-587  17-587  #17-598  17-598  #17-609  17-609  #20-731  20-731  #20-736  20-736 
#20-749           20-749 

RE5MAP                    #5-82               13-416  14-455  15-515  17-610          20-750 

Dccar,  #5-59  15-516 

RETURN                      9-201             11-312  11-328  11-340  12-353           12-365           12-380           12-394           13-417           14-471 

15-517           16-565  17-611  18-631  19-656           19-676           19-684           20-751 

SAVMAP                     #5-78                13-410  14-447  15-491  17-585           20-730 

SAVRG  #5-59  15-490 

SLTDFS  #5-61  5-70 

STATES                    #5-60^^           fo-217  #10-220  #10-223        #10-226        #10-229         #10-232         #10-235         #10-238         #10-242 

#10-246  #10-250  #10-254  #10-258         #10-262         #10-266         #10-270         #10-274         #10-280         #10-283 

#10-286  #10-289  #10-292  #10-295 

TRANS                      #5-60  #10-218  #10-221  #10-224         #10-227        #10-230        #10-233         #10-236         #10-239         #10-240 

#10-243  #10-244  #10-247  #10-248        #10-251         #10-252         #10-255         #10-256         #10-259        #10-260 

#10-263  #10-264  #10-267  #10-268         #10-271         #10-272         #10-275         #10-276         #10-281         #10-284 

#10-287  #10-290  #10-293 

XCBDFS  #5-59  5-71 

XPDD8S  #5-61  5-67 
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SVCIDF    ACTION  ROUTINES 
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416 
417 
418 
419  000550 

•  OWNER 

022767 

000003 

OOOOOOG  SVOWNR: 

CMP 

#3,.PSTCN 

420  000556 

001402 

BED 

5$ 

421  000560 

000167 

000406 

JMP 

101$ 

422  000564 

016700 

OOOOOOG 

5$: 

MOV 

.PSTPT.RO 

423  000570 

005001 

CLR 

R1 

424  000572 

CALL 

$CAT5 

425  000576 

020127 

114224 

CMP 

R1,#»RXPT 
10l$ 

426  000602 

001173 

BNE 

427  000604 

CALL 

FNDOUN 

428  000610 

103570 

BCS 

101$ 

429  000612 

016767 

OOOOOOG 

000016' 

MOV 

$SLTA,SLTA 

430  000620 

016700 

000014' 

MOV 

STASVCRO 

431  000624 

006300 

ASL 

RO 

432  000626 

016067 

OOOOOOG 

000002' 

MOV 

$$HTiM(RO),HTlMR 

433  000634 

016067 

OOOOOOG 

000004' 

MOV 

$$LTIM(RO),LTIMR 

434  000642 

016700 

OOOOOOG 

MOV 

$PSIPT,RO 

435  000646 

436 

437  000650 

001554 

BEO 

102$ 

CALL 

$SAVAL 

438  000654 

010004 

MOV 

R0,R4 
#S$LEN,R1 

439  000656 

012701 

000032 

MOV 

440  000662 

CALL 

$ALPOL 

441  000666 

442 

443  000670 

103547 

BCS 

103$ 

10$: 

SAVMAP 

444  000674 

010005 

MOV 

R0,ft5 

445  000676 

CEACC$ 

.?0 

446  000706 

010046 

MOV 

R0,-(SP) 

447  000710 

016746 

OOOOOOG 

MOV 

$R8LCK,-(SP) 

448  000714 

012702 

OOOOOOG 

MOV 

#$BFR,R2 

449  000720 

105022 

15$: 

CLR8 

(R2)t 

450  000722 

005301 

DEC 

R1 

451  000724 

003375 

BGT 

15$ 

452  000726 

116767 

000021' 

000002G 

wove 

CTLSVC,S$CTL+$8FR 

453  000734 

116767 

000014' 

000003G 

MOVB 

STASVC,S$STA+$BFR 

454  000742 

016767 

000006' 

000004G 

MOV 

PKTSVC,S$PKSZt$BFR 

455  000750 

016767 

000010' 

OOOOIOG 

MOV 

FLGSVC,S$FLG+$BFR 

456  000756 

116767 

000023' 

00001 3G 

Move 

RCLSVC,S$RCL+$BFR 

457  000764 

016767 

000012' 

000014G 

MOV 

RTMSVC,S$T1M+$BFR 

458  000772 

016767 

000012' 

00001 6G 

MOV 

RTMSVC,S$TMR+$BFR 

459  001000 

116767 

000022' 

000006G 

MOVB 

WNDSVC,S$WND+$BFR 

460  001006 

116767 

000024' 

000007G 

MOVB 

COUNT, S$ADSZ+$BFR 

461  001014 

012702 

000010 

MOV 

#<DTELEN+1>/2,R2 

462  001020 

012701 

000020G 

MOV 

#$BFRtS$DTE,R1 

463  001024 

012703 

000044' 

MOV 

#DTEPCIC,R3 

464  001030 

112321 

17$: 

MOVB 

(R3)t,(Rl)t 

465  001032 

005302 

DEC 

R2 

466  001034 

003375 

BGT 

17$ 

467  001036 

116767 

000020' 

000030G 

MOVB 

0WNSVC,S$0WNR+$8FR 

468  001044 

PUTAD 

RO,#S$LEN 
#H$SVr,R4 

469  001062 

062704 

000036 

ADD 

470  001066 

GETRV 

R4,#2 

471  001104 

010401 

20$: 

MOV 

R4,R1 

47?  001106 

016704 

OOOOOOG 

MOV 

$BFR,R4 

VALID  OWNER? 
BR  IF  YES 
BR  IF  NO 
POINT  TO  OWNER 

CONVERT  TO  RAD50 

IS  OWNER  XPT? 

BR  IF  NO  -  ERROR 

LOOK  FOR  XPT 

BR  IF  XPT  NOT  FOUND 

MAKE  LOCAL  COPY  OF  $SLTA 

GET  STATION  NUMBER 

MAKE  IT  A  WORD  INDEX 

STORE  HELLO  TIMER 

STORE  LISTEN  TIMER 

GET  PSI  HOME  BLOCK  ADDRESS 

NO  PSI  HOME  BLOCK???? 

SAVE  ALL  REGISTERS 

SAVE  PSI  HOME  BLOCK  ADDRESS 

GET  LENGTH  OF  SVC  DESCRIPTOR  BLOCK 

ALLOCATE  SVC  DESCRIPTOR  BLOCK 

BR  IF  UNSUCCESSFUL 

SAVE  CURRENT  MAPPING 

SAVE  CURRENT  MAPPING 

CONVERT  TO  MAPPED  ADDRESS 

SAVE  VIRTUAL  ADDRESS  OF  BLOCK 

AND  APR  BIAS  (FOR  PLB  STORAGE) 

POINT  TO  SVC  DESCRIPTOR 

INITIALIZE  BLOCK 

MORE  TO  INITIALIZE? 

BR  IF  YES 

STORE  CONTROLLER  NUMBER 

STORE  STATION  NUMBER 

STORE  PACKET  SIZE 

STORE  FLAGS  BYTE 

STORE  RECALL  TIMER 

STORE  RECALL  TIMER  (COUNTDOWN) 

STORE  RECALL  TIMER  (INITIAL  VALUE) 

STORE  WINDOW  SIZE 

STORE  SIZE  OF  DTE  ADDRESS  (DIGITS) 

GET  NUMBER  OF  BYTES  IN  DTE  ADDRESS 

POINT  TO  DTE  ADDRESS 

GET  DTE  ADDRESS 

STORE  DTE  ADDRESS 

MORE  TO  STORE? 

BR  IF  YES 

STORE  OWNER 

WRITE  SVC  TO  SYSTEM  IMAGE  FILE 

POINT  TO  SVC  LISTHEAD 

READ  IN  LISTHEAD 

SAVE  ADDRESS  OF  PREVIOUS  BLOCK 

GET  ADDRESS  OF  NEXT  BLOCK  IN  LIST 


VE^H  -  V 

SETEV-f   - 

3711 

3712 
37' 5 
37U 
3715 
3716 
3717 
371 8 
37-9 
37?C 
3721 
372? 
3723 
372^ 
3725 
572ft 
5,77 
3728 
3729 
3^30 
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SET    THE   EVENT    riLTER   MASKS 

.SBTTL      SETEVT   -   SET    THE   EVENT    FILTER  MASKS 


SETEVT   -   SET   THE   EVENT   FILTER  MASKS 

INPUTS: 

R3  -  ADDRESS  OF  EVENT  FILTC"  MASKS  TO  BE  SET 

R5  -  ADDRESS  OF  EVENT  FILItK  MASKS  TO  OPERATE  ON 

OUPUTS: 

R3,R5   DtSTROVED 


C17322  052325 

C17324  052325 

(17326  052325 

017330  052325 
017332 


SETEVT: 


BIS 
BIS 
BIS 
BIS 
RETURN 


(R3)+,(R5)t 
(R3)+,(R5)t 
(R3)t,(R5)'- 
(R3)+,(R5)t 


SET  THE  SPECIFIED  EVENT  MASKS 


n   1 
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X5DSMT   -  DISMOUNT    THE   X25ACP 


4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4155 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 


.SBTTL     X5DSMT   -  DISMOUNT   THE  X25ACP 

*♦•  -  X5DSMT  -  DISMOUNT   THE   X25ACP 

INPUTS: 

R5  =  NTINIT'S  TCB  ADDRESS 

OUTPUTS: 

NONE. 


020536 
020536 
020554 
020560 
020562 
020602 
020610 
020614 


X5DSMT: 


016700  00001 2G 
001415 

042767  000400  000006G 


10$: 


GETRV 

MOV 

BEQ 

GETRV 

BIC 

PUTRC 

RETURN 


R5,.TLGTH 

T.RCVL+$BFR,R0 

10$ 

T.RCVL*-$BFR,*36. 

#LS.CX5,LR.STS+6+$8FR 


READ  IN  NTINIT'S  TCB 

POINT  AT  THE  SEND  DATA  PACKET 

IF  EQ,  ACP  NOT  MOUNTED 

READ  IN  PACKET 

ELSE  CLEAR  SET  X25-S  STATE  ON 

REWRITE  PACKET 


N  2 


L  3 
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Symbol  table 


L.NSTA= 

*«««».  GX 

NF.EVT= 

000002 

N$$euF= 

000001 

0P$0UT= 

29^598 

PR$LCC= 

000010 

.OWNR= 

******  GX 

NF.LLI= 

000004 

N$$LDV= 

000001 

0P$0WN= 

000020 

PR$MOP= 

000004 

.PAIC 

000017 

NF.LV2= 

000100 

N$$MCP= 

000001 

OP$PAR= 

000010 

PRSUP  = 

000001 

L.PAIR 

000016 

NF.SL1= 

000400 

N$$MLL= 

000001 

OP$PRI= 

000010 

PSSCHR:- 

000016 

L.PLD 

000047 

NF.SMC= 

000020 

N$$MOV= 

000010 

OP$RET= 

010000 

PS$FAI= 

000014 

L.PLL 

000012 

NF.SWP= 

000010 

N$$NCT= 

000001 

OP$RPA= 

000010 

PS$NTI= 

000006 

L.SCFW 

000056 

NT  I  NAM 

00001CR 

002  N$$PEM= 

000001 

0P$SC0= 

000001 

PS$OFF= 

999999 

L.STA 

000063 

NTI11S 

000014R 

002  OF$INS= 

000001 

0P$SEG= 

000400 

PS$STR= 

000002 

L.STBL 

000070 

N$ACQ 

000000 

0F$L0G= 

000100 

0P$SER= 

000400 

PSSUP  = 

000012 

L.STRC 

000050 

NSACTL 

000032 

0F$0FF= 

000002 

0P$S1N= 

000010 

PS$VER= 

000010 

L.STRM 

000051 

NSADJI 

000072 

OF SON  = 

000000 

OP$STA= 

000004 

PSSWT  = 

000004 

L.STS 

000002 

N$ADJ2 

000074 

OF$SMC= 

000200 

OP$TER= 

000001 

PT$BRO= 

000200 

L.ST2 

000003 

NSCACH 

000062 

0F.PR0= 

000040 

0P$TPA= 

000020 

PT$DRT= 

000100 

L.TBP 

000004 

NSCIR 

000034 

OF.RLU= 

000100 

0P$TRI= 

000040 

PT$END= 

000004 

L.TIMC 

000060 

N$CRC 

000120 

0F.SMC= 

000200 

OP$UCS= 

000020 

PT$LV1= 

000002 

L.TIMl 

000001 

NSDLA 

000020 

0PT1 

003656R 

OP$USE= 

000002 

PT$LV2= 

000001 

L.TIMR 

000000 

N$DLY 

000014 

OP$ADD= 

000200 

OP$VEC= 

000040 

PT$PH3= 

000010 

L.TOR 

000064 

NSELEN 

000054 

OP$ALL= 

000200 

OP$VER= 

000040 

PT$XAR= 

000020 

L.XSET 

000020 

NSENC 

000042 

OP$CCS= 

000004 

OP$XAC= 

000001 

PVALID 

000240R 

MONNAM 

0001 54R 

002  NSERRC 

000022 

OP$CIE= 

004000 

OP$XPR= 

000002 

PX$BLK= 

000040 

MOVE 

011720R 

N$FLG 

000005 

OP$CON= 

000400 

0P$X5S= 

000004 

PX$DLM= 

000200 

MO$SAC= 

000016 

NSFNC 

000006 

OP$COP= 

000001 

0P$X9S= 

000010 

PX$SVC= 

000100 

MO$SPR= 

000012 

NSGENO 

000052 

OP$COS= 

000100 

O.FLG 

000003 

PSCHN 

000004 

MO$SSV= 

000014 

NSGTM 

000015 

OP$C>ST= 

000200 

O.LEN 

000012 

PSCNT 

000005 

i'0$25A= 

000006 

NSHCI 

000052 

OP$DTE= 

000040 

O.LNK 

000000 

PSCTR 

000034 

MO$25P= 

000002 

N$HC2 

000056 

OP$DUP= 

000002 

O.MXC 

000004 

PSDRCT 

000015 

MO$25S= 

000004 

NSHIGH 

000033 

OP$EST= 

000100 

O.NAM 

000006 

PSDRTR 

000036 

M0$29S= 

000010 

NSLLT 

000026 

OP$EVE= 

010000 

O.TYP 

000002 

PSFLG 

000012 

MXCON  = 

000006 

NSLLTM 

000024 

OP$FIL= 

000200 

PDVX 

000072R 

002  PSFWD 

000030 

MXFIL  = 

000050 

NSLVC 

000036 

OP$GRP= 

000100 

PF$BLK= 

020000 

PSICCB 

000046 

MXf ILN= 

000003 

NSLVl 

000002 

OP$HOS= 

000001 

PF$CLC= 

010000 

PSIPL 

000014 

MXMON  = 

000006 

N$LV2 

000010 

OP$HTM:= 

000002 

PF$DLM= 

100000 

PSLCD 

000002 

MXUNT  = 

000377 

NSMBXQ 

000050 

OP$INA= 

004000 

PF$EIP= 

000002 

PSLEN 

000052 

MXVER  = 

077777 

NSHHCI 

000036 

OP$INC= 

001000 

PF$EN8= 

090991 

PSLST 

000000 

M$HIGH= 

000003 

N$MHC2 

000044 

OP$INI= 

000000 

PFSFA  = 

004000 

PSNRNI 

000040 

M$$CRB= 

000124 

N$PLD 

000016 

OP$KDS= 

002000 

PF$FM  = 

000100 

PSOCCB 

000050 

M$$CRX= 

000000 

N$PLLT 

000030 

OP$KDT= 

000400 

PF$FH2= 

000200 

PSPFQ 

000006 

M$$fCS= 

000000 

NSPRI 

000076 

OP$KEV= 

001000 

PF$OFF= 

000000 

PSPKSZ 

000044 

M$$MGE= 

000000 

N$R0A1 

000022 

OP$KGR= 

001000 

PF$RM1= 

000020 

PSRMXI 

000016 

M$$NET= 

000000 

N$R0A2 

000030 

OP$KNT= 

010000 

PF$RM2= 

000040 

P$RMX2 

000020 

M$$OVR= 

onoooo 

NSRTMX 

000014 

OP$KSK= 

002000 

PF$RVR= 

000010 

PSRPRI 

000042 

M$3100i 

C  '  ''00 

N$RTM1 

000014 

OP$LCT= 

000200 

PF$STA= 

000004 

PSRTIM 

000003 

M$3101= 

Oi   1 

N$RTM2 

000015 

OP$LNE= 

000040 

PF$SVC= 

040000 

PSSTAl 

000022 

M$3102= 

ool  ;? 

NSRTI 

000000 

OPSLOC^ 

000001 

PFSUP  = 

000004 

P$STA2 

000023 

M$3103= 

000003 

N$RT2 

000006 

OP$LST= 

000002 

PH$HDE= 

000004 

PSTIM 

000010 

Nf$ACC= 

100000 

N$SLA 

000016 

OP$Lm= 

000001 

PH$LOC= 

000002 

PSTSCT 

000026 

NF$BLK= 

000100 

NSSNOD 

000012 

OP$LVL= 

000010 

PH$MTS= 

000003 

PSTSIZ 

000024 

NF$DMO= 

000010 

NSTCTL 

000112 

OPSMAC^ 

000010 

PH$UMP= 

000000 

PSTYP 

000001 

NFSFVT= 

040000 

N$TIM 

000004 

OP$MCO= 

000002 

PH$UCS= 

000001 

P$$P45= 

000000 

NF$MOU= 

000040 

N$TLC 

000100 

OP$MDE=: 

000400 

PLBFLG 

000122R 

002  P$$WRD= 

000000 

NF$RST= 

000002 

N$TNC 

000114 

OP$MLI= 

000004 

PROEVT 

012422R 

P. ACT" 

000012 

NF$5CN= 

000020 

NSTRC 

000106 

OP$MON= 

000100 

PRVUNM 

000166R 

002  P.CFN'. 

000034 

NF$SHU= 

000004 

NSTTCB 

000110 

OP$MSl-= 

000020 

PR$BED= 

000200 

P. CHAR 

000042 

Nf$TIM= 

000200 

N$VCB 

000010 

OP$NAM= 

000004 

PR$BEU= 

000100 

P.CONT 

000067 

NF.ACC= 

000001 

N$VER 

000066 

OP$NET= 

004000 

PR$BRD= 

000040 

P.DEDT 

000100 

NF.BrP= 

000040 

NSXLEN 

000124 

OP$NLI= 

000002 

PR$BRU= 

000020 

P.DELT 

000076 

NF.END= 

000200 

N$$ACC= 

000001 

OP$NOD= 

000020 

PR$[)UN= 

000002 

P.DISL 

000006 

002 
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SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 

L.COST  =  *»*«♦*  GX 

L.DLC  =  *♦**»*  GX 

L.DLM  =  ******  GX 

L.DLS  =  *♦»*♦*  GX 

L.FLG  =  ***»*♦  GX 


L.MPF 

L.NMST 

L.NSTA 

L.OUNR 

L.PLD 

L.PLL 

MONNAM 

HOVE 

MOSSAC 

MOSSPR 

MOSSSV 

HO$25A 

MO$25P 

MO$25S 

M0$29S 

MXCON 

MXFIL 

MXFILN 

MXMON 

MXUNT 

MXVER 

HSHIGH 

M$$MGE 

M$3100 

M$3101 

M$3102 

H$3103 

NFSACC 

NFSMOU 

NF.ACC 

NTINAM 

NTI11S 

NSELEN 

NtFLG 

NSPLD 

N$TLC 

N$VER 

N$XLEN 

NSSVCT 

OPSINS 
OF$LOG 
OF$OFF 


=  *.«»♦*  GX 
=  ♦»****  GX 
=  »«*♦»*  GX 

~   ******  GX 

000047 

000012 

000154  R 

011720  R 
=  000016 
=  000012 
=  OOOOK 
=  000006 
=  000002 
=  000004 
=  000010 
=  000006 
=  000050 
=  000003 
=  000006 
=  000377 
=  077777 
=  000003 
=  000000 
=  000000 
=  000001 
=  000002 
=  000003 
=  100000 
=  000040 
=  000001 

000010  R 

000014  R 

000054 

000005 

000016 

000100 

000066 

000124 

-   **<■*♦♦ 

-  000001 
=  000100 
=  000002 


REFERENCES 

*17-783 
20-907 
20-918 
20-912 
11-451 
15-666 
22-1017 
81-4252 
11-468 

*23-1068 
11-459 
24-1100 

*16-716 

*15-672 
20-919 

#6-157 
42-2373 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#8-205 

#8-207 

#8-210 

#8-206 

#8-209 

#8-208 

#5-79 
5-82 

#5-79 

#5-79 

#5-79 

#5-79 
38-1915 
11-443 
38-1913 

#6-120 

#6-121 
11-442 
11-443 

*74-4029 
81-4272 
36-1831 
36-1830 
28-1569 
61-3432 

#5-73 

#5-73 

#5-73 


21-965 
21-976 
21-970 
11-454 
16-704 
*23-1067 

12-555 
♦24-1106 
11-482 
24-1129 
81-4254 

20-923 

48-2729 

42-2397 


47-2692 
47-2692 
50-2866 
47-2692 
52-2990 
50-2913 


5-82 


5-79 
38-1918 


40-2107 
39-1965 


•74-4030 
81-4273 
37-1871 
37-1870 
29-1619 
62-3502 

41-2241 


22-1019 
22-1030 
22-1024 
11-484 
16-706 
*23-1075 

16-732 

11-498 
33-1740 


•58-3270 
42-2401 


49-2766 
50-2799 

48-2730 
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11-496         ^12-542 

16-713  17-773 

•24-1105       •24-1124 


75-4089 
40-2106 


75-4104 
81-4274 

74-4028 
30-1648 
62-3514 


17-796 

12-543 
34-1768 


•58-3271 
42-2405 


24-1114 

12-548 
81-4255 


58-3273 
42-2409 


•12-550 

17-776 

•24-1131 

24-1138 

16-708 


58-3274 
42-2413 


•12-568 

17-784 

•24-1148 

33-1747 

17-778 


#42-2445 


13-592  14-634 

20-905  21-963 

•33-1742       *34-1770 


34-1775 
23-1069 


81-4258 
23-1076 


75-4108 


75-4103 
32-1712 
62-3537 


75-4111 


81-4271 
41-2272 
62-3577 


•75-4113   *75-4114 


42-2422 
62-3586 


45-2592 
62-3615 


51.-3340 
62-3635 


60-3378 
63-3676 
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MACRO  NAME 


REFERENCES 


#60-3384 

#62-3540 

#63-3677 

#74-4028 

#75-4103 

#76-4144 

#80-4228 

#82-4333 

#84-4422 

^ESRG 

#5-62 

(ETURN 

11-511 

21-991 

26-1362 

35-1814 

40-2181 

47-2708 

57-3199 

66-3785 

75-4124 

84-4427 

*NBDFS 

#5-60 

SAVRG 

#5-62 

SWTCHI 

#5-61 

53-3019 

SWTCHO 

#5-60 

42-2426 

TCBDFS 

#5-59 

TMPDFS 

#5-82 

UCBDFS 

#5-61 

VNPBPT 

#11-395 

VNPDFS 

#5-60 

XPDDBS 

#5-59 

.ADDRB 

#5-82 

.ADDRW 

#5-82 

.APR 

#5-82 

.BIN 

#5-82 

.CNB 

#5-82 

.CNW 

#5-82 

.CORE 

#5-82 

.CSR 

#5-82 

.CTIM 

#5-82 

.DPRB 

#5-82 

.DPRW 

#5-82 

.DVCHA 

#5-82 

.INT 

#5-82 

.INT- 

#5-82 

.INT2 

#5-82 

.INT3 

#5-82 

.LFLHD 

#5-82 

.LIBR 

#5-82 

.LINKS 

#5-82 

.LSTHD 

#5-82 

60-3384 

62-3540 

63-3677 

74-4028 

75-4103 

76-4144 

80-4228 

82-4333 

84-4422 

32-1721 

12-571 

22-1044 

27-1461 

36-1854 

41-2279 

48-2750 

57-3224 

67-3807 

76-4145 

85-4459 

5-74 

32-1707 

27-1398 

53-3022 

27-1406 

42-2i28 

5-66 

5-82 

5-78 

11-396 

5-73 

5-71 


5-82 


5-82 
5-82 


5-82 


#61-3433 
#62-3580 
#63-3682 
#74-4031 
#75-4115 
#77-4164 
#81-4271 
#82-4344 

62-3504 

13-610 

23-1082 

28-1586 

37-1892 

42-2430 

49-2782 

58-3289 

68-3833 

77-4168 


62-3501 
27-1400 
63-3672 
27-1408 
45-2583 


5-82 


5-82 


61-3433 
62-3580 
63-3682 
74-4031 
75-4115 
77-4164 
81-4271 
82-4344 

62-3516 

14-642 

24-1149 

29-1625 

38-1920 

42-2450 

50-2920 

59-3348 

69-3854 

78-4190 


62-3513 
28-1572 
63-3708 
28-1582 
62-3520 


#61-3438 
#62-3589 
#74-4009 
#74-4065 
#75-4123 
#78-4179 
#81-4275 
#82-4346 

62-3541 

15-674 

25-1213 

30-1654 

39-2054 

43-2475 

51-2953 

60-3403 

70-3874 

79-4209 


62-3536 
28-1574 

28-1584 
62-3544 


61-3438 
62-3589 
74-4009 
74-4065 
75-4123 
78-4179 
81-4275 
82-4346 

62-3581 

16-748 

26-1276 

31-1678 

39-2067 

44-2502 

52-3001 

61-3460 

71-3914 

80-4229 


62-3576 
42-2338 

39-2020 
62-3575 


#62-3503 
#62-3616 
#74-4013 
#75-4094 
#76-4139 
#78-4188 
#82-4321 
#82-4348 

62-3590 

17-798 

26-1294 

31-1686 

40-2088 

44-2530 

53-3038 

62-3645 

72-3942 

81-4285 


62-3585 
42-2340 

40-2161 
62-3620 


62-3503 
62-3616 
74-4013 
75-4094 
76-4139 
78-4188 
82-4321 
82-4348 

62-3617 

18-843 

26-1311 

32-1722 

40-2094 

45-2569 

54-3069 

63-3709 

73-3981 

82-4349 


62-3614 
42-2389 

42-2344 
62-3643 


*62-3515 
#62-3638 
#74-4025 
#75-4097 
#76-4142 
#79-4208 
#82-4328 
#84-4415 

62-3639 

19-878 

26-1328 

33-1750 

40-2162 

45-2590 

55-3107 

64-3730 

73-3985 

83-4381 


62-3634 
42-2391 

42-2346 
82-4347 


62-3515 
62-3638 
74-4025 
75-4097 
76-4142 
79-4208 
82-4328 
84-4415 

63-3683 

20-935 

26-1345 

34-1778 

40-2168 

46-2659 

56-3153 

65-3755 

74-4074 

83-4398 


63-3675 
45-2584 

42-2419 
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158 
159 
160 
161 
162 
163 
16A 
165 
166 
167 
168 
169 
170 
1^1 
172 
173 

175  000000 

176  000000 

177  000004 

178  000010 

179  OOOOK 

180  000020 

181  000024 

182  000030 

183  000032 

184  000034 

185  000036 

186  000040 

187  0000*2 

188  000046 

189  000052 

190  000054 

191  000060 


$VEX2  -  EXPAND  BINARY  INFORMATION  INTO  REAL  INFORMATION 

THIS  ROUTINE  IS  CALLED  AFTER  THE  ASCII  TEMPLATE  FILE  HAS  BEEN  READ 
AND  PROCESSED  INTO  THE  BINARY  FILE.  THE  BINARY  INFORMATION  IS  EXPANDED 
AND  STORED  AT  THE  LOCATION  CONTAINED  IN  "SADDR".  "SLINK"  CONTAINS  A 
BASE  ADDRESS  FOR  THE  REAL  DATA  WHICH  NEED  NOT  BE  THE  SAME  AS  "SADDR  '. 

INPUTS: 

$BIN=START  OF  BINARY  INFORMATION 
SPTR=END  OF  BINARY  INFORMATION 
$ADDR=ADDRESS  OF  WHERE  REAL  DATA  GOES 
$LINK=LINK  VALUE  FOR  REAL  DATA 

OUTPUTS: 

ALL  REGISTERS=DESTROYED 


005067  000446' 
005067  000450' 

016705  OOOOOOG 
016704  OOOOOOG 
026705  OOOOOOG 
001411 
005003 
152503 
001406 
106303 


000764 


§VEX2:: 


10$: 


20S: 


CLR 

INDEX 

CLR 

FLAGS 

CALL 

PRLT 

MOV 

S8IN,R5 

MOV 

SADDR, R4 

CMP 

$PTR,R5 

BED 

20$ 

CLR 

R3 

BISB 

(R5)+,R3 

BEQ 

20$ 

ASL8 

R3 

CALL 

arA6LE-2(R3) 

CALL 

SBUFCK 

BR 

10$ 

CALL 

WRVBL 

RETURN 


ZERO  INDEX  VALUE 

AND  SPECIAL  FLAGS 

DO  UE  HAVE  A  PARTITION  LINE  TABLE? 

START  OF  BINARY  DATA 

START  OF  REAL  DATA 

IS  IT  END  OF  BINARY  DATA? 

IF  EQ,  YES 

GET  FUNCTION  CODE 

IF  ZERoTeND  OF  FILE 
CONVERT  TO  A  WORD  INDEX 
EXPAND  ONE  FIELD 
DON'T  LET  BUFFER  OVERFILL 
KEEP  LOOPING  UNTIL  END 
WRITE  THE  KB 
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710 

711 
712 
713  001754 

•  SECONDARY  MUX 

FILE  ADDRESS 

012767 

100000  000450' 

MXPTB: 

MOV 

#100000, FLAGS   ; 

7K  001762 

016746 

OOOOOOG 

MOV 

$LJNK,-(SP) 

715  001766 

016767 

OOOOOOG  OOOOOOG 

MOV 

$MXADD,$LINK 

716  00177A 

160467 

OOOOOOG 

sue 

R4,$LINK 

717  002000 

162767 

000002  OOOOOOG 

SU8 

#2,$L1NK 
(R5)+,-(SP) 

718  002006 

112546 

MOVB 

719  002010 

112524 

MOVB 

(R5)+,(R4)+ 

720  002012 

112524 

MOVB 

(R5)+,(R4)+ 

721  002014 

010446 

MOV 

R4,-(SP) 

722  002016 

723 

724  002020 

010546 

MOV 

R5,-(SP) 

011605 

10$: 

MOV 

(SP),R5 

725  002022 

005003 

20$: 

CLR 

R3 

726  002024 

152503 

Bise 

(R5)+,R3 

727  002026 

122703 

OOOOOOG 

CMPB 

#.E0F,R3 

728  002032 

001404 

BEQ 

30$ 

729  002034 

106303 

ASL8 

"^     .  ,     ■ 

730  002036 

CALL 

aTA8LE-2(R3) 

731  002042 

000767 

BR 

20$ 

732  002044 

005267 

000446' 

30$: 

INC 

INDEX 

733  002050 

126667 

000004  000446' 

CMPB 

4(SP), INDEX 

734  002056 

001360 

BNE 

10$ 

735  002060 

005726 

TST 

(SP)+         ; 

736  002062 

010402 

MOV 

R4,R2 

737  002064 

012604 

MOV 

(SP)+,R4 

738  002066 

005726 

TST 

(SP)  + 

739  002070 

740 

741  002072 

160402 

SUB 

R4,R2 

SAVRG 

<R4> 

742  002074 

016400 

177776 

MOV 

-2(R4),R0 

743  002100 

010203 

MOV 

R2,R3 
#l600,R2 

744  002102 

022702 

001000 

35$: 

CMP 

745  002106 

002002 

BGE 

40$           ; 

746  002110 

012702 

001000 

MOV 

#1000, R2 

747  002114 

40$: 

SUTCHO 

R4 

748  002120 

PUTRC 

R0,R2 
#1600,RO 

749  002134 

062700 

001000 

ADD 

750  002140 

062704 

001000 

ADD 

#1000,R4 

751  002144 

160203 

SUP 

R2,R3 

752  002146 

010302 

MOV 

R3.R2 

35i          ; 

753  002150 

001354 

BNE 

754  002152 

RESRG 

<R4>          ; 

755  002154 

SWTCHO 

756 

757  0021b2 

005067 

000446' 

CLR 

INDEX 

758  002166 

005067 

000450' 

CLR 

FLAGS 

759  002172 

016703 

OOOOOOG 

MOV 

$MXSIZ,R3 

760  002176 

012667 

OOOOOOG 

MOV 

(SP)+,$LINK 

761  002202 

CALLR 

SAVALC 

762 

763 
764 

;  CURRENT  TIME 

(TIME) 

765 

766  002206 

005024 

TIME: 

CLR 

(R4)t 

INDICATE  MUX  EXPANSION 

SAVE  PRIMARY  TEMPLATE  RELOCATION  BIAS 

GET  MUX  TEMPLATE  ADDRESS 

COMPUTE  RELOCATION  BIAS  FROM  BEGINNING 

OF  MUX  TEMPLATE  EXPANSION 

GET  REPEAT  COUNT 

GET  MUX  TABLE  ADDRESS 

SAVE  CURRENT  BINARY  FILE  POINTER 
SAVE  CURRENT  BINARY  FILE  POINTER 

RESTORE  BINARY  FILE  POINTER 
GET  FUNCTION  CODE 

is'lT  END  OF  FILE  ? 

IF  EQ,  YES 

CONVERT  TO  A  WORD  INDEX 

EXPAND  A  FIELD 

GO  TILL  END  OF  FILE 

TALLY  ONE  PASS  THRU  SECONDARY  FILE 

ARE  WE  DONE  ? 

IF  NE,  NO 

ELSE,  PURGE  BINARY  FILE  POINTER 

SAVE  CURRENT  POSITION  IN  OUTPUT  FILE 

RESTORE  OUTPUT  FILE  POINTER 

PURGE  COUNT 

CALCULATE  SIZE  OF  MUX  TABLES 

WILL  NEED  R4  LATER  FOR  REST  OF  LINE  TABLE 

RO  WILL  BE  POINTER  FOR  IMAGE 

R3  WILL  BE  REMAINING  BYTE  COUNT 

IS  BYTE  COUNT  GREATER  THAN  LIMIT  ? 

IF  GE,  NO  ...  JUST  MOVE  THAT  MANY  BYTES 

ELSE  MOVE  MAX  ALLOWED 

POINT  OUTPUT  BUFFER  TO  PROPER  LOCATION 

WRITE  TO  IMAGE 

UPDATE  IMAGE  POINTER 

UPDATE  OUTPUT  FILE  POINTER 

UPDATE  BYTE  COUNT 

SET  UP  FOR  NEXT  PASS  THRU  LOOP 

IF  NE,  MORE  BYTES  REMAIN  TO  BE  MOVED 

RESTORE  OUTPUT  FILE  POINTER 

RESET  OUTPUT  BUFFER 

CLEAR  SECONDARY  INDEX  COUNT 

AND  SPECIAL  FLAGS 

GET  SIZE  OF  MUX  TABLES 

RESTORE  PRIMARY  TEMPLATE  RELOCATION  BIAS 

SAVE  ADDRESS  AND  SIZE  IN  UNLOAD  BLOCK 


STORE  TIME  (SAY  IT'S  MIDNIGHT) 
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1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
A2 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE  VEX3  -  VNP  EXPANSION  ROUTINES  CLEANUP 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  ERROR  CASE  LINE  TABLE  RESOURCE  DE-ALLOCATOR 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
OECNET-llM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 
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1 
2 
3 

U 
5 
6 

7 
8 
9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
11 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE  VEX5  -  VNP  UPDATE  LINE  TABLES 
.IDENT  /VOS.OO/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  HAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  HAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  MUX  CHARACTERISTICS  UPDATE  LINE  TABLE  SCAN 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLU5  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Ptus   V3.0 
DECnet-Mkro/RSX   Vl.O 
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668  001 6A2 

669  001646 

670  001652 

671  001660 
672 

673  00166A 

674  001672 

011267 
010267 
017767 
012702 

000162' 
000160' 

OOOOOOG  000156' 
000164' 

MOV 
MOV 
MOV 
MOV 

100$: 

SWTCHI 
RETURN 

(R2),CTRADD 
R2,UBA 
a$ADRX,UBIAS 
OBLOCK,"?? 


SAVE   CONTROLLER   TABLE   STARTING  ADDRESS 
SAVE   UNLOAD   ENTRV  ADDRESS  WITHIN  BLOCK 
AND  ADDRESS 
RESET  R2   TO  START   OF    BLOCK 

POINT   BACK   AT   DEFAULT  BUFFER 


VFGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  VC 
LOCAL  DATA 

99 

100 

101 

102 

103 

104 

105  000000 

106 

107 

108 

109 

110 

111 

112       000017 

115  000000 

114  000016' 

115  000017 

116  000006 

117  000027 

118  000035 

119  000036 
120 

121  000040 

122  000042 

123  000044 

124  00004  5 
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.SBTTL  LOCAL  DATA 


;  LOCAL 

DATA 

.PSECT 

DATA.D 

.NLIST 

BEX 

;  LOCAL 

DATA  FOR  DTESDF  MACRO 

DTEALN 

=  15. 

DTEADD 

.8LKB 

DTEALN 

DTEND  = 

.-1 

DTEPCK 

.BLKB 

8. 

DTNMMX 

=  6.          ; 

DTNTNM 

.8LKB 

DTNMMX 

COUNT: 

.BLKB 

1 

cvreuF 

.BLKB 
.EVEN 

1 

NEXT: 

.BLKW 

1 

LINNAM 

.8LKU 

1 

LINCTL 

.BLKB 

1 

LINUNT 

.BLKB 

1 

MAXIMUM  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 
TEMPORARY  STORAGE  FOR  UNPACKED  DTE  ADDRESS 

PACKED  DTE  ADDRESS 

MAX  CHARACTERS  IN  NETWORK  NAME 

NETWORK  NAME 

COUNT  OF  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 

CONVERSION  BUFFER  FOR  ASCII  TO  DECIMAL  DIGIT 

ADDRESS  OF  NEXT  AVAILABLE  BYTE 
DEVICE  NAME  FROM  LINE-ID  (RAD50) 
CONTROLLER  NUMBER 
UNIT  NUMBER 
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481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497  000756 

010501 

498  000760 

116702  000035' 

499  000764 

001423 

500  000766 

105021 

501  000770 

005300 

502  000772 

003375 

503  000774 

005001 

504  000776 

005305 

505  001000 

112400 

506  001002 

005701 

507  001004 

001007 

508  001006 

509  001016 

005201 

510  001020 

005205 

511  001022 

000401 

512  001024 

005301 

513  001026 

150015 

514  001030 

005302 

515  001032 

003362 

516  001034 

517 

000001 

.SSTTL  PCKBCD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 

PCKBCD  -  PACK  A  STRING  OF  DIGITS  IN  BCD  FORMAT 

INPUTS: 

RO  -  NUMBER  OF  BYTES  IN  PACKED  ADDRESS 

R4  -  ADDRESS  OF  BUFFER  CONTAINING  ASCI  DIGITS  TO  PACK  (0=END  OF  BUFFER) 

R5  -  ADDRESS  OF  BUFFER  TO  STORE  PACKED  DATA 

COUNT  -  NUMBER  OF  DIGITS  SPECIFIED 

OUTPUTS: 

BUFFER  SPECIFIED  IN  R5  CONTAINS  DATA  IN  BCD  FORMAT 


GET  ADDRESS  OF  PACKED  DATA 

GET  NUMBER  OF  DIGITS  IN  STRING 

BR  IF  NOTHING  TO  DO 

INITIALIZE  PACKED  ADDRESS 

MORE  TO  INITIALIZE? 

BR  IF  YES 

POSITION  INIDCATOR  (0=HIGH  FOUR  BITS) 

UPDATE  ADDRESS  FOR  FIRST  TIME 

GET  DIGIT  TO  PACK 

STORE  IN  HIGH  FOUR  BITS? 

BR  IF  NO 

MOVE  TO  HIGH  FOUR  BITS 

INDICATE  STORE  IN  LOW  FOUR  BITS  NEXT 

POINT  TO  NEXT  BYTE 

BR  TO  STORE  DECIMAL 

INDICATE  STORE  IN  HIGH  FOUR  BITS  NEXT 

PACK  THE  NUMBER  INTO  THE  BUFFER 

MORE  TO  CONVERT? 

BR  IF  YES 


PCKBCD. 

MOV 

R5,R1 

MOVB 

COUNT, R2 

BEQ 

40$ 

5$: 

CLRB 

(R1)  + 

DEC 

RO 

BGT 

5$ 

CLR 

Rl 

DEC 

R5 

10$: 

Move 

(R4)+,R0 

TST 

Rl 

BNE 

20$ 

ASL$ 

4,R0 

INC 

Rl 

INC 

R5 

BR 

30$ 

20$: 

DEC 

Rl 

30$: 

BIS8 

R0,(R5) 

DEC 

R2 

BGT 

10$ 

40$: 

RETURN 
.END 

VfGPVC  -  INITIAL  CONFIG  fILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL  DATA 
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118 

119 

120 

121 

122 

123 

12A  000000 

125 

126 

127 

128 

129 

150 

131  000000 

132  000002 

133  OOOOOA 

134  000006 

135  000010 

136  000012 

137  OOOOK 

138  000016 

139  000020 
KO  000022 

141  000024 

142  000026 

143  000030 

144  000032 
145 

146  000034 
K7  000035 

148  000036 

149  000037 

150  000057 

151  000060 

152  000061 
153 

154 

155 

156 

157 

158  000062 

159 


000001 


000 


000003 


.SBTTL  LOCAL  DATA 


LOCAL  DATA 

.PSECT  DATA.D 
.NLIST  BEX 

LOCAL  DATA  FOR  PVCSDF  MACRO 


HTIMR: 
LTIMR: 
PORTNO 
PRTADD 
PVCLCN 
PVCCTM 
PVCPSZ 
PVCWSZ 
PVCOUN 
DLMPDV 
DLMSLT 
DLMSTA 
DLMSLN 
FLAG: 

PVCPRT 
PVCFL6 
PVCNML 
PVCNAM 
OLMCTL 
DLMUNT 
DLMIND 


.BLKW 

.8LKW 

.SLtCW 

.BLKW 

.BLKW 

.BLKU 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

PF.DLM 

.8LKB 

.BLKB 

.BLK8 

.BLKB 

.BLKB 

.BVTE 

.BLKB 

.EVEN 


MAX  ID 
0 


LOCAL  COPY  OF  HELLO  TIMER 

LOCAL  COPY  OF  LISTEN  TIMER 

NUMBER  OF  PORTS 

ADDRESS  OF  ENTRY  IN  PORT  TABLE 

LOGICAL  CHANNEL  NUMBER 

COUNTER  TIMER 

MAXIMUM  BLOCK  SIZE 

WINDOW  SIZE 

OWNER  PROCESS 

ADDRESS  OF  DLM  PDV 

ADDRESS  OF  DLM  SLT 

DLM'S  STATION  NUMBER 

DLM'S  SYSTEM  LINE  NUMBER 

LOCAL  FLAGS  WORD 

PVC  IS  A  DLM  CIRCUIT 

PORT  NUMBER  OF  FREE  ENTRY 

PVC  FLAGS  BYTE 

Length  of  circuit  identification 

Circuit  identification 

DLM'S  CONTROLLER  NUMBER 

DLM'S  UNIT  NUMBER  (ALWAYS  0,  MUST  BE  MTP) 

DLM'S  PDV  INDEX 


;[TD001] 
;[TD001] 


STATE  VALUE  FOR  "DATA  TRANSFER  STATE' 
GLOBAL  PATCHABLE  JUST  IN  CASE  ... 


FOR  XCB 


SP$P4: 


.WORD   3 


VALUE  FOR  DATA  TRANSFER  STATE 


VFGPvr   •■   INITIAL   CONFIG   FILE   SC   MACRO  V05.03b  Saturday  29-Jun-85 
PVDLM  -   CHECK,   FOR  DLM  PVC 
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653 
634 
635 
636 
637 
638 
639 
6A0 
6A1 
642 
643 
644 
645 

646  001506 

647  001512 

648  001516 

649  001522 

650  001524 
651 

652  001526 

653  001532 

654  001534 

655  001540 

656  001544 
657 

658 

659 

660  001546 

661 

662 

663 

664 

665  001554 

666  001562 

667  001566 

668  001570 

669  001574 

670  001576 

671  001602 

672  001610 

673  001612 

674  001616 

675  001622 

676  001624 

677  001626 

678  001634 

679  001642 

680  001644 

681  001650 

682  001652 

683  00'656 

684  001660 
685 


012700  000037' 

020127  015355 

001011 

010100 


103405 

110167  000061' 

010067  000022' 


.SBTTL  PVDLM  -  CHECK  FOR  DLM  PVC 

PVDLM  -  CHECK  FOR  DLM  PVC 

INPUTS: 

PVCNAM  -  PROCESS  NAME  (ASCII) 

OUTPUTS: 

DLMPDV  -  DLM'S  POV  ADDRESS 


PVDlM: 


10$: 


MOV 

CALL 

CMP 

BNE 

MOV 

CALL 

BCS 

MOVB 

MOV 

RETURN 


#PVCNAM,RO 

$CAT5 

R1,#*RDLM 

INVCIR 

R1,R0 

FNDPDV 
INVCIR 
Rl.DLMlND 
RO, DLMPDV 


;  ERRORS 

INVCIR:  EMSGSR  NO 


POINT  TO  SPECIFIED  PROCESS  NAME 

CONVERT  TO  RAD50 

IS  THIS  DLM? 

BR  IF  NO  -  ILLEGAL  CIRCUIT  ID 

GET  DLM'S  RAD50  PROCESS  NAME 

GET  DLM'S  PDV  INDEX 
BR  IF  NOT  FOUND 
SAVE  PDV  INDEX 
SAVE  DLM'S  PDV  ADDRESS 


ILLEGAL  CIRCUIT  ID 


PVCTL  -  GET  CONTROLLER  NUMBER  FOR  DLM 


116767 
005767 
001367 
105767 
001364 
0 1 6700 
126760 
001405 
005067 
062716 
000416 

116767 
126767 
001563 
00 5 76 7 
001336 
105767 
001353 


OOOOOOG  000057'  PVCTL: 
OOOOOOG 

000001 G 

OOOOOOG 
OOOOOOG  000012 

OOOOOOG       5$: 
000002 

7$: 

OOOOOOG  000026'  PVSTA: 
OOOOOOG  OOOOOOG 

OOOOOOG        10$: 

000001G 

20$: 


.ENABL 

Move 

TST 

BNE 

TST6 

BNE 

MOV 

CMPB 

BEQ 

CLR 

ADD 

BR 

RETURN 

M0V8 

CMPB 

BNE 

TST 

BNE 

TST8 

BNE 

RETURN 

.DSA8L 


LS6 

.PNUMB,DLMCTL 

.PNUMH 

INVCIR 

.PNUMB+I 

INVCIR 

$SLTA,RO 

.PNUMB,L.CTL(RO) 

7$ 

SVNERR 

#2,(SP) 

20i 

.PNUMB.DLMSTA 

.PNUM8,$TRIB 

5$ 

.PNUMH 

INVCIR 

.PNUMB'1 

INVCIR 

L58 


SAVE  COi'J" ROLLER  NUMBER 

LEGAL  VALuF? 

BR  IF  NO  -  ERROR 

LEGAL  VALUE? 

BR  IF  NO 

GET  SLT  ADDRESS 

IS  THIS  THE  CORRECT  CONTROLLER  NUMBER? 

CHECK  FOR  VALIDITY 

ELSE  NO  SYNTAX  ERROR 

AND  REJECT  TRANSITION 


SAVE  STATION  NUMBER 
CORRECT  STATION  NUMBER? 


BR  IF 
LEGAL 


NO 

VALUE? 
BR  IF  NO  -  ERROR 
LEGAL  VALUE? 
BR  IF  NO 


•FILE»MD««VfGSVC 


L  15 


VV      VV   F 

FFFFfFFFF 

GGGGGGGG 

SSS5SSSS 

vv 

vv 

cccccccc 

VV      VV   F 

FFFFF'-FFF 

GGGGGGGG 

SSSSSSSS 

vv 

vv 

cccccccc 

VV    vv  F 

GG 

SS 

vv 

vv  c 

VV      vv   F 

RCi 

SS 

vv 

vv  c 

VV      vv   F 

GG 

SS 

vv 

vv  c 

VV    vv  F 

GG 

SS 

vv 

vv  c 

VV    vv  F 

FFFFFFF 

GG 

ssssss 

vv 

vv  c 

vv      vv   F 

FFFFFFF 

GG 

ssssss 

vv 

vv  c 

vv      V\/   F 

GG 

GGGGGG 

SS 

vv 

vv  c 

vv      VV   F 

GG 

GGGGGG 

SS 

vv 

vv  c 

VV   VV     F 

GG 

GG 

SS 

vv 

vv    c 

VV  VV     F 

GG 

GG 

SS 

vv 

vv    c 

VV       F 

GGGGGG 

SSSSSSSS 

vv 

cccccccc 

VV       F 

GGGGGG 

SSSSSSSS 

vv 

cccccccc 

SSSSSSSS 

TTITT 

Trrrr 

SSSSSSSS 

TTTTT 

TTTH 

SS 

SS 

SS 

SS 

ssssss 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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A75  GDI 
A7/,  001 
i,75  001 
^76  001 
A77  001 

478  001 

479  001 

480  001 

481  001 
48?  001 

483  001 

484  001 
485 
486 
487 
488 

489  001172 

490  001200 

491  001206 


112 
114 
124 
142 
144 
146 
150 
154 
156 
160 
164 
170 


001414 


000760 
010546 
010146 

012600 
012601 


30$: 


BED 

CEACCS 

GETAD 

BR 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

RESMAP 

RETURN 


ERROR 


101$ 
102$ 
103$ 


EMSG$R 
EMSG$R 
EMSG$R 


30$ 
R4,R3 

20i 

R5,-(SP) 

R1,-(SP) 

SXLINK 

(SP)t,RO 

(SP)+,R1 

SETTLC 


3J 
12 
3K 


BR  If  END  Of  LIST  -  LINK  IT  HERE 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  LISTHEAD 

GET  NEXT  BLOCK  IN  LIST 

GET  UNMAPPED  ADDR  Of  CURRENT  BLOCK 

GET  ADDRESS  Of  PREVIOUS  BLOCK 

LINK  BLOCK  INTO  LIST 

GET  APR  BIAS  Of  SVC  DESCRIPTOR  BLOCK 

GET  VIRTUAL  ADDRESS  OF  SVC  BLOCK 

SET  UP  TRANSPORT  LINE  COUNTERS 

RESTORE  PREVIOUS  MAPPING 


ILLEGAL  OWNER 
PSI  NOT  LOADED 
ALLOCATION  FAILURE 


ClREV  - 

373'. 
375s 
3736 
375- 
3758 
3739 
37'.0 
374' 
37^.2 
37';3 
374;. 
3745 
3746 
3747 
3748 
3749 
375G 
37;- 
375? 
3753 
3754 
3755 


vNP  ENABlE/DISABLE  LINES  MACRO  V05.03b  Wednesday  n-Sep-85  12:06  Page  65 
-  aEAR  'HE  SPECIFIED  EVENT  MASKS 


C'7334  042325 

017336  042325 

017340  042325 

017342  042325 
C''7344 
C-7350 


.SBTTL  CLREVT  -  CLEAR  THE  SPECIFIED  EVENT  MASKS 

CLREVT  -  CLEAR  IhE  SPECIFIED  EVENT  FILTER  MASKS 

INPUTS: 

R3  -  ADDRESS  OF  EVENT  FILTER  MASKS  TO  BE  CLEARED 
R5  -  ADDRESS  OF  EVENT  FILTER  MASKS  TO  OPERATE  ON 

OUTPUTS: 

CARRV  CLEAR* 

EVENT  MASKS  ARE  STILL  SET  IN  THE  FILTER  BLOCK  SPECIFIED  IN  R5 
CARRY  SET: 

ALL  EVENT  FILTER  MASKS  ARE  CLEAR 

;  CLEAR  THE  SPECIFIED  FILTER  MASKS 


CHECK  IF  ANV  MASKS  STILL  SET 


LREVT:  BIC 

(R3)t,(R5)+ 

BIC 

(R3)  +  ,(R5)<- 

BIC 

(R3)*,(R5)t 

BIC 

(R3)+,(R5)t 

CALL 

CHKEVT 

RETURN 

N  1 


M    2 
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FNDDCB   -  FIND   A  DCS  ADDRESS 


AU7 
4148 
4K9 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4163 


.SBTTL  FNDDCB  -  FIND  A  DCB  ADDRESS 

*•*  -  FNDDCB  -  FIND  A  DCB  ADDRESS 

INPUTS: 

RO  =  DEVICE  NAME  TO  SEARCH  FOR 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 


020616 
020616 
020624 
C20632 
020634 
020636 
020650 
020654 
020656 
020660 


016767 
016767 
000261 

ooun 

020067 
001363 
000241 


OOOOOOG 
OOOOOOG 


OOOOOOC 


OOOOOOG 
OOOOOOG 


FNDDCB: 
10$: 


20$: 


MOV 

MOV 

SEC 

BEQ 

GETRV 

CMP 

BNE 

CLC 

RETURN 


$DEVHD,$BfR 
$BFR,$RADDR 

20$ 

,*D.PCBt2 
RO,$BFRtD.NAM 
10$ 


GET  DEVICE  LIST 

GET  NEXT  DEVICE  IN  LIST 

ASSUME  FAILURE 

IF  EQ,  END  OF  LIST 

READ  IN  DCB 

IS  THIS  THE  DCB  ? 

IF  NE,  NO 

ELSE,  INDICATE  SUCCESS 


_J 
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P.DISR 
P.DVRF 
P.DVTM 
P.ECCB 
ENBC 
HOER 
INPQ 
LEN  = 
LERR 
LINE 
P. MODE 
P. MODI 
P.MTER 
P.OFFS= 
P.PARM 
P.PIND 
P.POLT 
P.RAQC 
P.RASQ 
P.RBFC 
P.RERR 
P.SEL 
P. SPEC 
P.STAT 
P. STMT 
P.TBAD 
P.TIMC 
P. TIME 
P.TIMR 
P.TRIB 
P.VECT 
P.VEC1 
P.XAQC 
P.XAUQ 
P.XBFC 
OF$ACT= 
OF$ALL= 
QF$KNO= 
QF$LOO= 
QINS 
QUICK 
Q$$OPT= 
REMALI 
RENINS 
REMNOD 
REMOTE 
RE$ADC= 
RE$ADF= 
RE$ADR= 

resblk;= 

RE$CAF= 
RE$DAT= 
RE$DRP= 
RE$LDT= 
RE$LSN= 
RE$NML= 
RE$OPE= 


000004 

000047 

000046 

000064 

000011 

000056 

000036 

000154 

000054 

000010 

000060 

000061 

000057 

000046  G 

000070 

000066 

000102 

000020 

000022 

000021 

000052 

177776 

000104 

000002 

000074 

000062 

000050 

000001 

000000 

000014 

177732 

177752 

000026 

000030 

000027 

000001 

000002 

000004 

000010 

005636R 

005576R 

000010 

011074R 

0051 72R 

004310R 

0001 32R 

000004 

000017 

000007 

000010 

000014 

000001 

000016 

000013 

000012 

000001 

000004 


RESOPR= 
RE$RCV= 
RE$SED= 
RE$SKW= 
RE$STA= 
RE$SUM= 
RE$SYN= 
RE$TME= 
RE$TMO= 
RE$TMR= 
RE$UPT= 
RE$URE= 
RE$VER= 
RESVRO- 
RF.CTL= 
RF.LD1= 
RF.LD2= 
RF.L00= 
RF.TIM= 
RF.TMO=: 
RF.UFC= 
RF.UTD= 
RF.WTM= 
RF.WTS= 


.   "nr^  f  = 
RI4.UN  = 

RUN 

RX.NXM- 
RX.OVR= 
RSIDER^ 
R$$K11= 
R$$SND= 
R$$11M= 
R.ADD 
R.CSR 
R.FLAG 
R.FLG 
R.LEN 
R.LNK 
R.LST 
R.MAP 
R.NAH 
R.QUE 
002  R.SLN 
R.SRV 
R.STA 
R.ST8L 
SAVCOM 
SAVFIL 
SC$OFF= 
fC$0N  = 
5C$RST  = 
SC$SHU= 
SER 
SERBIT 


000000 
000001 
000011 
000006 
000002 
000003 
000000 
000021 
000000 
000020 
000002 
000003 
000005 
000015 
000003 
000040 
000100 
100000 
177400 
000400 
000200 
000020 
000030 
000010 
=  ******  Gx 


000002 

000001 

000000 

021232R 

100020 

000010 

000000 

000001 

000000 

000000 

000010 

000056 

000012 

000064 

000014 

000000 

000104 

000110 

000002 

000062 

000070 

000060 

000066 

000210 

017410R 

017376R 

000001 

000000 

000003 

000002 

000001 

001076R 


SERFLG 

000126R 

002  S.NKLR 

000040 

SETBIT 

005774R 

S.NKR 

000037 

SETEVT 

017322R 

S.NKRB 

000052 

SETFIL 

015110R 

S.NKRW 

000045 

SETQLF 

OI7466R 

S.NKSB 

000051 

SE.IRS= 

004000 

S.NKSU 

000046 

SE.NRS= 

002000 

S.NMST= 

****** 

SE.R8S= 

001000 

S.NTD 

000024 

SE.RBU= 

000400 

S.0WNR= 

****** 

SE.RCH= 

000001 

S.PLA 

000010 

SE.RDC= 

000002 

S.PLC 

000022 

SE.RRR= 

000004 

S.PLL 

000006 

SE.SBS= 

00020c 

S.PLS 

000011 

SE.SBU= 

000100 

S.PSA 

000003 

SE.SDC= 

000020 

S.RBE 

000042 

SE.SHC= 

000010 

S.RCB 

000020 

SE.SRR= 

000040 

S.RCV 

000014 

SF.ACT= 

******  GX 

S.RCVB 

000072 

SF.ENA= 

******  GX 

S.RCVC 

000056 

SF.LP8= 

******  GX 

S.RDE 

000034 

SF.SER= 

******  GX 

S.REPR 

000050 

SINKND 

000130R 

002  S.REPS 

000047 

SNAPX 

000124R 

002  S.RST 

000036 

SNKTVP 

000230R 

002  S.RTEC 

000042 

SNODTS 

003660R 

S.RTY 

000001 

STQUAL 

P17650R 

S.SELC 

000066 

STREVT 

017432R 

S.SELT 

000053 

SV$DUM= 

000001 

S.STA 

000000 

SV$L0A= 

000000 

S.STE 

000002 

SYSFDB= 

******  GX 

S.STEC 

000043 

$$$WRG= 

000000 

S.STLG 

000104 

S$$YSZ= 

007600 

S.STLN 

000035 

S.ALF 

000044 

S.STPN 

000034 

S.BLKC 

000033 

S.TIMC 

000054 

S.COST= 

******  GX 

S.TLZ 

000012 

S.C0U8 

000044 

S.TMO 

000040 

S.COUL= 

000040 

S.TNRP 

000032 

S.CTL 

000006 

S.TTEC 

000041 

S.DLCF 

000102 

S.WFA 

000016 

S.ERR 

000010 

S.XDE 

000036 

S.FLG  = 

******  GX 

S.XID 

000002 

S.FNCP 

000004 

S.XMB 

000030 

S.HTNA 

000023 

S.XMP 

000024 

S.LBE 

000044 

S.XMT 

9995i? 

S.LEN  = 

******  GX 

S.XMTB 

000076 

S.LGR 

000031 

S.XHTC 

000062 

S.LGTH= 

000050 

S1.DEC= 

001000 

S.LIN 

000004 

S1.DPR= 

000400 

S.LINK 

177776 

S1.DSI= 

00'"'J 

S.LMA 

000026 

S1.ESC= 

OCOOLJ 

S.LMOS 

000030 

S1.IPf=- 

:n2'^oo 

S.LMRT 

000027 

Sl.'BV^- 

000200 

S.LMS 

Sl.OB  - 

^00100 

S.LNK 

OOOOOQ 
000005 

S1.PTH= 

ooJOlO 

S.LSA 

S1.RES= 

010000 

S.NCU6 

000000 

S1.RNE= 

000020 

S.NCUL= 

000036 

S1.RNF= 

020000 

GX 
GX 


S1.RSP= 
S1.RST= 
SI.TNE^ 
S1.TSY= 
S1.USI= 
S2.BEL= 
S2.BRQ= 
S2.CR  = 
S2.CT0= 
S2.CTS= 
S2.ELF= 
S2.FLF= 
S2.IRQ= 
S2.0BF= 
S2.0RQ= 
S2.PCU= 
S2.RCU= 
S2.SRQ= 
S2.UAL= 
S2.URa= 
S2.WR8= 
S3.ACR= 
S3.CTC= 
S3.FDX= 
S3.ICE= 
S3.MHE= 
S3.NEC= 
S3.PPT= 
S3.PTH= 
S3.RAL= 
S3.RES= 
S3.RUB= 
S3.TAB= 
S3.TME= 
S3.TSY= 
S3.8BC= 
S4.ABD= 
S4.ANI= 
S4.AV0= 
S4.BLK= 
S4.DEC= 
S4.DL0= 
S4.EDT= 
S4.HFF= 
S4.HFL= 
S4.HHT= 
S4.HSY= 
S4.RGS= 
S4.SFC= 
S4.VFL= 
S5.ABP= 
S5.BCC= 
S5.DA0= 
S5.HPC= 
S5.HP0= 
S5.ITI= 
S5.0XF= 


000004 
000001 
040000 
000040 
100000 
020000 
000020 
002000 
040000 
100000 
001000 
000400 
000200 
004000 
000100 
010000 
000001 
000040 
000010 
000006 
000002 
000001 
000004 
000200 
001000 
000400 
000020 
020000 
004000 
000010 
010000 
040000 
000002 
002000 
000040 
000100 
100000 
000400 
001000 
002000 
004000 
000100 
010000 
000020 
000007 
000040 
000200 
020000 
040000 
000010 
100000 
020000 
040000 
000014 
000020 
000100 
000040 


n 
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SYMBOL 

■ROSS  REFERENCE 

CREf   04.00 

SYMBOL 

VALUE 

REFERENCES 

OF  SON 

=  000000 

#5-73 

OFfSMC 

=  000200 

#5-73 

41-2235 

OF .  lU 

=  000100 

41-2240 

41-2243 

OF. SMC 

=  000200 

41-2234 

41-2237 

0PT1 

003656  R 

25-1217 

#25-1219 

OPSADD 

=  000200 

#5-73 

OPSALL 

=  000200 

#5-73 

OPSCCS 

=  00000^ 

#5-73 

OPSCIE 

=  004000 

#5-73 

OPSCON 

=  000400 

#5-73 

47-2701 

55-3093 

58-3255 

OPSCQP 

=  000001 

#5-73 

41-2231 

OPSCOS 

=  000100 

#5-73 

OPSDST 

=  000200 

#5-73 

OPSDTE 

=  000040 

#5-73 

OPSDUP 

=  000002 

#5-73 

OPSEST 

=  000100 

*5-73 

25-1189 

OPSEVE 

=  010000 

#5-73 

7-181 

7-195 

OPSFIL 

=  000200 

#5-73 

55-3096 

73-3963 

OPSGRP 

=  000100 

#5-73 

OPSHOS 

=  000001 

#5-73 

25-1189 

59-3333 

73-3978 

OPSHTM 

=  000002 

#5-73 

OPSINA 

=  004000 

#5-73 

25-1187 

OPSINC 

=  001000 

#5-73 

25-1187 

OPSINI 

=  000000 

#5-79 

OPSKDS 

=  002000 

#5-73 

OPSKDT 

=  000400 

#5-73 

OPSKEV 

=  001000 

#5-73 

44-2496 

45-2558 

56-3134 

OP$<GR 

=  001000 

#5-73 

OPSKNT 

=  010000 

#5-73 

OPSKSK 

=  002000 

#5-73 

OPSLCT 

=  000200 

#5-73 

OPSLNE 

=  000040 

#5-73 
73-3969 

25-1181 

25-1191 

44-2498 

OPSLOC 

=  000001 

#5-73 

#5-73 

OPSLST 

=  000002 

#5-73 

7-194 

OPSLTM 

=  000001 

#5-73 

OPSLVL 

=  000010 

#5-73 

41-2244 

OPSMAC 

=  000010 

#5-73 

OPSMCO 

=  000002 

#5-73 

OPSMDE 

=  000400 

#5-73 

OPSMLI 

=  000004 

#5-73 

OPSMON 

=  000100 

#5-73 

47-2696 

58-3266 

OP$MST 

=  000020 

#5-73 

OPSNAM 

=  000004 

#5-73 

#5-73 

#5-73 

7-182 

OP$NET 

=  004000 

#5-73 

OPSNLI 

=  000002 

#5-73 

OPSNOD 

=  000020 

#5-73 

7-184 

57-3187 

59-3508 

OPSOUT 

=  002000 

#5-73 

25-1187 

OPSOWN 

=  000020 

#5-73 

OPSPAR 

-  00001 C 

#5-73 

OP$PRI 

=  000010 

#5-73 

OPSRET 

=  010000 

#5-73 

c5-1187 

73-3966 


56-3148 


57-3187 


57-3192 


59-3308 


59-3333 


71-3897 


7-196 


59-3333 


25-1181 


71-3892 


25-1195 


73-3972 


41-2249 


M  5 

VENA      CREATED  BY  MACRO  ON  11-5EP-85  AT  12:08     PAGE  24 
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MACRO  NAME 

REFERENCES 

.LTAB 

#5-82 

.MPLHD 

#5-82 

5-82 

.MXPTB 

#5-82 

.PECHA 

#5-82 

.POOL 

#5-82 

.PR  I 

#5-82 

5-82 

.SCOM 

#5-82 

.SECSR 

#5-82 

.SLNB 

#5-82 

-82 

.SLNW 

#5-82 

:.-82 

.STNB 

#5-82 

5-82 

.STNW 

#5-82 

.TIME 

#5-82 

.UNB 

#5-82 

5-82 

.UNW 

#5-82 

.VFV 

#5-82 

.X2CHB 

#5-82 

.X2CHW 

#5-82 

.X3CHB 

#5-82 

.X3CHW 

#5-82 

5-82 


n  6 

VEX2  -  VNP  EXPANSION  ROUTINES   MACRO  V05.03b  Saturday  29-Jun-85  02:27  Page  7 


195 

•  ** 

19A 

•  EXPANSION  ROUTINES 

195 

•  ** 

196 
197 
198 

';  LOCAL  PHYSICAL  STATION  ADDRESS 

199 

• 

200  000062 

005767 

000450' 

ADDRB:   TST 

FLAGS 

201  000066 

001403 

BEO 

10$ 

202  000070 

116724 

OOOOOOG 

M0V8 

$$LSAD,(RO  + 

203  000074 

RETURN 

204  000076 

205 

206 

112724 

177777 

10$:    MOVB 

#-l,(R4)+ 

;  LOCAL  PHSYICAL  STATION  ADDRESS 

207 

208  000102 

005767 

000450' 

ADDRW:   TST 

FLAGS 

209  000106 

001405 

BEQ 

10$ 

210  000110 

005001 

CLR 

R1 

211  000112 

056701 

OOOOOOG 

BIS 

$$LSAD,R1 

212  000116 

010124 

MOV 

Rl,(R4)t 

213  000120 

RETURN 

214  000122 

012724 

■\77777 

10$:    K'V 

#-l,(R4)+ 

215  000126 

RETURN 

216 

217 

;•  ZERO  BYTE(S) 

218 

219  000130 

112500 

&LKB:   M0V8 

(R5)+,R0 

220  000132 

105024 

10$:    CLRB 

(R4)t 

221  000134 

105300 

DEC6 

RO 

2?'  000136 

001375 

BNE 

10$ 

223  000140 

RETURN 

224 

225 

226 
227 
228  000142 

•  ZERO  WORD(S) 

112500 

BLKW:   M0V8 

(R5)+,R0 

229  000144 

005024 

10$:    CLR 

(R4)  + 

230  000146 

105300 

DECS 

RO 

231  000150 

0P1375 

BNE 

10$ 

232  000152 

RETURN 

233 
234 
235 

;  SINGLE  BYTE 

236 

237  00015; 

112524 

BYTE:   M0V6 

(R5)+,(R4)+ 

238  0001 5t. 

RETURN 

239 

240 

241 

;  CSR 

242 

243  000160 

112500 

CSR:    mVB 

(R5)*,R0       ; 

244  000162 

066700 

OOOOOOG 

ADD 

$$CSR,R0 

245  000166 

010024 

MOV 

R0,(R4)t 

246  000170 

RETURN 

24  7 

248 

• 

249 

;  COUNTER  TIMER 

IS  IT  EITHER  MUX  OR  MTP  EXPANSION? 

BR  IF  NO 

STORE  LOCAL  STATION  ADDRESS 

DLC  LSAD  NOT  IN  MXTAB  OR  MPTAB  FILE 


IS  IT  EITHER  MUX  OR  MTP  EXPANSION? 

BR  IF  NO 

GET  LOCAL  STATION  ADDRESS 

STORE  IT 

LSAD  NOT  IN  MXTAB  OR  MPTAB  FILE 


GET  BYTE  COUNT 

STORE  A  ZERO  BYTE 

LOOP  BETWEEN  1  AND  256. 


TIMES 


GET  WORD  COUNT 

STORE  A  ZERO  WORD 

LOOP  BETWEEN  1  AND  256.  TIMES 


COPY  A  BYTE 


GET  MODIFICATION  VALUE 
ADD  IN  CSR  ADDRESS 
STORE  THE  RESULT 
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76?  002210 

768 

769 

770 

771 

772  002212  016700  000^^6' 

773  002216  11602A  OOOOOOG 
77i  002222 

775 
776 
777 
778 

779  00222A  116724  OOOOOOG 

780  002230 
781 

782  002232  01672A  OOOOOOG 

783  002236 


RETURN 

ACTIVE  POLLING  RATIO  (APR) 

APR:    MOV     INDEX, RO 

wove    $$APR(R0),(R4)i 
RETURN 


DEAD  POLLING  RATIO 

DPRB:   MOVB    $$DPR,(R4)+ 
RETURN 

DPRW:   MOV     $$DPR,(RA)t 
RETURN 


GET  CURRENT  STATION  INDEX 
STORE  APR 


STORE  DPR 
STORE  DPR 


VEX5  -  VNP  EXPANSION  ROUTINES  C  MACRO  V05.05b  Saturday  29-Jun-85  02:27     Page   5 
MACRO  DEFINITIONS 


56 
57 
58 
59 

ftO 

td 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72  000000 

75 

74 

75 

76 

77  000000 

78  000002 

79  000004 

80  000006 

81  000010 

82  000012 

83  000014 

84  000016 

85  000020 

86  000022 

87  000024 

88  000026 

89  000030 

90  000032 

91  000034 

92  000036 

93  000040 

94  000042 

95  000044 

96  000046 

97  000050 

98  000052 

99  000054 
100  000056 
lO"!  000060 

102  000062 

103  000064 

104  000066 

105  000070 

106  000072 

107  000074 

108  000076 

109  000100 

110  000102 

111  000104 

112  000106 


.SBTTL 
LOCAL  MACROS 


MACRO  DEFINITIONS 


DEFINE  TRANSFER  TABLE  ENTRY 


.MACRO  TTA8$ 
.WORD   B8 
.ENDM   TTA8$ 


AA.BB 


LOCAL  DATA 


.PSECT  DATA.D 


TRANSFER  TABLE  USING  FUNCTION  CODE  AS  INDEX 


tABLE: 


TTA8$ 
TTA8$ 
TTABS 
TTASS 
TTAB$ 
TTAB$ 
TTABS 
TTASS 
TTABS 
TTA8$ 
TTABS 
TTABS 
TTABS 
TTABS 
TTA8S 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTASS 
TTABS 
TTABS 
TTABS 
TTABS 
TTASS 
TTASS 
TTABS 
TTABS 


ADDRB.NULL 

ADDRW.NULL 

BLKB.POP! 

BLKU.POPI 

BYTE.POPI 

CORE,XCORE 

CSfi.POPI 

CTIM.NULL 

DVCHA,NULL 

EOF, NULL 

FILE.POPI 

INT,P0P2 

LISR.XLIBR 

LINKS, NULL 

LF1LE,P0P3 

LSTHD,NULL 

LTAB,NULL 

MPTAB,P0P3 

MXTAB.POPI 

NOD, NULL 

PRI.NULL 

PRTOV.POPl 

SCOM,XSCOM 

SECSfi.NULL 

SLN8,NULL 

SLNW,NULL 

STNS.NULL 

STNU.NULL 

UNB.NULL 

UNW,NULL 

W0RD,P0P2 

APR,P0P1 

DPR8,P0P1 

DPRW,P0P2 

TIME,P0P2 

HXPT8,XMXPTB 


EXPANSION  ROUTINE  IS  FIRST  ENTRY 
CLEANUP  ROUTINE  IS  SECOND  ENTRY 


VEX5  -  VNP  UPDATE  LINE  TABLES 
MACRO  DEHNITIOMS 

56 

57 

58 

59 

60 

61 

62 

63 

6^ 

65  000000 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78  000000 

79 

80 

81 

82 

83  OOOCOO 

84  000002 

85  000004 

86  000006 

87  000010 

88  000012 

89  OOOOU 

90  000016 

91  000020 

92  000022 

93  000024 

94  000026 

95  000030 

96  000032 

97  000034 

98  000036 

99  000040 

100  000042 

101  000044 

102  000046 

103  000050 

104  000052 

105  000054 

106  000056 

107  000060 

108  000062 

109  000064 
no  000066 

111  000070 

112  000072 
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.SBTTL  MACRO  DEFINITIONS 
;  LIBRARY  MACROS 


.MCALL  GETAD,GETRV,SWTCHI,PUTRC,PUTAD,SAVRG,RESfiG,SLTDF$ 


;  DEFINE  SLT  OFFSETS 


■  *** 

;  LOCAL 

MACROS 

;  *** 

SLIDES 

•  DEFINE  TRANSFER  TABLE  ENTRY 

' 

.MACRO 

TTA8S   AA,BB 

.WORD 

AA 

.ENDM 

TTABS 

•  *** 

;  LOCAL 

DATA 

;  *** 

.PSECT 

OATA.D 

•  TRANSFER  TABLE  USING  FUNCTI 

TABLE: 

TTABS 

ADDRB.NULL 

TTABS 

ADDRW.NULL 

TTABS 

BLKB.POP' 

TTABS 

BLKW.PDP' 

TTABS 

BYTE.PDPI 

TTABS 

CORE.XCORE 

TTABS 

CSR.POPl 

TTABS 

CTIM,NULL 

TTABS 

DVCHA,NULL 

TTABS 

EOF, NULL 

TTABS 

FILE.POPI 

TTABS 

INT,P0P2 

TTABS 

LIBR.XLIBR 

TTABS 

LINKS, NUlL 

TTABS 

LFILE,P0P3 

TTABS 

LSTHD,NULL 

TTABS 

LTAB,NULL 

TTABS 

MPTAB,P0P3 

TTABS 

MXTA8,P0P1 

TTABS 

NOD, NULL 

TTABS 

PRI,NULL 

TTABS 

PRT0V,POP1 

TTABS 

SC0M,XSC0M 

TTABS 

SECSR,NULL 

TTABS 

SLNB,NULL 

TTA8S 

SLNW,NULL 

TTABS 

STN8,NULL 

TTABS 

STNW,NULL 

TTABS 

UN8,NULL 

TTABS 

UNW,NULL 

EXPANSION  ROUTINE  IS  FIRST  ENTRY 
CLEANUP  ROUTINE  IS  SECOND  ENTRY 


TTABS 

SECSR,NULL 

TTABS 

SLNB,NULL 

TTA8S 

SLNW,NULL 

TTABS 

STN8,NULL 

TTABS 

STNW,NULL 

TTABS 

UN8,NULL 

TTABS 

UNW,NULL 

VEX5 
X3CH 
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.SBTTL  X3CH 


576 
677 
678 
679 
680 

681  00167A 

682  001676 
683 

68A 
685 

686  001700 

687  001702 
688 

689 
690 

691  00170^ 

692  001706 
693 

694 
695 

696  001710 

697  001712 
698 

699 
700 

701  0017U 

702  001716 
703 

704 
705 

706  001720 

707  001722 
708 

709 
710 

711  001 72A 

712  001726 
713 

71A 
715 

716  001730 

717  001732 
718 

719 

720 

721   001 73A 

122  001736 

723 

724 

725 

726  001 74C 

727  001742 
728 

729 
730 

731  001744 

732  00 '746 


005723 


005723 


005203 


005203 


005203 


005203 


005203 


005203 


005203 


005203 


005203 


DEFAULT  BLOCK  SIZE 


X3CH01;  TST 

RETURN 


(R3)t 


MAXIMUM  BLOCK  SIZE 

X3CH02;  TST     (fi.'"  + 
RETURN 

DEFAULT  WINDOW  SIZE 


X3CH03:  INC 

RETURN 


R3 


MAXIMUM  WINDOW  SIZE 


X3CH04:  INC 

RETURN 

CALL  TIMER 


R3 


X3CH05: 


INC 
RETURN 


R3 


CLEAR  TIMER 

X3CH06:  INC 

RETURN 

RESET  TIMER 

X3CH07:  INC 

RETURf 

RESTART  TIMER 

X3CH08:  INC 

RETURN 


R3 


R3 


R3 


MAXIMUM  CLEAR  VALUE 


X3CH09:  INC 

RETURN 


R3 


MAXIMUM  RESETS  VALUE 


X3CH10: 


INC 
RETURN 


R3 


MAXIMUM  RESTARTS  VALUE 


X3CH11: 


INC 
RETURN 


R3 
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126 
127 

128  0000^6 

129  000106 

130  OOOUO 

131  000170 

132  00022A 
133 

134 
135 
136  000000 


.SBTTL  ERROR  MESSAGES 


NTLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 

.LIST 
.EVEN 
.PSECT 


,00,8B,CERR,RTSPC, 
,03,8B,CERR,RTSPC, 
,0A,8B,CERR,RTSPC, 
,05,8B,CERR,RTSPC, 
,06,8B,CERR,RTSPC, 

BEX 


Cf LIN,<network  name  parameter> 
CFLIN,<DTE  address  \/alue> 
CFLIN,<hash  table  size> 
CFLIN,<counter  timer  i/alue> 
CFLIN,<h'ne-id> 


;..-2 


...-1 
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Symbol  table 

LINID1 

LINNAM 

LINUNT 

LN$OFF= 

LNSON  = 

LN$SHU= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU^ 

LN.OFF=: 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.fiEF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TR1= 

LP$E1P= 

LP$EN8= 

LP$PCT= 

LP$TMR= 

LPSUP  = 

LP$WTD= 

LP$WTS= 

LS$GDN= 

LS$OFF= 

LS$STR= 

LSSUP  = 

LSSWT  = 

LSACHN 

LSAPVC 

LSASVC 

LSAUC 

LSCHLS 

LSCHTB 

L$CLEN= 

LSCTEN 

LSCriM 

LSDTEA 

LSDTEL 

LSGLEN 

LSLEN 

LSLLCH 

LSLNK 

LSMCHN 

LSNETW 

LSNIRE 

LSNLRE 

LSNMAC 

LSNMAS 

LSNMST 

LSNNRE 

002  L$NR8r 

003  LSNRCA 


Page  20-1 


A$tCHK= 

000000 

HF$XOF= 

000020 

A$$CPS= 

000000 

HSHMN  = 

000040 

A$tPRl= 

000000 

HSHMX  = 

001000 

A$$TRP= 

000000 

HSHSZ  = 

.»»•**  GX 

BIASX 

000576R 

HSHTBL 

000262R 

CERR  = 

•♦*«•*  GX 

HSCUG 

000010 

CFGBF  = 

••♦•»♦  GX 

HSDST 

000012 

CFGS2  = 

*••♦»*  GX 

H$D29 

000014 

CFLIN  = 

•»•*•*  GX 

HJFLG 

000000 

CHKDTE 

000A26R 

HSGLEN 

000104 

CNTTIM 

000332R 

HSGLT 

000044 

COUNT 

000035R 

002 

HSGNAM 

000050 

CVTBUF 

000036R 

002 

H$GNHL= 

000020 

Ct$CKP= 

000000 

HSGPT 

000046 

Ct$ORE  = 

OOO-iOO 

HSHITS 

000034 

C$$RSH= 

17756A 

HSHLEN 

000044 

DEVCTL 

0006^4R 

HSLBDA 

000070 

DEVNAM 

00061 6R 

HSLBDN 

000072 

OEVUNT 

000662R 

HSLDTE 

000002 

DE.OFF= 

*♦»♦»♦  GX 

H$LEN 

000042 

DE.ON  = 

•*«*♦♦  GX 

HSLOTS 

000032 

DTEAD 

00001 2R 

003 

HSNE^W 

000024 

DTEADD 

OOOOOOR 

002 

HSNML  = 

000006 

DTEAEN 

OOOUOR 

HSNPT 

000022 

[/TEALN= 

000017 

HSPTB 

000020 

DTEAST 

000052R 

HSPVC 

000006 

DTEDES= 

«*«*»♦  GX 

HIRDTE 

000004 

DTEDF 

OOOOOOR 

003 

HSRNU 

000042 

DTEDIG 

0001  UR 

HSSVC 

000036 

DTEEND 

00041  OR 

HSTRB 

000016 

DTEFLG= 

**»«»♦  GX 

HSXAVL 

000100 

DTEKW 

OOOOOORG 

004 

HSXSIA 

000074 

DTEND  = 

00001 6R 

002 

H$X29C 

000040 

DTENET 

000350R 

I$$RAR= 

000000 

OTENW 

000076R 

003 

I$$RDN= 

000000 

DTEPCK 

00001 7R 

002 

K$$CNT= 

177546 

DTEST 

OOOOOORG 

003 

K$$CSR= 

177546 

DTNMMX= 

000006 

K$$LDC= 

000000 

OTNTNM 

000027R 

002 

K$$TPS= 

000074 

D$$t"IG  = 

1775U 

LDSLP  = 

000000 

D$$I5K= 

000000 

LF.ACT= 

100000 

D$$Ln  = 

000001 

LF.8R0= 

000400 

D$$VNC= 

000000 

LF.BUT= 

000007 

D$$YNM= 

000000 

LF.ENA= 

002000 

END 

0001  KR 

003 

LF.LPB= 

001000 

E$$XPR= 

000000 

LF.MDC= 

000100 

FMT8B  = 

»*.***  GX 

LF.MFL= 

004000 

fM.8B  = 

000000 

LF.MTP= 

000020 

F$$LVL  = 

000001 

LF.PAC= 

000200 

F.RSIZ= 

•••*♦♦  GX 

LF.RDY= 

040000 

G$$TPP= 

000000 

LF.REA= 

010000 

G$$TSS= 

000000 

LF.SER= 

000040 

G$$TTK= 

cooooo 

LF.TIM= 

000010 

G$$WRD= 

000000 

LF.UNL= 

020000 

HF$DLM= 

000002 

LF.X2P= 

000000 

HF$GWY= 

000010 

LINCTL 

000044R 

HF$H05= 

000004 

LINID 

000124R 

000146R 

003  LSNRfS 

000100 

P$$P45= 

000000 

000042R 

002  LSNRPK 

000056 

P$$WRD= 

99S205 

000045R 

002  LSNRRE 

000105 

Q$$OPT= 

000010 

000001 

LSNRST 

000107 

RTSPC  = 

*♦»♦«*  GX 

000000 

LSNTBY 

000052 

R$RO  = 

000002 

000002 

LSNTCA 

000070 

R$R1  = 

000004 

000000 

LSNTFS 

000102 

R$R2  = 

000006 

000005 

LSNTPK 

000062 

R$R3  = 

000010 

000004 

LSOMST 

000002 

R$R4  = 

000012 

000003 

LSPCS 

000112 

R$R5  = 

000014 

000003 

L$PLS 

000110 

R$$DER= 

000000 

000001 

LSQCNT 

000122 

R$$K11= 

000001 

000000 

LSOUEH 

000124 

R$$SND= 

000000 

000004 

LIQUET 

000130 

R$$nM= 

000000 

000001 

LSRTRY 

000007 

SF.ACT= 

000200 

000002 

LSSLN 

000004 

SF.ENA= 

000100 

000002 

L$ST 

000005 

SF.LPB= 

000004 

000017 

LSTCLZ 

000044 

SF.MFL= 

000040 

000360 

LSTIM 

000006 

SF.PAC= 

000020 

000006 

L$$ASG=: 

000000 

SF.REA= 

000010 

002000 

L$$DRV= 

000000 

SF.SER= 

000001 

004000 

L$$P11= 

000001 

Sf.SVC= 

000002 

001400 

L$$11R= 

000000 

SF.UNL= 

000040 

100000 

L.COST 

000015 

SPACE  = 

000040 

010000 

L.CTL 

000012 

SPFILL= 

******   GX 

020000 

L.CVA 

177776 

STRNXT 

000706R 

040000 

L.DDM 

000002 

SYNERR= 

******   GX 

000004 

L.DDS 

000004 

SYSFDB= 

**»*»*  GX 

000000 

L.DLC 

000003 

S$$WRG= 

000000 

000002 

L.DLM 

000006 

S$$YSZ= 

007600 

000003 

L.DLS 

000010 

S.COST 

000001 

000001 

L.fLG 

000000 

S.FLG 

000000 

000012 

L.KRBA 

000016 

S.LEN 

000004 

000014 

L.LEN  = 

000022 

S.NMST 

000002 

000010 

L.MPF 

000022 

S.OWNR 

000003 

000042 

L.NMST 

000020 

T$$KMG= 

000000 

000034 

L.NSTA 

000014 

T$$MIN= 

000000 

000030 

L . OWNR 

000021 

V$$CTR= 

001000 

000044 

L.UNT 

000013 

X$$DBT= 

000000 

000032 

M$$CRB= 

000124 

$ALPHA= 

000022 

000040 

M$$CRX= 

000000 

$ANY  = 

000020 

000020 

M$$FCS= 

000000 

$BFR  = 

******   GX 

000017 

M$$MGE= 

000000 

$8LANK= 

000006 

000134 

M$$NET= 

000000 

$CAT5  = 

******   GX 

000122 

M$$OVR= 

000000 

SCDTB  = 

******  GX 

000016 

NEXT 

000040R 

002  $CEACC= 

»*♦♦♦*  GX 

000000 

NUMDTE= 

000020 

$DIGIT= 

000024 

000036 

N$$ACC= 

000001 

$DNUHB= 

000014 

000114 

N$$BUF= 

000001 

$E0S  = 

000012 

000072 

N$$LDV= 

000001 

SERROO 

000046R    002 

000104 

N$$MCP= 

000001 

$ERR03 

000106R    002 

000076 

N$$MLL= 

000001 

$ERR04 

000140R    002 

000074 

N$$MOV= 

000010 

$ERR05 

000170R    002 

000003 

N$$NCT= 

000001 

$ERR06 

000224R    002 

000106 

N$$PFM= 

000001 

$ERR1T= 

******  GX 

000046 

PCK8CD 

000756R 

SEXIT  = 

000000 

000066 

PF.XDF= 

*♦«•♦•  GX 

IFAIL  = 

177777 
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161 
162 
163 
16A 

165  00006A 

166  000124 

167  000160 

168  000212 

169  000256 

170  000312 

171  000346 

172  000402 
173 

174 
175 
176  000000 


.SBTTL  ERROR  MESSAGES 


.ENABL  LC 


NTLER$ 

,N0 

NTLERS 

.N1 

NTLERS 

,N2 

NTLERS 

,Ni 

NTLERS 

,PH 

NTLERS 

,00 

NTLERS 

,ns 

NTLERS 

,09 

.DSABL 

U 

.EVEN 

.LIST 

HEX 

.PSECT 

,8B,CERR,RTSPC,CFLIN,<circuit    ident i f ication> 
,8B,CERR,RTSPC,CFLIN,<process  owner  name> 
,8B,CERR,RTSPC,crLIN,<flags  byte  value> 
,8,CERR,RTSPC,CFLIN,<Resource  aUocation   faUure> 
,8B,CFRR,RTSPC,CFLIN,<maximum  block   size> 
,8B,CERR,RTSPC,CFLIN,<maxi'mum  window  size> 
,8B,CERR,RTSPC,CFLIN,<counter   timer   vatue> 
,8S,CERR,RTSPC,CFL]N,<logical   channel   number) 


n  u 
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687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 

703  001662 

704  001666 

705  001672 

706  001674 

707  001676 

708  001702 

709  001706 

710  001712 

711  001716 

712  001720 

713  001722 

714  001726 

715  001730 

716  001732 

717  001734 

718  001736 

719  001740 

720  00174  2 

721  001746 
122   001752 

723  001754 

724  001762 

725  001764 

726  001770 

727  001772 

728  001774 

729  002000 

730  002002 

731  002006 

732  002026 

733  002034 

734  002040 
755 

736  002044 

737  002062 

738  002066 

739  C02070 

740  002074 

741  002076 

742  002102 
74  3  C02^06 


016703 
022367 
001375 
005743 
166703 
010367 
006267 
066703 
011303 
100004 
066703 
006303 
011503 
005046 
110316 
006316 
012603 
016704 
016700 
012402 
022762 
001403 

000470 
060203 
062703 
011504 


016703 
016702 


005767 
100410 
026704 
001407 
06270? 

000417 


OOOOOOG 
OOOOOOG 


OOOOOOG 
000050' 
000030' 
OOOOOOG 


000026' 


OOOOOOG 
OOOOOOG 


.S8TTL  DLMTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 


OLMTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 

INPUTS: 

R1  -  PORT  NUMBER 

OUTPUTS; 

PORT  NUMBER  STORED  IN  TRANSPORT  LINE  COUNTER  BLOCK 

R0,R1,R2,R3,R4  DESTROYED 


DLMTLC: 
5$: 


10$: 


114224  OOOOOOG 


15$: 


OOOOOOG 


000100G 
000104G 


OOOOOOG 
OOOOOOG 
000046 


17$: 


20$: 


NOTE:  THIS  ROUTINE  MUST  BE  CALLED  FROM  SYSTEM  STATE 


MOV  $SLTMA,R5 

CMP  (R3)+,$SLIA 

BNE  5$ 

TST  -(R3) 

sue  $SLTMA,R3 

MOV  R3,DLMSLN 

ASR  DLMSLN 

ADD  $LLCTA,R3 

MOV  (R3),R3 

BPL  10$ 

ADD  DLMSTA,R3 

ASL  R3 

MOV  (R3),R3 

CLR  -(SP) 

MOVB  R3,(SP) 

ASL  (SP) 

MOV  (SP)+,R3 

MOV  $PDVTA,R4 

MOV  $PDVNM,RO 

MOV  (R4)t,R2 

CMP  #*RXPT,Z.NAM(R2) 

BEQ  17$ 

SOB  R0,15$ 

BR  60$ 

ADD  R2,R5 

ADD  #Z.MAP,R3 

MOV  (R3),R4 

SAVMAP 

GETRV  Z.DAT(R2),#N$XLEN 

MAP  N$TLC*2t$BFR 

MOV  N$TLC<-$aFR,R3 

MOV  N$TLCf4*$BFR,R2 

GETAD  R2,#T$LLEN 

TST  T$LIN'$BFR 

BHl  30$ 

CMP  T$LJNt$BFR,R4 

BEQ  40$ 

ADD  #T$LLEN,R2 

SOB  R3,20$ 

BR  50$ 


GET  ADDRESS  OF  VECTOR  TABLE 

IS  THIS  THE  CORRECT  ENTRY? 

BR  IF  NO 

BACK  UP  TO  CORRECT  ENTRY 

GET  SYSTEM  LINE  NUMBER*2 

SAVE  SYSTEM  LINE  NUMBER  FOR  LATER 

INDEX  INTO  REVERSE  MAPPING  TABLE 
GET  CHANNEL  NUMBER  AND  PDV  INDEX 
BR  IF  NOT  MULTIPOINT 
POINT  TO  CORRECT  STATION 
GET  ADDRESS  OF  STATION  TABLE 
GET  CHANNEL  NUMBER  AND  PDV  INDEX 
GET  INDEX  INTO  FORWARD  MAPPING  TABLE 


RETRIEVE  FORWARD  MAPPING  TABLE  INDEX 
GET  ADDRESS  OF  PDV  VECTOR  TABLE 
GET  NUMBER  OF  PDV'S  IN  SYSTEM 
GET  NEXT  PDV  IN  LIST 
IS  THiS  XPT? 

□D  ic  ypc 

CONTINUE  UNTIL  ALL  CHECKED 

XPT  NOT  IN  SYSTEM? 

POINT  TO  FORWARD  MAPPING  TABLE  ENTRY 

GET  SLN/STA  PAIR 

SAVE  CURRENT  MAPPING 

READ  IN  XPT'S  DDB 

MAP  TO  CIRCUIT  COUNTERS 

GET  NUMBER  OF  LINE  COUNTERS 

GET  ADDRESS  OF  MRST  COUNTER  BLOCK 

READ  IN  COUNTER  BLOCK 

HAS  THIS  BLOCK  BEEN  ASSIGNED  ALREADY? 

BR  IF  NO  -  USE  IT 

ELSE  IS  THIS  THE  ONE  WE  WANT? 

BR  IF  YES 

POINT  TO  NEXT  COUNTER  BLOCK 

CHECK  ALL  COUNTER  BLOCKS 

BR  IF  ONE  NOT  AVAILABLE 


M  15 

VFGSVC   -  CONFIG  FILE   SCAN  ACTIO  MACRO  VOS.C^b   Saturday   ?<*-Jun-85   02;50 

Table  ot  content<i 

5-  54    '1ACR0  DfflNITIONS 

6-  "1    LOCAL  DATA 
"-  "V    ERROR  MESSAGES 
b-  15A    $QSVC  -  LOOK  FOR  SVCtDF  MACRO 
9-  18?    SVCSDF  STATE  TABLE 

10-  257    5VC$DF  ACTION  ROUTINES 

U-  A<55    FNDOUN  -  FIND  SVC  OWNER'S  PDV  INDEX 

15-  52?    SETTLl  -  SET  UP  TRANSPORT  LINE  COUNTERS 

16-  5%    PCKB  D  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 

17-  653    STRNXT  -  STORE  NEXT  DIGIT 


VFGSvr 
fNDOwN 


n  16 

rONHG  flLE   SCAN   ACTIO  MACRO   V05.0?b   Saturday  29-Jun-85  02:50     Page   U 
HND   SVC   OWNER'S   POV   INDEX 


;9? 
49A 

49S 

i.97 
^98 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 

509  0012U 

510  001216 

511  001222 

512  001226 

513  001230 
5K  001232 

515  001234 

516  001240 

517  001242 

518  001246 

519  001250 

520  001252 

521  001254 

522  001256 

523  001262 

524  C01264 

525  001270 


.SBTIL  fNDOWN  -  FIND  SVC  OWNER'S  PDV  INDEX 


fNDOWN  -  FIND  PDV  INDEX  OF  SVC  OWNER 

INPUTS; 

R1  -  RAD50  PROCESS  NAME  OF  SVC  OWNER 

OUTPUTS: 

CARRY  CLEAR: 

R2  -  PDV  INDEX  OF  PROCESS 
CARRY  SET: 

PDV  INDEX  OF  OWNER  NOT  FOUND 


010146 

016701  OOOOOOG 

016702  OOOOOOG 
001407 

012100 

001403 

026016  OOOOOOG 

001403 

000261 

005226 

006016 

005741 

166701  OOOOOOG 

006316 

110167  000020' 


fNDOWN: 

MOV 

R1,-(SP) 

MOV 

$PDVIA,R1 

MOV 

$PDVNM,R2 

BEQ 

30$ 

10$: 

MOV 

(R1)t,R0 

BEQ 

20$ 

CMP 

Z.NAM(RO) 

BEQ 

40$ 

20$: 

SOB 

R2,10$ 

30$: 

SEC 

40$: 

INC 

(SP)  + 

ROR 

(SP) 

TST 

-(R1) 

SUB 

$PDVTA,R1 

ASL 

(SP) 

MOVB 

RI.OWNSVC 

(SP) 


RETURN 


SAVE  NAME  TO  BE  MATCHED 
GET  PDV  TABLE  ADDRESS 
AND  NUMBER  OF  PDV'S 
IF  ZERO,  NO  PDV'S! 
GET  PDV  ADDRESS 
IF  ZERO,  SKIP  THIS  ONE 
DOES  THE  NAME  MATCH? 
IF  EO,  YES  (C-81T  CLEAR) 
LOOP  iPDVNM  TIMES 

indicate  failure 
purge  stack 
save  c-bit 
calculate  pdv  mdex 

restore'c-bit 

save  owner  pdv  index 


3^58 
37  S? 
37bC 

37|tl 
3762 

37*;3 

3764 

3765 
3766 
3767 
3768 
3769 
377C 

7771 

3^72 

3773 
3774 
3775 

3776 
3777 
3778 
3"7w 
3760 
3781 
3782 
5783 
3784 
3785 
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017352 
C17354 
017356 
017360 
017362 
017364 
017366 
017370 
017372 

017374 


005745 
001007 
005745 
001005 
005745 
001003 
005745 
001001 
000261 


.SBTTL  CHKEVT  -  CHECK  THE  SPECIFIED  EVENT  MASKS 


CHKEVT  -  CHECK  THE  EVENT  FILTER  MASKS  TO  SEE  IF  ANY  MASKS  ARE 
STILL  SET 

INPUTS: 

R5  -  ADDRESS  OF  END  OF  EVENT  FILTER  MASKS  TO  OPERATE  ON 

OUTPUTS: 

CARR.  CLEAR: 

EVENT  MASKS  ARE  STILL  SET  IN  THE  FILTER  BLOCK 
CARRY  SET: 

THE  FILTER  BLOCK  DOES  NOT  CONTAIN  ANY  MASKS  THAT  ARE  SET 
R3,R5  DESTROYED 


CHKEV1 : 


10$: 


TST 

-(R5 

BNE 

10$ 

TST 

-(R5) 

BNE 

10$ 

TST 

-(R5) 

BNE 

10$ 

TST 

-(R5) 

BNE 

10$ 

SEC 

RETURN 

ARE  ANY  EVENT  MASKS  SET? 
3R  IF  YES 


ELSE  INDICATE  NO  MASKS  SET 


_J 
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4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 

4178  02C662 

4179  020662 
4180 

4181  020702 

4182  020710 

4183  020712 

4184  020720 
4185 

4186  020722 

4187 

4188  020730 

4189 

4190  020734 


.SBTTL  SVHST  -  SET/CLEAR  HOST  ADDRESS 

**-$VHST-  SET/CLEAR  HOST 

OUTPUTS; 

HOST  ADDRESS  UPDATED  IN  CEXCM 


SVHST: 


GETRV   $DECPT,#D$END 


OOOOOOG  OOOO^OG 
000040G  0O0022G 


032^67 
001404 
016767 
000403 


016767  000014G  000022G  10$: 
20$: 


BIT 
BED 
MOV 
BR 

MOV 

PUTRC 

RETURN 


#C.i1$SET,$CMAND 

10$ 

RQ8+L0.H0S,$BFR+D$H0ST 

20$ 

$BFR+D$LNUM,$BFRtD$HOST 


READ  DECNET  HOME  BLOCK 

IS  THIS  A  SET  OPERATION  ? 
IF  EQ,  NO  ..  MUST  BE  CLEAR 
ELSE,  STORE  HOST  NODE  ADDRESS 
AND  LEAVE 

SET  LOCAL  NODE  AS  HOST  NODE 

WRITE  BACK  DECNET  HOME  BLOCK 
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Symbol  table 
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S5.RP0= 

S5.SW1= 

S5.TMM= 

S5.VER= 

S5.X0f= 

S5.X0N= 

S6.E10= 

S6.RDI= 

S6.RLU= 

TF.FFE= 

TF.ROF= 

TF.RTO= 

TF.TAE= 

TF.TOF= 

TF.TTO= 

TF.URE= 

TF.USA= 

TICKS  = 

TMPMSK 

TR.ALF 

TR.DEV 

TR.LEN= 

TR.MST 

TR.PRE 

TR.TLZ 

TS<SCH 

TS.BIK= 

T3.CKP= 

TS.CKR= 

TS.EXE= 

TS.HLD= 

TS.MSG= 

TS.NRP= 

TS.OUT= 

TS.RDN= 

TS.RUN= 

TS.STP= 

rX.NXM= 

TX.OVR= 

TX.TMO= 

TY$CHA= 

T''$EVE  = 

TY$STA= 

TY$SUM= 

TSFLAG 

T$LIF 

TSLIFL 

TSLIFO 

TSLIFS 

T$LIN 

TSLIPS 

T$LLD 

TSLLDC 

TSLLDL 

TSLLDO 

T$LLDS 

TSLLtN 


002000 

000001 

000002 

010000 

000004 

000010 

000400 

100000 

001000 

OOOOOA 

000001 

000002 

000010 

000004 

000010 

000001 

000002 

000001 

000076R 

000102 

000100 

000210 

000074 

000076 

000072 

021630R 

171700 

000200 

000100 

100000 

002000 

02C00C 

010000 

000400 

040000 

004000 

001000 

000002 

000001 

000004 

000400 

001 000 

002000 

000000 

00004/: 

000013 
000013 
000013 
000013 
000000 
000006 
000012 
000045 
000012 
000012 
000012 
000046 


002 


TSLOPR 

000002 

TSLTCL 

000024 

TSLTIM 

000026 

TSLTPR 

000014 

TSLTPS 

000020 

TiNAPL 

000004 

TSNFE 

000000 

TSNLEN 

000010 

TSNNUL 

000002 

TSNOPL 

000006 

TSNRNI 

000042 

TSNRPL 

000005 

TSNRUL 

000007 

T$N\/R 

000001 

TSRPRI 

000040 

TSSVC 

000034 

T$T5 

000030 

T$T6 

000032 

T$$KMG= 

000000 

T$$MIN= 

000000 

T.ACT 

000031 

T.ACIL 

000052 

T.ASTL 

000016 

T.ATT 

000062 

T.BTTC 

000074 

T.BUF 

000006 

T.CHA 

000032 

T.CPCB 

000004 

T.CSR 

000022 

T.DELT 

000056 

T.DIN 

000044 

T.DOUT 

000042 

T.DPRI 

000040 

T.EFLG 

000022 

T.ERRC 

000020 

T.IOC 

000003 

T.ITM 

000001 

T.LBF 

000046 

T.LBN 

000041 

r.LDV 

000044 

T.LNK 

000000 

T.LTM 

000054 

T.nxsz 

000050 

T.NAM 

000006 

T.NDM 

000066 

T.OFF 

000066 

T.PCB 

000046 

T.PIND 

000007 

T.PRI 

000002 

T.QRAC 

000060 

T.ORIN 

000062 

T.QRPD 

000064 

T.QdE 

000024 

T.QU2  = 

-  000026 

T.RBF 

000050 

T.RBTC 

000020 

T.RCVL 

000012 

T.RDAT 
T.RRFL 
T.RTM 


.RTV 
T.SAST 
T.SEL 
T.SELT 

.SFNC 

.sue 

.SRCT 
.STAT 


T. 

T. 

T. 

T.- 

T.ST2 

T.ST3 

T.TCBL 

T 

T 

T 

T 


TIMC 

TIO 

TKSZ 

TMR 
T.TOD 
T.TRLG= 
T.TRLN 
T.TRPN 
T.UCB 
T.XASQ 
T.XBTC 
T.XDAT 
T2.AB0= 
T2.AST= 
T2.CAF= 
T2.CHK= 
T2.CKD= 
T2.DST= 
T2.FXD= 
T2.HLT= 
T2.REX= 
T2.SEF= 
T2.SPN= 
T2.STP= 
T2.WFR= 
T3.ACP= 
T3.CAL= 
T3.CLI= 
T3.GFL= 
T3.MCR= 
T3.NET= 
T3.NSD= 
T3.PMD= 
T3.PRV= 
T3.REM= 
T3.R0V= 
T3.RST= 
T3.SLV= 
T3.SWS= 
UC.ALG= 
UC.An= 
UC.KIL= 
UC.LGH= 


000034 
000072 
000055 
000030 
000054 
000040 
000052 
000014 
000072 
000071 
000032 
000034 
000036 
000030 
000016 
000057 
000060 
000000 
000070 
000076 
000005 
000004 
000026 
000010 
000024 
000030 
000100 
100000 
000400 
020000 
010000 
040000 
002000 
000200 
001000 
004000 
000004 
000020 
000001 
100000 
000100 
00^000 
00U010 
004000 
000020 
000200 
040000 
010000 
020000 
000040 
000400 
002000 
000002 
000200 
000010 
000004 
000003 


UC.NPR= 
UC.PWF= 
UC.QUE= 
UD.UNS= 
UD.160= 
UD.200= 
UD.556= 
UD.625= 
UD.8K  = 
UD.800= 
UM.CLI= 
UH.DSB= 
UM.NBR= 
UM.0VR= 
US.ABO= 
US.BSP-- 
US.BSY= 
US.FOR= 
US.FRK= 
US.KPF= 
US.LAB= 
US.MDE= 
US.MDM= 
US.HNT= 
US.OFL= 
US.PUB= 
US.PUF= 
US.RED= 
US.SHR= 
US.SPU= 
US.UMD= 
US.VV  = 
US.WCK= 
UiJ.ABO= 
UU.ATN= 
UU.AVN= 

uu.Gur= 

UU.IOS= 
UU.ONL= 
UU.RCT= 
UU.RDY= 
UU.SER= 
UU.SIO= 
UU.SPC= 
U.ACB 
U.ACP  = 
U.ADMA 
U.AFLG 
U.ATT 
U.BPKT= 
U.BUF 
U.CBF  = 
U.CLI 
i.CNT 
.GOTO 
.CTCB 
O.CTL 


000100 
000020 
000040 
000000 
000004 
000001 
000002 
000005 
000006 
000003 
000036 
000200 
000400 
000001 
000001 
000002 
000200 
000040 
000002 
000001 
000004 
000002 
000020 
000100 
000001 
000004 
000010 
000002 
000001 
000002 
000010 
000001 
000010 
000400 
000100 
000004 
000010 
002000 
000020 
000002 
000200 
000001 
001000 
000040 
000062 
000032 
000066 
000064 
001022 
0000^4 
00002'. 
000032 
M7772 
000030 
000030 
000026 
000004 


U.CTYP 

U.CW1 

U.CW2 

U.CU3 

U.CW4 

U.CYL  = 

U.DCB 

U.FCDE= 

U.FNUM= 

U.GRP  = 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.MEDI= 

U.MLUN= 

U.HUP 

U.OWN 

U.RBNS= 

U.RCTC= 

U.RCTS= 

U.RED 

U.RED2 

U.SCB 

U.SHST= 

U.SHUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SUB  = 

U.TCHP 

U.TCVP 

U.TFLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TST5 

U.TST6 

U.TTAB 

U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNTI= 

U.USVR= 

U.UTIL= 

U.VCB  = 

U.VSER= 

U.2MED= 

U2.AT.= 

U2.CRT= 

U2.DH1= 


000052 
000010 
000012 
000014 
000016 
000104 
000000 
000042 
000040 
000102 
000032 
000034 
177774 
000040 
00005-^ 

\mu 

177776 
000112 
000113 
000110 
000002 
000034 
000020 
000076 
000074 
000036 
000005 
000007 
000036 
000042 
000043 
000040 
000036 
000060 
000053 
000047 
000100 
000026 
000054 
000056 
000050 
000046 
000024 
000107 
000044 
000052 
000006 
000114 
000060 
000106 
000036 
000034 
000120 
000070 
000020 
002000 
100000 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


OPSRPA 

OPSSCO 

OPSSEG 

OPtSER 

OPSSIN 

OPSSTA 

OPtTER 

OPSTPA 

OP$TRI 

OPSUCS 

OPSUSE 

OPSVEC 

OPSVER 

OPSXAC 

OPSXPR 

0P$X5S 

0P$X9S 

O.FLG 

O.LEN 

O.MXC 

O.NAM 

O.TYP 

PDVX 

PHSHDE 

PHSLOC 

PKSMTS 

PHSUMP 

PHSWCS 

PL8FLG 

PROEVT 

PRVUNM 

PVAL'D 

PSLEN 

P.LEN 

P.TRIB 

QFSACT 

QFIALL 

QFSlfNO 

QFSLOO 

QINS 

QUICK 

REMALI 

REM  INC 

REMNOD 

REMOTE 

RESADC 

RESADF 

RESADR 

RESBLK 

RESCAf 

RESDAT 


000010 
000001 
000^00 
000400 
000010 
000004 
000001 
000020 
000040 
000020 
000002 
000040 
000040 
000001 
000002 
000004 
000010 
000003 
000012 
000004 
000006 
000002 
000072  R 
000004 
000002 
000003 
000000 
000001 
000122  R 
012422  R 
000166  R 
000240  R 
000052 
:  000154 
000014 
:  000001 
:  000002 
:  000004 

'■   000010 
005636  R 
005576  R 
011074  R 
005172  R 
004310  R 
C00132  R 
:  000004 
:  000017 
:  000007 
■  000010 

:  000014 

:  000001 


REFERENCES 

#5-73 

#5-73 

#5-73 

#5-73 

#5-73 

#5-73 

#5-79 

#5-73 

#5-73 

#5-73 

#5-73 

#5-73 

#5-73 

#5-73 

#5-73 

#5-75 

#5-73 

♦41-2234 
29-1620 

♦41-2233 

♦41-2251 
29-1621 

#6-137 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#6-143 
45-2568 

#6-160 

#7-181 
74-4015 
22-1031 
22-1033 

#5-73 

#5-73 

#5-73 
56-3150 

#5-73 
28-1580 

#31-1675 
42-2316 
27-1460 
27-1395 

#6-150 

#5-79 

#5-79 

#5-79 

#5-79 

#5-79 

#f  1 


25-1189 
42-2311 
25-1187 

7-183 


25-1189 


41-2238 
25-1189 


♦41-2237 
41-2221 
♦41-2266 
♦41-2252 
♦41-2264 
♦39-1951 


#46-2638 

♦29-1616 

44-2507 

74-4055 


42-2307 
41-2203 
58-3244 


#42-2319 
#28-1569 
#27-1398 
♦54-3063 
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42-2361 


59-3308 


43-2467 


59-3333 


71-3905    73-3975 


♦41-2240 
41-2258 

♦41-2267 

41-2275 

♦40-2096 


♦41-2243 
41-2273 

♦41-2268 


♦41-2247   ^41-2248   ^41-2265 


29-1623   ♦30-1644    30-1652   ^60-3375    60-3401   ♦61-3428    61-3458 
75-4106 


41-2210 
73-3960 


41-2223    42-2307   43-2465 


47-2689 


55-3090 


56-5126 


#52-1706    41-2278    59-5547 


42-2376    45-2473 


28-1497 
•54-3067 


61-3451    71-5894 
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\l\l 

vv 

EEEEEEEEEE 

XX      XX 

pppppppp 

vv 

vv 

EEEEEEEEEE 

XX      XX 

pppppppp 

vv 

vv 

EE 

XX      XX 

pp    pp 

vv 

vv 

EE 

XX      XX 

pp    pp 

vv 

vv 

EE 

XX  XX 

pp    pp 

vv 

vv 

EE 

XX  XX 

pp    pp 

vv 

vv 

EEEEEEEE 

XX 

pppppppp 

vv 

vv 

EEEEEEEE 

XX 

pppppppp 

vv 

vv 

EE 

XX  XX 

pp 

vv 

vv 

EE 

XX   XX 

pp 

vv 

vv 

EE 

XX      XX 

pp 

vv 

vv 

EE 

XX      XX 

pp 

vv 

EEEEEEEEEE 

XX      XX 

pp 

vv 

EEEEEEEEEE 

XX      XX 

pp 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SSSSSSSS 

TTTTTTTTTT 

LL 

SS 

LL 

5S 

LL 

SS 

LL 

SS 

_L 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 
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250 

251  000172 

016724 

OOOOOOG 

CriM: 

MOV 

$CTIM,(R4)+ 

STORE  THE  COUNTER  TIMER  VALUE 

252  000176 

RETURN 

253 

254 
255 
256 
257  000200 

;•  DEVICE  CHARACTERISTICS 

005000 

DVCHA: 

CLR 

RO 

ASSUME  DLC 

258  000202 

032767 

OOCOOOG 

OOOOOOG 

BIT 

#FL.DDM,$FLAGS 

IS  IT  A  DDM? 

259  000210 

001414 

BEQ 

10$ 

IF  EQ,  NO 

260  000212 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

IS  IT  A  MUX  DEVICE? 

261  000220 

001410 

BEQ 

10$ 

IF  EQ,  NO 

262  000222 

005767 

000450' 

TST 

FLAGS 

IS  IT  MUX  EXPANSION? 

263  000226 

100023 

BPL 

101$ 

IF  PL,  NO 

264  000230 

016700 

000446' 

MOV 

INDEX, RO 

GET  SECONDARY  FILE  COUNTER 

265  000234 

006300 

ASL 

RO 

CONVEkT  TO  A  DOUBLEUORD  INDEX 

266  000236 

006300 

ASL 

RO 

267  000240 

022020 

CMP 

(RO)+,(RO)t 

SKIP  DLC'CHARACTERISTICS 

268  000242 

10$: 

SAVRG 

R1 

SAVE  REG 

269  000244 

016701 

OOOOOOG 

MOV 

$SLTA,R1 

COPY  SLT  ADDRESS 

270  000250 

010461 

177776 

MOV 

R4,L.CVA(R1) 

STORE  DfcV  CHAR  POINTER 

271  000254 

066761 

OOOOOOG 

Mmb 

ADD 

$LINK,L.CVA(R1) 

.  .  . 

272  000262 

273 

274  000264 

RESRG 

R1 

RESTORE  REG 

016024 

OOOOOOG 

MOV 

$$DCHA(R0).(R4)+ 
$$DCHA+2(R0),(R4 

;  COPY  DEVICE  CHARACTERISTICS 

275  000270 

016024 

000002G 

MOV 

+  ;  TWO  WORDS 

276  000274 

RETURN 

277  000276 

012724 

177777 

lOU: 

MOV 

#-1,(R4)t 

DDM  DVCHA  NOT  IN  MXTAB  fILE 

278  000302 

012724 

MJin 

MOV 

#-1,(R4)t 

279  0G0306 

RETURN 

280 

281 
282 
283 
284  000310 

;  PROTOCOL  EMULATOR  CHARACTERISTICS 

005000 

PECHA: 

CLR 

RO 

•  ASSUME  DLC 

285  000312 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.DDM,$FLAGS 

•  IS  IT  A  DDM? 

286  000320 

001413 

BEQ 

10$ 

•  IF  EQ,  NO 

287  000322 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#FL.MUX,$FLAGS 

■  IS  IT  A  MUX  DEVICE? 

288  000330 

001407 

BEQ 

10$ 

•  IF  EQ,  NO 

289  000332 

005767 

000450' 

TST 

FLAGS 

■   S  IT  MUX  EXPANSION? 

290  000336 

100004 

BPL 

10$ 

•   F  PL,  NO 

291  000340 

016700 

000446' 

MOV 

INDEX, RO 

■  GET  SECONDARY  FILE  COUNTER 

292  000344 

006300 

ASL 

RO 

;  CONVERT  TO  A  WORD  INDEX 

293  000346 

005720 

TST 

(RO)t 

;  SKIP  DLC  CHARACTERISTICS 

294  000350 

016024 

0000006 

10$: 

MOV 

$$PCHA(R0),(R4)+ 

;  COPY  DEVICE  CHARACTERISTICS 

295  000354 

RETURN 

296 

297 

298 

■  END 

OF  FILE 

299 

300  000356 

bf: 

CRASH 

301 

302 
303 
304 

305  000360 

;  LOGICAL  LINKS 

LINKS 

SWTCHI 

*$HM8UF 

;  SET  INPUT  BUFFER  ADDRESS 

3C6  000366 

GETRV 

$DECPT,*D$END 

;  READ  DECNET  HOME  BLOCK 

VEX2  -  VNP  EXPANSION  ROUTINES 
X3CH 


785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
80A 
805 
806 
807 
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.S8TTL  X3CH 


002240  016724  OOOOOOG 
002244 


002246  016724  OOOOOOG 
002252 


002254  116724  OOOOOOG 
002260 


002262  116724  OOOOOOG 
002266 


809 

810  002270 

811  002274 
812 

813 
814 

815  002276 

816  002302 
817 

818 
819 

820  002304 

821  002310 
822 

823 
824 

825  002312 

826  002316 
827 

828 
829 

830  002320 

831  002324 
832 

833 
834 

835  002326 

836  002332 
837 

838 
839 

840  002334 

841  002340 


116724  OOOOOOG 


116724  OOOOOOG 


116724  OOOOOOG 


116724  OOOOOOG 


116724  OOOOOOG 


116724  OOOOOOG 


116724  OOOOOOG 


;•  DEFAULT  BLOCK 

SIZE 

X3C,;01:  MOV 

RETURN 

$X3DBS, 

(R4)  + 

•  MAXIMUM  BLOCK 

SIZE 

X3CH02:  MOV 

RETURN 

$X3MBS, 

(R4)t 

;  DEFAULT  WINDOW  SIZE 

X3CH03:  MOVB 

RETURN 

$X3DWS, 

(R4)t 

;  MAXIMUM  WINDOW  SIZE 

X3CH04:  MOVB 

RETURN 

$X3MWS 

(R4)  + 

;•  CALL  TIMER 

X3CH05:  MOVB 

RETURN 

$X3CAL 

(R4)  + 

;  CLEAR  TIMER 

X3CH06:  MOVB 

RETURN 

$X3CLR 

(R4)  + 

;  RESET  TIMER 

X3CH07:  MOVB 

RETURN 

$X3RES 

(R4)  + 

':    RESTART  TIMF', 

X3CH08:  MOVB 

RETURN 

$X3RST 

(R4)  + 

;  MAXIMUM  CLEAR 

VALUE 

X3CH09:  MOVB 

"TTURN 

$X3MCL 

(R4)* 

;  MAXIMUM  RESETS  VALUE 

X3CH10:  MOVB 

RETURN 

$X3MRE 

, (R4)t 

;  MAXIMUM  RESTARTS  VALUE 

X3CH11:  MOVB 

RETURN 

$X3MRS 

,(R4W 

STORE  DEFAULT  BLOCK  SIZE 


STORE  MAXIMUM  BLOCK  SIZE 


;  STORE  DEFAULT  WINDOW  SIZE 


STORE  MAXIMUM  WINDOW  SIZE 


STORE  CALL  1IMER 


STORE  CLEAR  TIMER 


STORE  RESET  TIMER 


STORE  RESTART  TIMER 


STORE  MAXIMUM  CLEAR  VALUE 


STORE  MAXIMUM  RESETS  VALUE 


STORE  MAXIMUM  RESTARTS  VALUE 
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MACRO  DEFINITIONS 

115  000110  TTA8$  PECHA.NULL 

lU  000112  TTAB$  XBCHOl.NULL 

115  00011A  TTA8$  X3CH02,NULL 

116  000116  TTABS  X3CH03,NULL 

117  000120  TTA8$  X3CH0A,NULL 

118  000122  TTABS  X3CH05,NULL 

119  000124  TTABS  X3CH06,NULL 

120  000126  TTABS  X3CH07,NULL 

121  000130  TTABS  X3CH08,NULL 

122  000132  TTABS  X3CH09,NULL 

123  000134  TTABS  X3CH10,NULL 

124  000136  TTABS  X3CHn,NULL 

125  OOOUO  TTABS  X2CH01,NULL 

126  000U2  TTABS  X2CH02,NULL 
-,27  000144  TTABS  X2CH03,NULL 

128  000146  TTABS  X2CH04,NULL 

129  000150  TTABS  X2CH05,NULL 
130 
131  000000  .PSECT 
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VEX5  -  VNP  UPDATE  LINE  TABLES 
MACRO  DEFINITIONS 

115  000074 
1U  000076 

115  000100 

116  000102 

117  000104 

118  000106 

119  000110 

120  000112 

121  0001U 

122  000116 

123  000120 

124  000122 

125  000124 

126  000126 

127  000130 

128  000132 

129  000134 

130  000136 

131  000140 

132  000142 

133  000144 

134  000146 

135  000150 
136 
137 
138 
139 

140  000152 
141 
142 
143 
144 

145  000154 
146 
147 
148 
149 

150  000156 

151  000160 

152  000162 

153  000164 
154 
155  000000 
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TTA8$ 
TTABS 
TTAS$ 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 
TTABS 


W0RD,P0P2 

APR.POPI 

DPRB.POPI 

DPRW,P0P2 

TIMF,P0P2 

MXPTB.XMXPTB 

PECHA.NULL 

X3CH0l,NULL 

X3CH02,NULL 

X3CH03,NULL 

X3CH04,NULL 

X3CH05,NULL 

X3CH06,NULL 

X3CH07,NULL 

X3CH08,NULL 

X3CH09,NULL 

X3CH10,NULL 

X3CH11,NULL 

X2CH01,NULL 

X2CH02,NULL 

X2CH03,NULL 

X2CH04,NULL 

X2CH05,NULL 


SECONDARV  FILE  INDEX  VALUE 
INDEX:   .BLKW   1 

MUX/MTP  FLAGS 
FLAGS:   .BLKW   1 


;  ZERO  =   NORMAL,  NON-ZERO  -  MUX 


DATA  NEEDED  FOR  SEARCH  OF  UNLOAD  BLOCKS 


UBIAS: 

.GLKW 

1 

:JBA: 

.BLKW 

1 

CTRADD: 

.BLKW 

1 

BLOCK: 

.BLKW 

32. 

BIAS/ADDRESS  OF  LIBRARY  DESCRIPTOR 
OFFSET  TO  I IBRARY  DESCRIPTOR 
CONTROLLER  TABLE  STARTING  ADDRESS 
LOCttL  COPY  OF  UNLOAD  BLOCK  (FROM  POOL..) 


.PSECT 


VEX5  -  VNP  UPDATE  LINE  TABLE5 

X2CH 

73A 

735 

736 

757 

738 

001750 

005203 

739 

001752 

740 

741 

742 

743 

001754 

005723 

744 

001756 

745 

746 

747 

748 

001760 

005203 

749 

001762 

750 

751 

752 

753 

001764 

005723 

754 

001766 

755 

756 

757 

758 

001770 

005  ■'•5 

759 

001772 

760 

761 

762 

000001 

N  10 
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.SBTTL  X2CII 
;  MAXIMUM  WINDOW  SIZE 


X2CH01: 


INC 
RETURN 


R3 


;  MAXIMUM  BIOCK  SIZE 


X2CH02:  TST 

RETURN 


(R3)  + 


MAXIMUM  RETRANSMIT  COUNT 


X2CH03:  INC 

HE  TURN 


R3 


RETRANSMIT  TIMER 


X2CH04:  TST     (R3)t 
RETURN 

•  HOLDBACK  TIMER 


X2CH05 


TST 
RETURN 


•  END 


(R3)  + 
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138 
139 
KO 
U1 
U2 
U3 
U4 
U5 
U6 
K7 
US 
K9 
150 

151  000000 

152  000000 

153  OOOOOA 
15A  000006 

155  000012 

156  000016 

157  000022 

158  000026 

159  000032 

160  00003A 

161  OOOOAO 

162  000042 
163 

16A 
165 
166 
1b7  OOOOAA 


.SBTTL  LOOK  FOR  DTESDF  MACRO 


$QDTE  -  LOOK  FOR  OTESRF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
R3,R4,R5=DESTROYED 


012705  000000' 
00500  1 

012702  000000' 

016703  OOOOOOG 

012704  OOOOOOG 

005067  OOOOOOG 

103003 

005367  OOOOOOG 

0OUO1 


$3DTE:: 

MOV 

#DTEDF,R5 

CLR 

R1 

MOV 

#DTEKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFGBF,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNEKR 

BEQ 

101$ 

2ui:    RETURN 

;  ERROR  CONDITION 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 


;[TD001] 
.-CTDOOI] 
;[TD001J 
:**-1 


$GETAD=  »«••♦•  GX 
tGETRV:  •»»•..  GX 
$LAMDA=  000000 
tNUMBR=  000002 
$PFLAG=  •»♦***  GX 


II] 
II] 
I1J 
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VfGDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02; 
Symbol  table 


ABS. 

DATA 
SSTATE 
SKTAB 
SKSTR 


177776 
001036 
0002A4 
000154 
000006 
000016 


Errors  detected: 


000 
001 
002 
003 
OCA 
005 
0 


SPSIPT:  »*»»♦»  GX 

SQDTE  OOOOOORG 

$RADDR=  ••»**«  GX 

$RAD50=  000016 

$RBLCK=  *»*•♦♦  GX 


(RU,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 
(RU,D,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 


$SAVAL=  •♦*»»*  GX 
$SAVRG=  *•♦***  GX 
$STRNG=  OOOOOA 
$SUBXP=  000010 

$$$FLG=  \mn 


28  Page  20-2 

$$$KEV=  000002 

$$$R  =  000010 

$I$STA=  000000 

$$$TMP=  000012R 

.PCHAR=  »«*•*♦  GX 


005 


.PNUMB= 

****** 

GX 

.PNUMH= 

****** 

GX 

.PSTCN= 

****** 

uX 

.PSTPT= 

****** 

(>X 

.TPARS= 

****** 

GX 

»♦*  Assembler  statistics 


Work  tile  reads: 
Work  file  write"; 
Size  of  work  file; 
Size  of  core  pool ; 
Operating  system; 


0 

0 

16811   Words     (  66  Pages) 

17608  Words      (   67  Pages) 

RSX-11M/PLUS 


SYtvFGDTE!v2![°32??3A^}FGDTE/CR/-SP=5V:t1  J]RSXMCM.SML/ML,ri30J10]NETLI8/NIL,[130,10]RSXMCM/PA:1,L132,10]VFGDTE 


VFGPVC  - 

INITIAL  CONFIG 

FILE  SC  MACRO 

LOOH  rOR 

PVCSDF 

MACRO 

178 

179 

180 

181 

182 

183 

18A 

18? 

186 

187 

188 

189 

190 

000000 

005067 

000032' 

191 

000004 

012705 

000000' 

192 

000010 

005001 

193 

000012 

012702 

000000' 

19^ 

000016 

016703 

OOOOOOG 

195 

000022 

012704 

OOOOOOG 

196 

000026 

005067 

OOOOOOG 

197 

000032 

198 

000036 

103003 

199 

000040 

005367 

OOOOOOG 

200 

000044 

001401 

201 

000046 

202 

203 

20A 

205 

206 

000050 

N  13 

0?:29 


Page  9 


.SBTTL  LOOK  FOR  PVCSDF  MACRO 


SQPVC  -  LOOK  FOR  PVCSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
R3,R4,R5=DESTROVED 


toPVC:: 

CLR 

FLAG 

MOV 

*PVCDF,R5 

CLR 

Rl 

MOV 

#PCVKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFG8F,R4 

CLR 

SYNERR 

CALL 

.TPAfi3 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

20S: 

RETURN 

;  ERROR 

CONDITION 

101S: 

EMSGSR 

IT 

CLEAR  LOCAL  FLAGS  WORD 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

Go  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DJD  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 


N  U 
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Page  ?0-1 


7A4  002110 

010467 

OOOOOOG 

^0$: 

MOV 

745  0021U 

1i0167 

0OOC36G 

40$: 

M0V8 

746  002120 

152767 

000200 

000044G 

BISB 

747  002126 

016767 

000000' 

000050G 

MOV 

748  002154 

016767 

000002' 

000052G 

MOV 

749  002142 

PUTAD 

750  002146 

50$: 

RE  SWAP 

751  002152 

60$: 

RETURN 

752 

755 

000001 

.END 

R4,T$LIN*$BFR 

Ri,T$SVC»$BFR«2 

#PX$DLM,T$FLAG'$8fR 

HTIMR,TtT5»$BFR 

LTIMR,T$T6t$8FR 


STORE  SLN/STA  PAIR 

STORE  PORT  NUMBER 

INDICATE  DLM  PVC 

STORE  HELLO  TIMER 

AND  LISTEN  TIMER 

REWRITE  UPDATED  COUNTER  BLOCK 

RESTORE  PREVIOUS  MAPPING 
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1 
2 
Z 

■; 
6 

7 

8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE 
.IDENT 


VfGSVC  -  CONFIG  flLE  SCAN  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  '.D  RESPONSIBILITY  FOR  THE  USE  OR   RELIABILITY   OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  04-MAR-82 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  Vl.O 


ITS 


J 


2 

2 
2 
3 
3 
3 
3 
3 
3 

H  3 
I  3 


N  3 
B  A 


4 
t, 

A 

4 
5 

[  5 
D  5 
E  5 
p  t; 

G  5 
-^  5 
I  5 


J  5 

E  10 

K  5 

F  10 

L  5 

G  10 

M   5 

H  10 
I  10 

N  5  VBXP 

B  6 
C  6 

i\l 

D  6 
E  6 

Vyl 

F  6 

N  10 

G  6  VEX2 

B  11 

H  6 

C  11 

I  6 

D  11 

J  6 

E  11 

K  6 

F  11 

L  6 

G  11 

M  6 

H  11 

N   6 

I  11 

B  7 

J  11 

C  7 

K  11 

D   7 

L  11 

E  7 

M  11 

F   7 

N  11 

G  7 

B  12 

H   7 

C  12 

I   7 

0  12 

J  7 

E  12 

K   7 

F  12 

L   7 

G  12 

M  7 

H  12 

N   7 

I  12 

B  8 

J  12 

C  8 

K  12 

D  8 

L  12 

E  8 

M  12 

F  8 

N  12 

G  8 

B  13 

H  8 

C  13 

I  8 

D  13 

J  8  VEX3 

I   13 

K  8 

F  13 

L  8 

G  13 

M  8 

H  13 

N  8 

I  13 

B  9 

J  13 

C  9 

K  13 

D  9 

L  13 

E  9 

M  13 

F  9 

N  13 

G  9 

B  K 

H  9 

C  K 

I  9 

D  U 

J  9  VEX5 

E  U 

K  9 

F  U 

L  9 

G  U 

M  9 

H  K 

N  9 

I  K 

B  10 

J  U 

K  U 

D  10 

L  H 

VFGD1E 


VF6PVC 


M 

N 

R 

r 

1) 

F 

F 

r, 

H 

1 

,1 

K 

1 

M 

N 

R 

1ft 

r 

16 

R 

16 

F 

16 

F 

16 

G 

16 

H 

16 

I 

16 

J 

16 

K 

16 

L 

16 

M  16 


VFGSVC 
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SETTLC  -  SET  OP  r^AMSPORT  LINE  COUNTERS 


527 

528 
529 
530 
531 
532 
533 
53A 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 

545  001272 

546  001276 

547  001302 

548  001304 

549  001306 

550  001312 

551  001316 

552  001320 

553  001322 

554  001326 

555  001330 

556  001332 

557  001334 

558  001336 

559  001340 

560  001342 

561  001344 

562  001350 

563  001354 

564  001356 

565  001360 

566  001364 

567  001366 

568  001372 

569  001412 

570  001420 

571  001'.24 
572 

573  001430 

574  001446 

575  001452 

576  001454 

577  001460 

578  001462 

579  C0K66 

580  00-  '2 
58'  00T.74 
582  001 500 
585  001506 


.SBTTL  SETTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 


SETTLC  -  SET  UP  TRANSPORT  LINE  COUNTERS 

INPUTS: 

RO  -  APR  BIAS  OF  SVC  DESCRIPTOR  BLOCK 

R1  -  VIRTUAL  ADDRESS  OF  SVC  DESCRIPTOR  BLOCK 

OUTPUTS: 

APR  BIAS  AND  VIRTUAL  ADDRESS  OF  SVC  DESCRIPTOR  BLOCK 
STORED  II  TRANSPORT  LINE  COUNTER  BLOCK 

R0,R1.R2,R3,f(4  DEiTROVED 

NOTE:  THIS  ROUTINE  MUST  BE  CALLED  FROM  SYSTEM  STATE 


016703 

OOOOOOG 

SETTLC:  MOV 

022367 

000016- 

5$:     CMP 

001375 

BNE 

005743 

TST 

166703 

OOOOOOG 

SUB 

066703 

OOOOOOG 

ADD 

011303 

MOV 

100004 

BPL 

066703 

000014' 

ADD 

006303 

ASL 

011303 

MOV 

005046 

10$:    CLR 

110316 

MOVB 

006316 

ASL 

012603 

MOV 

005046 

CLR 

116716 

000020' 

MOVB 

066716 

OOOOOOG 

ADD 

013602 

MOV 

060203 

ADD 

062703 

OOOOOOG 

ADD 

011304 

MOV 
SAVMAP 
GETRV 
MAP 

016703 

000100G 

MOV 

016702 

000104G 

MOV 

005767 
100410 
026704 
001  ,j7 
062702 

000432 
010467 
152767 

005067 


20$: 


OOOOOOG 
OOOOOOG 
000046 


OOOOOOG  30$: 
000300  000044G  40$: 
000034G 


GETAD 

TST 

BMI 

CMP 

BEQ 

ADD 

SOB 

BR 

MOV 

B1S8 

CLR 


$SLTMA,R3 

■:R3)  +  ,SLTA 

5$ 

-(fi3) 

$SLTMA,R3 

$LLCTA,R3 

(R3),R^ 

10$ 

STASVC,R3 

R3 

(R3),R3 

-(SP) 

R3,(SP; 

CSP) 

(SP)+,R3 

-(SPi 

OWNSvC,(SP) 

$PDVTA,(SP) 

a(SP)+,R2 

R2,R3 

#Z.MAP,R3 

(R3),R4 

Z.DAT(R2),#N$XLEN 
N$TLC+2+$BFR 
N$TLC+$BFR,R3 
N$TLC+4t$BFR,R2 


GET  SLT  VECTOR  TABLE  ADDRESS 

IS  THIS  THE  CORRECT  ENTRY? 

BR  IF  NO 

POINT  TO  CORRECT  ENTRY 

GET  SYSTEM  LINE  NUMBER*2 

INDEX  INTO  REVERSE  MAPPING  TABLE 

GET  CHANNEL  NUMBER  AND  PDV  INDEX 

BR  IF  NOT  MULTIPOINT 

POINT  TO  CORRECT  STATION  ENTRY 

GET  ADDRESS  OF  STATION  TABLE 

GET  CHANNEL  NUMBER  AND  PDV  'NDEX 

GET  INDEX  INTO  FORWARD  MAPPING  TABLE 


RETRIEVE  FORWARD  MAPPING  TABLE  INDEX 
GET  XPT'S  PDV  'NDEX 

POINT  TO  XPT'S  PDV  ADDRESS 

GET  XPT'S  PDV  ADDRESS 

POINT  TO  FORWARD  MAPPING  TABLE  ENTRY 

GET  SLN/STA  PAIR 

SAVE  CURRENT  MAPPING 

READ  IN  XPT'S  DDB 

MAP  TO  COUNTERS 

GET  NUMBER  OF  LINE  COUNTERS 

GET  ADDRESS  OF  FIRST  COUNTER  BLOCK 

n2,#T$LLEN  ;  READ  IN  COUNTER  BLOCK 

T$LINt$BFR  ;  HAS  THIS  BLOCK  BEEN  ASSIGNED  ALREADY 

30$  ;  BR  IF  NO  -  USE  IT 

T$LIN+$BFR,R4  ;  ELSE  IS  THIS  THE  ONE  WE  WANT? 

40$  ;  BR  IF  YES 

#T$LLEN,R2  ;  POINT  TO  NEXT  COUNTER  BLOCK 

R3,20$  ;  CHECK  ALL  COUNTER  BLOCKS 

60$  ;  CONTINUE 

R4,T$LIN+$BFR  ;  STORE  SLN/STA  PAIR 

#PX$SVCIPX$DLM,T$FLAGt$BFR  ;  INDICATE  DLM  SVC 

T$SVC+$BFR  ;  ASSUME  SVC  DESCRIPTOR  IS  IN  DSR 
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VFGXJP  -   CONFIG  FILE   SCAN  ACTIO  MACRO  V05.03b   Satjrday  29-Jun-85 
Table  of   contents 

MACRO  DEFINITIONS 

CONSTANT    DEFINITIONS 

LOCAL   DATA 

ERROR  MESSAGES 

$QX2P  -  LOOK  FOR  X2P$DF  MACRO 

X2P$DF  STATE  TABLE 

X2PtL)F  ACTION  ROUTINES 


§2:?! 


s- 

ss 

6- 

/^ 

/- 

w 

H- 

9 -J 

9- 

lOS 

10- 

IV 

n- 

IVb 

VFGX2P  -   CONFIG  MLE   SCAN  ACTIO  MACRO  705. 0?b   Saturday   29-Jun-85  02:31      Page  « 


B  3 

VFGX2P     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:^2     PAGE  1 

SYMBOL  CROSS  REFERENCE  CREF   OA.OO 

SYMBOL  VALUE  REFERENCES 

CTRR  ^  .,.,,,  GX     8-98      8-99      8-100 

CFGBF  =  ..*..»  GX     9-120 

CFGSZ  =  •«•»«»  GX     9-119 

CFLIN  =  .♦♦*..  GX     8-98      8^99      8-100 

CHKDEV    000316  R  #11-225 

CMT8B  =  »..«.*  GX     8-98      8-99      8-100 

FM.8B  =  000000  #8-98     #8-°9     #8-100 

I$$AS  =  ».»»*.        5-62 

LF.ACT  =  100000  #5-63 

LF.BRO  =  000400  #5-63 

lF.BWT  =  000007  #5-63 

lF.ENA  =  002000  #5-63 

LF.LPB  =  001000  #5-63 

LF.MDC  =  000100  #5-63 

LF.MFL  =  004000  #5-63 

LF.MTP  =  000020  #5-63 

LF.PAC  =  000200  #5-63 

LF.RDY  =  040000  #5-63 

LF.REA  =  010000  #5-63 

LF.SER  =  0C0040  #5-63 

LF.TIM  =  000010  #5-63 

LF.UNL  =  020000  #5-63 

LF.X2P  =  OCOOOO  #5-63 

LN.CLO  =  00^  inO  #5-63 

LN.DUM  =  OOC  u5  #5-63 

LN.LOA  =  000004  #5-63 

LN.LOO  =  000003  #5-63 

LN.OAU  =  000003  #5-63 

LN.OFF  =  000001  #5-63 

LN.ON  =  000000  #5-63 

LN.OOP  =  000004  #5-63 

LN.OPE  =  OtiOOOl  #5-63 

LN.REF  =  000002  #5-63 

LN.SER  =  000002  #5-63 

LN.STA  =  000017  #5-63 

LN.SUB  =  000360  #5-63 

LN.TRI  =  000006  #5-63 

L.roST    00C015  #5-63 

L.CTL    000012  #5-63      11-231 

L.CVA     177776  #5-63 

L.DOM    000002  #5-63      11-226 

L.DDS    000004  #5-63 

L.DLC     000003  #5-63 

L.DlM     000006  #5-63 

L.DLS    000010  #5-63 

L.FLG     000000  #5-63 

L.KRBA    000016  #5-63 

L.LEN  =  000022  #5-63 

L.MPF    0C0022  #5-63 

L.NMSr    000020  #5-63 

L.NSTA    000014  #5-63 

L.OWNR    000021  #5-63 
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X3P$DF  STATE  TABLE 
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129 

130 

131 

132 

133  000052 

134 

135 

136 

137  000052 

138  000052 
139 

140  000052 

141  000052 
142 

143  000052 

144  000052 
145 

145  000052 
147  000052 
148 

149  000052 

150  000052 
151 

152  000052 

153  000052 
154 

155  000052 

156  000052 

158  000052 

159  000052 
160 

161  000052 

162  000052 
163 

164  000052 
^65  000052 
166 

167  000052 

168  000052 

169  000052 
VO 

171  000052 

172  000052 
173 

i7i;  000052 


.SBTTL   X3PSDF  STATE  TABLE 
TPARS  STATE  TABLES 

ISTATS  X3PST,X3PK'.; 


X3P$DF 


STATES  X3PDF 
TRANS   XX3PS[)FX,,,1,SYNERR 


STATES 
TRANS 

SNUMBR, 

,X3 

DBS 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR , 

,X3 

MBS 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBF, , 

,X3 

DWS 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUM8R, 

,X3 

MWS 

STATES 
TRANS 

'•'  ,> 

STATES 
TRANS 

SNUMBR, 

,X3 

.BEG 

STATES   X3NXT 
TRANS   $E0S,SEXIT,X3.END 
TRANS   <',> 


STATES 
TRANS 

STATES 


SNuMdR,X3NXT,X3.NXT 


;  DEFAULT  BLOCK  SIZE 


;  MAXIMUM  BLOCK  SIZE 


;  DEFAULT  WINDOW  SIZE 


;  MAXIMUM  WINDOW  SIZE 


;  BEGINNING  Of  TIMER  VALUES 


NEXT  TIMER  VALUE 


C  4 
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SFNAL!  -  FIND  ALIAS 


109 
110 
111 
112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
1'A 
125 
126 

127  000120 

128  000126 


000116 
000116 


129 
130 
131 
132 
133 
134 
135 


'K6 


0001- 


000160 
0001 6A 
000166 

136  000172 

137  000176 

138  00020A 

139  000206 
lAO  000210 

141  000222 

142  000240 

143  000246 

144  000250 

145  000256 

146  000260 

147  000262 

148  000266 

149  000270 

150  000274 

151  000276 

152  000302 

153  000304 

154  000312 

155  000314 

156  000320 

157  000322 

158  0003;-4 

159  000326 


010246 


012700 

011067 
010146 
010067 
016701 
016767 
000261 
001445 


032767 
001022 
032767 
001C12 
011602 
022267 
001341 
022267 
001336 
022267 
001333 
026767 
001327 
016700 
000241 
005226 
012602 


.SSTTL 
»«*  -  SFNALI 
INPUTS: 


SFNALI  -  FIND  ALIAS 
-  FIND  ALIAS 


Rl  =  ADD).  SS  OF  ALIAS  NAME  STRING 
RQB+LR.UCB  =  UCB  ADDRESS  OF  DEVICE  SCOPE 
SQUAL  =  QUALIFIERS  FOR  KNOWN  OR  ALL  ALIASES 

OUTPUTS; 

C-BIT  =  SUCCESS/FAILURE 

RO  =  UNMAPPED  ADDRESS  OF  ALIAS  BLOCi',  IF  FOUND 

Rl  =  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 


SFNALI: 


OOOOOOG 

OOOOOOG 

177606 

177602         lOS: 

OOOOOOG  177574 


20$: 
000002  OOOOOOG 

000004  OOOOOOG 

000002G 
000004G 
00C006G 

000016G  000C10G  30$ 

177460        40$ 

50$ 


MOV 

SWTCHI 

GETRV 

SWTCHI 

MOV 

MOV 
MOV 

MOV 

MOV 

MOV 

SEC 

BED 

CEACCS 

GETAD 

BIT 

BNE 

BIT 

BNE 

MOV 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

MOV 

CLC 

INC 

MOV 

RETURN 


R2,-(SP) 

#SHMBUF 
SDErPT,*DSEND 


#$HM8UFtDSANN,R0 

(RO),$BFR 

R1,-(SP) 

RO.CURUNM 

CURUNM.Rl 

SBFR.CURUNM 

50$ 

CURUNM.RO 

R0,#100 

#QfSALL,$QUAL 

40$ 

#QFSKN0,SQUAL 

30S 

(SP),R2 

(fi2)+,SBFR*A.NAM 

10$ 

(R2)+,$BFR+A.NAMt2 

10$ 

(R2)+,$BFR+A.NAM+4 

10$ 

RQ8+LR.UCB,$BFR+A.UCB 

10$ 

CUfiUNM,RO 

(SP)» 
(SP)+,R2 


oAVE  R2 

USE  TEMPORARY  BUFFER 
READ  DECNET  HOME  BLOCK 
RESET  DEFAULT  BUFFER 

GET  ALIAS  LISTHEAD  ADDRESS 

GET  FIRST  ALIAS  IN  LIST 

SAVE  ADDRESS  OF  ALIAS  NAME 

SAVE  UNMAPPED  ADDR  OF  CURRENT  BLOCK 

SAVE  ADDRESS  OF  PREVIOUS 

GET  NEXT  OBJECT  IN  LIST 

ASSUME  FAILURE 

IF  EQ,  NO  MORE 

CONVERT  TO  MAPPED  ADDRESS 

READ  ALIAS  In   INTERNAL  BUFFER 

IS  THIS  FOR  ALl  ALIASES  ? 

IF  NE,  YES  ..  SUCCESS 

IS  THIS  FOR  KNOWN  ALIASES  ? 

IF  NE,  YES  ..  JUST  CHECK  SCJPE 

GET  ADDRESS  OF  ALIAS  STRING 

IS  THIS  THE  RIGHT  ALIAS  ? 

IF  NE,  NO 

IS  THIS  REALLY  THE  ALIAS  ? 

IF  NE,  NO 

THIS  IS  THE  LAST  CHANCE 

IF  NE,  NO  ..  SO  SORRY 

BUT  IS  THIS  THE  RIGHT  SCOPE  ? 

IF  NE,  NO  ..  TOO  BAD 

GET  UNMAPPED  ADDRESS  OF  BLOCK 

ELSE,  INDICATE  SUCCESS 

CLEAN  UP  STACK 

RISTORE  R2 


K/Fiwr,  -    ;mp   FiMr,  FMfiTY   RniiTiNF   MACRn  V05.n3h   Sflt-urdav   29-Jun-85 


02:55 


"flae  9 
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1^ 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
K 
15 
16 
17 
1? 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

35 
36 
37 
38 
39 
40 
41 

a: 

.3 
44 
45 
46 
47 

48 
49 
50 
51 
52 
53 
54 


.TITLE  VFPCUG  - 
.IDEM  /V05.00/ 
.ENA8L  LC 


INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 


;CTD00i: 
■  **-l 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  198j  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARF ,  MASS. 

THIS  SOFTWARE  IS  FURNISHFD  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFUARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IPENT  HISTORY: 

1.00   02-MAR-82 

0ECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APfi-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.Q 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-llM-PLjs   V3.0 
DECnet-Micro/RSX   VI. 0 


OF      ITS 


c  r    MA  r  on 


lyHE;   n^h   c^fi 
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VFPCUG  - 
ALCUG1  - 

38C 
381 
382 
383 
38A 
385 
386 
387 
388 
389 
390 
391 
392 
393 
39A 
395 
596 
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ALlocafe  a  CUG  name  block  (old  format) 


000672 

000672  005000 

00067A  012701   000002 

000700  012702  000016 

00070A 

000710 


.S8TTL  ALCUG1  -  Allocate  a  CUG  name  block  (old  format) 

h 

•*'  ALCUGi  -  Allocate  a  CUG  name  block  (old  format) 

INPUTS 

All  parsed  fields  of  CUGSDF  macro 

OUTPUTS 

Carry  clear  -  CUG  name  block  allocated  and  linKed  into  CUG  chain 
Carry  set  -  Insufficient  store  to  allocate  CUG  lame  block 


ALCUGI: 


CLR  RO 

MOV  #G$NAM,R1 

MOV  #G$LEN,R2 

CALL  ALCUG 

RETURN 


Nowhere  to  store  name  length 
Place  to  store  name 
Length  to  allocate 
allocate  and  fill  block 


;CTD001] 
;CTD001J 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001J 
;[TD001] 
;[TD001] 
;[TD00i: 
;[TD001] 
;[TD00i: 
;[TC00i: 
;CTD001] 
;[TD00n 
;[TD001] 
;CTD001] 
;CTD001] 


.'nuctr,  riip  cr  MAron  \i()'^    nXh  <;afMrri;iv  ?<3- h 
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LOOK  fOR  DSASDF  MACRO 


=age  8 


88 

89 

90 

91 

92 

93 

9^ 

95 

96 

97 

98 

99 
100 
101 

102  000000 

103  000004 
10A  000006 
105  000006 
i06  000012 

107  000012 

108  OOOOU 

109  000020 

110  000024 

111  000030 

112  000034 

113  000040 

114  000042 

115  000046 

116  000050 
117 

118 
119 
120 
121 
122 


.SBTTL  LOOK  FOR  DSASDF  MACRO 


SQDSA  -  LOOK  FOR  DSASDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-eiT=SUCCESS/FAILURE 
R3,R4  R5=DESTR0YED 


012705 
000402 

012705 

005001 
012702 
016703 
012704 
005067 

103003 
005367 
001401 


000052 


000000' 
000130' 


000000' 
OOOOCOG 
OOOOCOG 
OOOOOOG 


OOOOOOG 


.ENA8L 

LSB 

SQDSA:: 

MOV 

#DSADF,R5 

BR 

10S 

SQDSC:: 

MOV 

#DSCDF,P5 

10S: 

VNPDBG 

VFPDSA 

CLR 

R1 

HOV 

#DSAKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFGBF,R4 

CLR 

SYNERR 

CALL 

.TPAR<; 

BCC 

20S 

DEC 

SVNEPR 

BEQ 

101S 

20S: 

RETURN 

;  ERROR 

CONDITION 

iOIS: 

EMSGSfi 

IT 

.DSABL 

LSB 

STATE  TABLE  ADDRESS 


STATE  TABLE  ADDRESS 

VNP  deougging  break  point 

FULL  KEYOORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  Efl,  YES 


;CTD001] 
;CTD001] 
;CTD001] 
;CTD00i: 
.-LTDOOl] 
;CTD001] 
,•♦•-4 


;  SYNTAX  ERROR 


uAC  n7k  c -. 


C  8 

-a<i  no  ■T.I. 
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VFPDS^^  -  INITIAL  CONFIG  HLE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:3'i 
Table  of  contents 

Local  Symbols 

Macro  definitions 

Local  Data 

Look  tor  DSNSDF  macro 

Parse  table  for  DSMSDF 

Syntax  action  rouf'nes 

Parse''  Subexpression  Action  Routines 


s- 

so 

(S- 

ftS 

?- 

HI 

H- 

90 

9- 

1,^0 

1- 

?^'^ 

5- 

iW 

C  9 

_  Q  C  A  T  .  7  /. 
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Parser  Subexpression  Action  Routines 


522 

323 

32^. 

325 

326 

327 

328 

329 

330 

331 

332 

333  000272 

33A  000300 

335  000302 

336  000306 

337  0003U 

338  000320 
339 


126727 
103005 
116700 
116760 
105267 

0OOCO1 


»•«  STORCH  -  Store  string  character 

INPUTS 

STRLEN  -  Number  of  characters  read  so  far 

.PCHAR  -  Current  .haracter  to  be  stored 

OUTPUTS 

STRLEN  incremented 

If  chars  read  <=  max  string  size,  character  stored  in  string  buffer 


OOOOAO'  000020  STORCH: 

OOOOAG' 

OOOOODG  OOOOAT 
OOOOAO'        10$: 


CdPB 

STRLEN 

*MAXSTR 

BHIS 

10$ 

MOVE 

STRLEN 

RO 

MOVE 

.PCHAR 

STRaUF(RO) 

INC8 

STRLEN 

RETURN 

.END 

Check  string  not  too  long 

Do  not  store  character  if  no  room 

Store  character  in  buffer 
Count  this  character 


C  10 

"in   .._  or  m.7/ 
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186 
187 
188 
189 
190 

191  000056 

192  C00062 

193  0OU066 
19^  000072 

195  000074 

196  000100 

197  00010/, 

198  000110 

199  0001 U 

200  000120 

201  000124 

202  000130 

203  000136 

204  0001A2 

205  0001A6 

206  000152 
207 

208 
209 
210  000154 


012700 
012701 

103430 
105067 
105067 
105C67 
105067 
105067 
105067 
005067 
012767 
105067 
105067 
105067 


.SBTTL  DSTSDF  ACTION  ROUTINES 


OOOOOOG 
000006 


OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

Mim     OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


DESTINATION  NAME 


DSNAM:  MOV 

#DSTNML,RO 

MOV 

*DSNAMX,R1 

CALL 

STORID 

BCS 

101$ 

CLRB 

DSACGL 

CLRB 

DSTTKL 

CLRB 

RNNL 

CLRB 

RNUL 

CLRB 

RNPL 

CLRB 

RNAL 

CLR 

DSASLO 

MOV 

#-l,DSASHI 

CLRB 

DSCMCT 

CLRB 

DSCV;  T 

CLRB 

DSARCT 

RETURN 

;  ERRORS 

101$:   EMSGSR 

N4 

Buffer  for  dest inat ■''on  name  ;[TD001] 

Max  length  if  old-format  ;CTD001] 

Check  and  store  destination  name      ;LTD001J 

Branch  if  bad  name  .-[rDOOll 

Clear  CUG  name  length  ;CTD001] 

Assume  no  task  name  ;[TD001J 

Clear  remote  node  name  ;[TD001] 

Clear  remote  user  njme  ;[TD001] 

Clear  ren. 'te  password  ;[TD001] 

Clear  remote  account  ;[TD001j 

DEFAULT  LOW  SU8BADDRESS  TO  ZERO  ;  *-21 
ASSUME  NO  SUBADDRESS  RANGE 
CLEAR  CALL  DATA  MASK  COUN^ 
CLEAR  CALL  DATA  VALUE  COUNT 
CLEAR  REMOTE  DTE  ASDRESS  COUNT 


ILLEGAL  DESTINATION  NAME 


s;  11 
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MOVAR  -  Move  jariable-length  byte  fields 


577 
578 
579 
580 
581 
582 
583 

585 
586 
587 
588 
589 
590 
591 
592 
593 
59A  001652 

595  001662 

596  001 66A 

597  001666 

598  001670 

599  001672 

600  001 o74 

601  C01676 

602  001700 
603 

604  001702 


.S8TTL  MOVAR  -  Move  variable-length  byte  fields 

*••  MOVAR  -  Move  variable-length  byte  fields 

FUNCTION 

Given  table  of  pointers  to  variable  length  fields 
(data  with  one-Byte  precount),  move  all  fields 
contiguously  to  output  buffer 

INPUTS 

RO  -  Address  of  table  of  pointers  to  fields 
R1  -  Address  of  output  buffer 

OUTPUTS 

R1  -  Next  free  byte  in  output  buffer 
RO,  R2,  R3  destroyed 


012002 
00U06 
112203 
001774 
11222' 
005303 
003375 
000770 


MOVAR : 

5$: 

MOV 

(R0)t,R2 

BEQ 

20$ 

Move 

(R2)SR3 

BEQ 

5$ 

10$: 

M0V8 

(R2)+,(R1)+ 

DEC 

R3 

BGT 

10$ 

BR 

5$ 

Get  next  table  entry 
Zero  at  end  of  table 
Get  length  of  entry 
If  empty,  look  for  next 
Move  data  to  output  area 


loop 


20$: 


RETURN 


;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD00n 
;t:TD00i: 
;[TD001] 
;CTD00i: 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;rTD001] 
;CTD001] 
;rTD001] 
;.TD0013 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 


C  12 
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81 

82 

83 

8A 

85 

86 

OOOOAO 

87 

000040 

88 

001000 

89 

000020 

90 

91 

92 

93 

9A 

000002 

95 

OOOOOA 

96 

000006 

97 

000010 

98 

000012 

99 

00001 A 

.S8TTL  LOCAL  SYMBOL  DEFINITIONS 


LOCAL  SYMBOL  DEFINITIONS 

SPACE  =  AO 
HSHMN  =  32. 
HSHMX  =  512. 
NUMDTE  =  16. 


ASCII  SPACE 

MINIMUM  VALUE  FOR  HASH  TABLE  SIZE 
MAXIMUM  VALUE  FOR  HASH  TABLE  SIZE 
MAXIMUM  DTES  ALLOWED 


SAVED  REGISTER  OFFSETS  ON  STACK  FOR  SSAVAL 


R$RO 
R$R1 
R$R2 
R$R3 
R$RA 
R$R5 


2 
A 
6 

10 
12 
U 


SAVED  RO 

SAVED  Rl 

SAVED  R2 

SAVED  R3 

SAVED  RA 

SAVED  R5 


C  13 


VfPDTE  ■ 
BIASX  - 

525 
52A 

525 
526 
527 
52fi 
529 
550 
551 
552 
555 
554 
555 
556 
557 
558 
559 
540 
541 
542 
543 
544 


B  U 

■    1^41T1AL   CONFIG   FILE   SC   MACRO  V05.03b   Saturday  29-Jun-85  02:56     Page   18 
SET   APR6  BIAS   CORRECTLY 

.SBTTL  BIASX  -  SET  APR6  BIAS  CORRECTLY 


001322 

001522  020027  120000 

001526  105404 

001330  042700  160000 

001354  052700  140000 

001340 

000001 


BIASX  -  SET  APR6  BIAS  CORRECTLY 

INPUTS: 

RO  =  ADDRESS  (POOL  OR  APR5) 

OUTPUTS: 

RO  =  ADDRESS  (POOL  OR  APR6) 


BIASX: 


10S: 


CMP 
BLO 
BIC 
BIS 
RETURN 

.END 


R0,*120000 
10$ 

#U0000,R0 
*140000,R0 


ADDRESS    IN  APRS    ? 
BR    IF   NO    (ASSUME   POOL) 
CLEAR  ALL    APR  BITS 
AND  BIAS    FOR  APR6 
RETURN 


c  u 


B  15 

VFPPSN  -  INITIAL  CONfIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02;V 
LOCAL  SV1B0LS 

90  000000 

91 

92 

93 

9A 

95 

96  000000 

97  000002 

98  000004 
GQ  000006 

100  000007 
101 


Page  7 


.PSECT 

DATA.D 

.NLIST 

BEX 

:•  LOCAL 

DATA  FOR  PSNSDF  MACRO 

PSNFLG: 
PSNLO: 
PSNHI: 
PSNNML : 
PSiNNAM: 

.BLKW 
.SLKW 
.BLKW 
.BLK8 
.BLKB 
.EVEN 

1 
1 
1 
1 
MAXID 

FLAGS  WORD  FROM  PSNSDF  MACRO 
LOW  END  OF  SUBADDRESS  RANGE 
HIGH  END  OF  SUBADDRESS  RANGE 
Length  of  PSN  network  name 
PSN  network  name  from  PSNSDF  macro 


:**-20 


:**-1 


;[TD001] 
;[TD001] 
;[TD00n 


C  15 
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VFPPSNJ 

CREATED   BY 

MACRO     ON  29 

-JUN-85   AT 

02:37 

PAGE   2 

SYMBOL 

:ross  reference 

CREF        04.00 

SYMBOL 

VALUE 

REFERENCES 

PSVTSZ 

=   000400 

#6-8/ 

15-422 

15-426 

15-432 

RTSPC 

-        1c*  t*** 

GX 

8-105 

8-106 

8-107 

8-108 

SPACE 

=  000040 

#6-88 

SPFILL 

=      ****** 

GX 

11-212 

SU8AMX 

-      ****** 

GX 

12-291 

SYNERR 

r      ****** 

GX 

t9--;8 

t9-141 

SYSFDB 

-      ****** 

oX 

•  13   343 

.14-398 

.14-403 

.15-432 

SStBAS 

-      ****** 

8-105 

8-105 

8-106 

8-10t) 

8-109 

8-110 

8-110 

8-111 

$ALl16 

-      ****** 

GX 

13-320 

SALPHA 

=  000022 

#10-154 

SALPOL 

::      ****** 

GX 

14-386 

15-427 

$ANY 

=  000020 

#10-154 

$BFR 

=  **t*** 

GX 

13-323 

15-421 

13-329 
.15-440 

13-333 

.15-441 

.13-337 

SBLANK 

=   000006 

#10-134 

SCEACC 

=      ****** 

GX 

14-390 

15-431 

15-436 

$DBG$ 

-      ****** 

11-206 

SDIGIT 

=  000024 

#10-154 

^ONUMB 

=  000014 

#10-154 

$EOS 

=  000012 

#10-154 

SERRDI 

000366 

r 

#8-112 

12-282 

$F'",RD2 

000424 

R 

#8-113 

13-362 

StRRPA 

000310 

R 

#8-111 

13-365 

SERRPI 

000030 

R 

#8-105 

11-262 

$ERRP2 

000066 

R 

#8-106 

11-263 

$ERRP5 

000114 

R 

#8-107 

11-264 

$ERRP4 

000144 

R 

#8-108 

11-265 

$ERRP5 

000170 

R 

#8-109 

13-363 

$ERRP6 

000242 

R 

#8-110 

13-364 

SERRIT 

-      ****** 

GX 

9-148 

SEXIT 

=  000000 

#10-154 

SFAIL 

=    177777 

#10-154 

SGETRV 

=       ****** 

GX 

15-439 

$GPRM 

r     ****** 

10-154 

SLAMDA 

=  000000 

#10-154 

SNUMBR 

=   000002 

#10-154 

SPFLAG 

=:      ****** 

GX 

.11-242 

.11-245 

.11-248 

.11-253 

SPSIPT 

r     ****** 

GX 

11-207 

.13-344 

14-400 

15-439 

SPUiAD 

-     ****** 

GX 

14-398 

15-432 

15-437 

SPUTRC 

-     ****** 

GX 

13-343 

14-403 

15-442 

$QP3N 

000000 

RG 

#9-132 

SRADDR 

GX 

M5-343 

.14-398 

.14-403 

.15-432 

$RAD50 

=  000016 

#10-154 

SRBLCK 

r     ****** 

GX 

14-389 

.14-399 

15-430 

.15-4  38 

SRONLY 

-     ****** 

10-154 

10-154 

10-154 

J-SAVAL 

-     ****** 

GX 

13-311 

SbTRMG 

=  000004 

#10-154 

SSUBXP 

=  000010 

#10-154 

SSiFuG 

=   177777 

#10-154 

lli<.f' 

-    177777 

#10-154 

.PN:JM8 

-    »..♦«» 

GX 

11-230 

11-241 

12-289 

15-434  15-437 

8-109  8-110  8-111 


■15-437         .15-439 
8-107  8-107  8-108 

8-111  8-112  8-112 


13-338         .13-340         .13-341 


8-112 


8-108 
8-113 


14-391 


8-113 


8-109 
8-113 


.14-402 


11-254  13-313  13-330 


05-437         .15-439 


13-353 


C  1 
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58A  001512 

585  001516 

586  001520 

587  001524 

588  001550 

589  0C153A 

590  001 5A0 

591  001546 

592  001554 
59?  001560 
594  001564 


020127 
103406 
042701 
052701 
010067 
010167 
016767 
016767 


120000 

160000 
140000 
000034G 
000036G 
000002'  000030G 
000004'  000032G 


50$: 


60$: 


CMP 
BLO 
BJC 
BIS 

MOV 

MOV 

MO^ 

MOV 

PUTAD 

RESMAP 

RETURN 


R1, #120000 
50i 

#160000, R1 
#140000, R1 
fO,T$SVC+$BFR 
R1,T$SVC<-$BFR  +  2 
HTIMR,T$T5+$8FR 
LTIMR,T$T6*-$8FR 


IS  SVC  DESCRIPOR  IN  DSR? 

BR  IF  rES 

CLEAR  CURRENT  APR  MAPPING  BITS 

XPT  NEEDS  APR6  MAPPING 

STORE  APR  BIAS  OF  SVC  DESCRIPTOR 

STORE  VIRTUAL  ADDR  OF  SVC  DESCRIPTOR 

STORE  HELLO  TIMER 

AND   LISTEN   TIMER 

REWRITE  UPDATED  COUNTER  BLOCK 

RESTORE  PREVIOUS  MAPPING 


D  1 
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1^ 

2 

3 

A 

5 

6 

7 

8 

9 
10 
11 
12 
13 
K 
15 
16 
17 
^8 

20 
21 
22 
23 
24 
25 
26 
2? 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
V 
38 
39 
AO 
A1 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
A9 
50 

52 
53 
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IDENT  HIST3RY: 
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DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-11M-PLUS  Vl.1 

A. 00  07-N0V-83 

DECNET-11M  VA.O 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  VA.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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SYMBOL  CROSS  REFERENCE 


C  3 

PAGE  2 

CREF   CA.OO 


SYMBOL 

VALUE 

REFERENCES 

L.UNT 

000013 

#5-63 

"-253 

RTSPC 

r   »;***** 

GX 

8-98 

8-99      8-100 

R$$11D 

-  *■*»**♦ 

5-62 

RS$11M 

=  000000 

5-62 

R$$T1S 

-  t «*  *** 

5-62 

SF.ACT 

=  000200 

#5-63 

SF.ENA 

=  000100 

#5-63 

SF.LPB 

=  000004 

#5-63 

SF.MFL 

=  0000'.0 

#5-63 

SF.PAC 

=  000020 

#5-63 

SF.REA 

=  000010 

#5-63 

SF.SER 

=  000001 

#5-63 

SF.SVC 

=  000002 

#5-63 

SF.UNL 

=  000040 

#5-63 

SYNERR 

:r  ****** 

GX 

•9-121 

♦9-124     *11-235 

S$$OAS 

:z     ****** 

8-98 

8-98      8-99 

S.COST 

000001 

#5-63 

S.FLG 

000000 

#5-63 

S.LEN 

000004 

#5-63 

S.NMST 

000002 

#5-63 

S.OWNR 

000003 

#5-63 

X$$MCB 

=  ****** 

5-62 

5-62 

X2CTL 

000002 

R 

#7-88 

♦11-214    11-231 

X20EV 

000000 

R 

#",  -87 

♦11-205     11-229 

X2HLMX 

=  001130 

#6-80 

11-291 

X2PDF 

000000 

R 

9-116 

V2PKW 

000000 

RG 

9-118 

#10-136 

X2PST 

000000 

RG 

#10-136 

X2RTMX 

=  001130 

#6-79 

11-279 

X2DNT 

000003 

R 

#7-89 

♦11-215    •11-224 

X2WNMN 

=  000001 

#6-78 

11-248 

X2WNMX 

=  000007 

#6-77 

11-246 

X2.CTL 

00024A 

R 

#11-210 

X2.DE\/ 

000216 

R 

#11-201 

X2.HLD 

000564 

R 

#11-287 

X2.MBS 

000446 

R 

#11-256 

X2.MRT 

000474 

R 

#11-265 

X2.MWS 

000404 

R 

#11-243 

X2.RTR 

000526 

R 

#11-27? 

X2.UNT 

000274 

R 

#11-220 

ZF.COU 

=  001000 

#5-62 

ZF.DDM 

-  000001 

#5-62 

ZF.DIA 

=   004000 

#5-62 

ZF.OLC 

=  000002 

#5-62 

ZF.DVP 

=  100000 

#5-62 

ZF. !N] 

=  040000 

#5-62 

zr  \m 

-  000020 

#5-62 

ZF.LLC 

=  000004 

#5-62 

ZF.L.1C 

--  000100 

#5-62 

Z F.MAN 

=  020000 

#5-62 

i/F.MFl 

=  000010 

#5-62 

ZF.MTN 

=  000400 

#5-62 

8-99 


8-1C0 


8-100 


11-233 


rRFATFH  RY   MA'RO  ON  29-.JUN-85  AT  02:32 
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176 
P7 
178 

179 
180 
181  000052 

.SBTTL 

X3P$DF  ACTION  f 

;  DEfAULT  Block 

SIZE 

X3.DBS:  CALL 

CHKBLK 

182  C00056 

103403 

BCS 

101$ 

183  000060 

010067 

OOOOOOG 

MOV 

R0,$X3DBS 

18A  00006A 

RETURN 

185  000066 

186 

187 

101$:   EriSG$R 

2B 

;  MAXIMUM  BLOCK 

SIZE 

188 

189  000074 

X3.MBS:  CALL 

CHKBLK 

190  000100 

103406 

BCS 

101$ 

191  000102 

020067 

OOOOOOG 

CMP 

R0,$X30BS 

io5$ 

192  000106 

103406 

BLO 

193  000110 

010067 

OOOOOOG 

MOV 

R0,$X3MBS 

19A  0001 U 

RETURN 

195  C00116 

101$;   EMSG$R 

2C 

196  00012A 

102$:   EMSG$R 

2D 

197 

193 

;  DEFAULT  WINDOW  SIZE 

199 

200  000132 

X3.DWS:  CALL 

CHKWND 

201  000136 

103403 

BCS 

101$ 

202  000140 

010067 

OOOOOOG 

MOV 

R0,$X3DWS 

203  000144 

RETURN 

2''4  000146 

101$:   EMSG$R 

2E 

205 

206 

;  MAXIMUM  WINDOW  SiiE 

207 

208  000154 

X3.MWS:  CALL 

CHKWND 

209  000160 

103406 

BCS 

101$ 

210  000162 

020067 

OOOOOOG 

CMP 

R0.$X3DWS 
10J$ 

211  OOOI06 

103406 

BLO 

212  000170 

010067 

OOOOOOG 

MOV 

R0,$X3MWS 

213  000174 

RETURN 

214  000176 

101$:   EMSG$R 

2F 

215  000204 

216 

217 

102$:   EMSG$R 

2G 

;  BEGINNING  OF 

TIMER  VALUES 

218 

219  00C212 

012767 

OOOOOOG  000000' 

X3.8EG:  MOV 

#$X3CAL,NFXT 

220  000220 

105067 

000010' 

CLRB 

TIMRCT 

221 

222 

223 

224  000224 

■  NEXT  TIMER  VALUE 

105267 

000010' 

X3.NXT:  INCB 

TIMRCT 

225  000230 

126727 

OUOOIC  000007 

CMr-'B 

TI,1RCT,*X5TMCT 

226  000236 

101015 

BHi 

10'$ 

22'i   000240 

005767 

OOOOOOG 

TST 

.PNHMH 

228  000244 

001017 

B\f 

102$ 

229  000246 

105/67 

OOOOOIG 

TST8 

.PNUMr^rl 

230  000252 

001014 

BNE 

102$ 

231  000254 

016^77 

OOOOOOG  COOOOC 

MOV 

,PNUMB,aNEXT 

232  000262 

062  767 

0000C2  1000GO 

ADD 

*2,NEXT 

CHECK  FOR  LEGAL  DEFAULT  BLOCK  SIZE 

BR  IF  ERROR 

STORE  DEFAULT  BLOCK  SIZE 

ILLEGAL  DEFAULT  BLOCK  SIZE 


CHECK  FOR  LEGAL  MAXIMUM  BLOCK  SIZE 

BR  IF  ILLEGAL  VALUE 

IS  DEFAULT  IN  RANGE? 

BR  IF  NO 

SAVE  MAXIMUM  BLOCK  SIZE 

ILLEGAL  MAXIMUM  BLOCK  SIZE 
DEFAULT  BLOCK  SIZE  EXCEEDS  MAXIMUM 


CHECK  FOR  LEGAL  WINDOW  SIZE 
BR  IF  ILLEGAL  SIZE  -  ERROR 
STORE  DEFAULT  WINDOW  SIZE 

ILLEGAL  DEFAULT  WINDOW  SIZE 


CHECK  FOR  LEGAL  WINDOW  SIZE 

BR  IF  ERROR 

IS  DEFAULT  IN  RANGE? 

BR  IF  NO  -  ERROR 

STORE  MAXIMUM  WINDOW  SIZE 

ILLEGAL  MAXIMUM  WINDOW  SIZE 
DEFAULT  WINDOW  SIZE  EXCEEDS  MAXIMUM 


POINT  TO  CALL  TIMER  VALUE 
CLEAR  COUNTER 


UPDA12  COUNT 

MAXIMUM  EXCEEDED? 

BR  IF  VES  -  ERROR 

DOUBLE  WORD  VALuE? 

BR  IF  YES  -  ERROR 

BYTE  VA:i)E? 

BR  IF  NC  -  ERROR 

STORE  TIMER  VALUE 

POINT  TO  STORAGE  fQR  NEXT  VALUE 


rr\K\t:  ^  r     t  1 1 


-Ttn   MAron    \,nc;    iT^h    ^a 


0   4 


Pjnn    11-1 
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tFNADD  -  FI^D  REMOTE  BY  ADDRESS 


161 

162 

163 

16A 

165 

166 

16^ 

If 

1 

17u 

171 

172 

173 

17A  000330 

175  000330 

176  000336 

177  000356 
178 

179  0005L4 
180 

181  000370 

182  00037A 

183  000376 
18A  000402 

185  000406 

186  0004 U 

187  000A16 

188  000420 

189  00043? 

190  0O0450 
19'  000454 

192  000456 

193  000462 

194  000464 

195  000466 


.SBTTL  SFNADD  -  FIND  REMOTE  BY  ADDRESS 

»♦*  -  SFNADD  -  FINf"  A  REMOTE  NODE  BY  ADDRESS 

INPUTS: 

R1  =  NODE  ADDRESS 

OUTPUTS; 

C-'  i"  =  SUCCEiS/FAILURE 

RO  =  UNMAPPED  ADDRESS  OF  REMOTE  BLOCK,  IF  FOUND 

R1  =  UNMAPPED  ADDRESS  OF  PREVIOUS 


SFNADD: 


SWTCHI   *$HM8UF 
GETRV   SDECPT,*DSEND 
SWTCHI 


012700 

011067 
010146 
010067 
016701 
016767 
000261 
001422 


021667 
001352 
016700 
000241 
005226 


000004G 

OOOOOOG 

177376 

177372         10S: 

OOOOOOG  177364 


00001 OG 
177316 


20$: 


30S: 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

SEC 

BEQ 

CEACCS 

GETAD 

CMP 

BNE 

MOV 

CLC 

INC 

RETURN 


#SHMBUF+DSRNNt2,R0 

(R0),$BFR 

R1,-{SP) 

RO,CURUNM 

CURUNM.RI 

SBFR.CURUNM 

30$ 

CURUNM,R0 

RO,*R.LEN 

(?P),$BFR+R.ADD 

10$ 

CURUNM.RO 

(SP)  + 


USE  TEMPORARY  BUFFER 
READ  DECNET  HOME  BLOCK 
RESET  DEFAULT  BUFFER 

GET  START  OF  REMOTES  LIST 

GET  FIRST  IN  LIST 

SAVE  NODE  ADDRESS  ON  STACK 

SAVE  UNMAPPED  ADDR  OF  CURRENT  BLOCK 

SAVE  ADDRESS  OF  PREVIOUS 

GET  NEXT  OBJECT  IN  LIST 

ASSUME  FAILURE 

IF  EQ,  NO  MORE 

CONVERT  TO  MAPPED  ADDRESS 

READ  REMOTE  IN  INTERNAL  BUFFER 

IS  THIS  THE  RIGHT  REMOTE  ? 

IF  NE,  NO 

GET  UNMAPPED  ADDRESS  OF  BLOCK 

ELSE,  INDICATE  SUCCESS 

CLEAN  UP  THE  STACK 


\/KiD    CIMn    CMTITV    DniiTIMP    MA(Rn    \I0^    nXh    <;;iri]rfi;ls 
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Psnp    10 


C  6 

VFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.05b  Saturday  29-Jun-85  02:33  Page  5 
MACRO  DEFINITIONS 


55 
57 
58 
59 
60 
61 
62 
63 
6A 

65  000000 

66  000000 
67 

68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 


.SBITL  MACRO  DEFINITIONS 


LIBRARY  MACROS 


.MCALL   CUGDF$,EMSG$R,PHBDF$,NTLER$, STATES, TRANS, IS  TATS, PUTAD 
.MCALL  CEACC$,GETAD,GETRV 
.MCALL  VNPD8G 


;[TD001] 


CUGDFS 
PHBDFS 


LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV  $RBLCK,-(5P) 

.ENDM 

.MACRO  RESMAP 

MOV  (SP)t,SRBLCK 

.ENDM 


CLOSED  USER  GROUP  BLOCK  OFFSETS 
PSI  HOME  BLOCK  OFFSETS 
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ALCUG  -  Allocate  ana  fill  a  CUG  name  block  (general) 


Page  18 


398 
399 
AOC 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 

413  000712 

414  000712 

415  000716 

416  000722 

417  000724 

418  000726 

419  000730 

420  00073^ 

421  000736 

422  000740 

423  000750 

424  000764 

425  000770 

426  000772 

427  00C774 
428 

429  000776 

430  001002 

431  001006 

432  001012 


.SBTTL  ALCUG  -  Allocate  and  fill  a  CUG  name  block  (general) 

^ 

«♦*  ALCUG  -  Allocate  and  till  a  CUG  name  block  (general) 

INPUTS  ,    ,  ,„  ., 

RO     -  Offset  in  CUG  name  block  to  store  CUG  name  length  (0  if  none; 
R1      -  Offset  in  CJG  name  block  to  store  CUG  name 
R2     -  Total  length  of  CUG  name  block  (bytes) 
All  parsed  tields  of  CUGSDF  macro 

OUTPUTS 

Carry  set  if  insufficient  store  to  allocate  block 
All  registers  preserved 


ALCUG: 


010003 
010104 
010201 

103465 
010005 


012702 
105022 
005301 
003375 

012701 
012702 
012700 


OOOOOOG 


000002 

000010G 

000030' 


20$: 


433 

4  34 

001016 

016767 

OOOOOOG 

000C12G 

/.35 

C01024 

016767 

000032' 

00001 4G 

436 

• 

437 

001032 

012700 

000001' 

438 

001036 

116701 

000000' 

439 

001042 

010402 

440 

001044 

062702 

OOOOOOG 

441 

001050 

442 

■ 

443 

00^054 

005703 

444 

0^1056 

001403 

445 

001 06C 

11676^ 

000000' 

OOOOOOG 

446 
447 

001066 

^0$: 

448 

001072 

C 16700 

OOOOOOG 

449 

001076 

062700 

000010 

450 

001102 

451 

001106 

000241 

452 

oonio 

99$: 

453 

001114 

454 

.cNASL 

Lse 

CALL 

$SAVAL 

SAVMAP 

MOV 

pn,R3 

MOV 

H1,R4 

MOV 

R2,R1 

CALL 

SALPOL 

BC? 

99$ 

MOV 

R0,R5 

CEACC$ 

RO 

GETAD 

R0,R1 

MOV 

#$8KR,R2 

CLRB 

(R2)  + 

DEC 

R1 

BGT 

20$ 

110  V 

*<CUGNLN/2>,R1 

MOV 

*$8FR+G$CUG,R2 

MOV 

*CUGPCK,R0 

CALL 

MOVE 

MOV 

DTEDES,G$DTEt$BFfi 

MOV 

CUGFLG,G$FLG+$8FR 

MOV 

#CUGNAM,RO 

M0V8 

CUGNML.RI 

MOV 

R4,R2 

ADD 

HBfR.R2 

CALL 

MOVE 

TST 

R3 

BEQ 

50$ 

MOVB 

CUGNML,$BFR(R3) 

PUTAD 

MOV 

jrsioT  RO 

ADf) 

*H$.'i(^,P0 

CALl 

LNKEND 

CCr 

RESMAP 

retur;\i 

Save  registers 

Save  current  mapping 

Keep  a  copy  of  input  parameters 

Get  length  to  allocate 

Attempt  to  allocate  block 

Brancn  if  allocation  fails 

Save  unmapped  address  of  allocation 

Map  to  allocation 

Get  allocated  block 

Clear  allocated  block 


Insert  CUG  number 


Insert  pointer  to  DTE 
Insert  CUG  flags 

Address  of  source  CUG  name 
Length  of  CUG  name 

Get  address  to  receive  CUG  name 


Test  offset  to  receive  length  field 
If  zero,  no  length  required 
Store  length  field 

Write  CUG  name  block  to  image 
Find  head  of  chain  pointer 

Insert  block  in  chain 

Indicate  success 

Restore  original  mapping  state 


;[TD001] 
.-CTDOOI] 
;[TD00i: 
;[TD001] 
. CTDOOI] 
[TD001] 
;CTD001J 
;CTD001] 
.-CFDOOI] 
;CTD001] 
;CTD00n 
;CTD00i: 
;[TD001] 
;[TD00i: 
;[TD001] 
;[TD001] 
;[TD001D 
;CTDU0i: 
.-ETDOOI] 
.-CTDOOl] 
;CTD001] 
;  CTDOOl] 
; CTDOOl : 
; CTDOOl] 
;CTD001] 
; CTDOOl] 
; CTDOOl] 
;CTD001] 
; CTDOOl] 
.-CTDOOl] 
; CTDOOl] 
; CTDOOl] 
;  CTDOOl] 
; CTDOOl] 
; CTDOOl  1 
; CTDOOl J 
;  CTDOOl] 
; CTDOOl] 
.-CTDOOl] 
.-CTDOOl] 
; CTDOOl] 
; CTDOOl] 
;  CTDOOl"! 
.-CTDOOl] 
.-CTDOOl] 
.-CTDOOl] 
;  CTDOOl] 
; CTDOOl] 
;  CTDOOl] 
.-CTDOOl] 
;  CTDOOl] 
;  CTDOOl] 
; CTDOOl] 
.-CTDOOl] 
.-CTDOOl] 
.-CTDOOl] 
; CTDOOl : 


D  7 
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VFPDSA  -  INIIIAL  CONfIG  FILE 
TPARS  STATE  TABLES 

126 

12? 

128  000060 

129 

150 

131 

132  000060 

133  000060 
13A 

135  000060 

136  000060 

137  000060 

138  000060 

139  000060 
140 

1A1  000060 
1A2  000060 
U3  000060 

144  000060 

145  000060 
146 

147  000060 

148  000060 

149  OOOOoO 
150 

151  000060 

152  000060 

153  000060 
154 

155  000060 

156  000060 

157  000060 
158 

159  000060 

160  000060 

161  000060 
162 

163  OOOOcO 

164  00006C 
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.SSTTL   TPARS  STATE  TABLES 
;  TPARS  STATE  TABLES 

ISTATS  TSAST,DSA<W 

;  DSASDF 

STATES  DSADF 
TRANS   !!DSASDF%,,,1,SYNERR 

STATES 

TRANS  lEND.SEXlT 
TRANS   <',>,SL0 

TRANS  SDIGIT.OARDNX.DARDST 
TRANS   '*>,,DARDST 

STATES  DARDNX 

TRANS  SDJGIT.DARDNX.DARDNO 

TRANS  <'«>,DARDNX,DARDNO 

TRANS  IEND,SEXIT,DARDND 

TRANS  <',>,, DARDND 


START  OF  REMOTE  DTE  ADDRESS 


END  OF  REMOTE  DTE  ADDRESS 


STATES  SLO 

TRANS  <',>,SHI 

TRANS  SNUMBR,,DASSLO  ;  LOW  END  OF  SUBADDRESS  RANGE 

STATES 
TRANS   lEND.SEXIT 

TRANS  <',> 


STATES  SHJ 
TRANS   <',>,DACUG 
TRANS   SNUMBR,,DASSHI 

STATES 
TRANS   I5ND,SEXIT 
TRANS   <',> 

STA1ES  DACUG 
TRANS   SSTKNG,END,DAClJNM 


HIGH  END  OF  SUBADDRESS  RANGE 


CUG  ADDRESS 
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1 
2 
3 

5 
6 

7 
8 
9 

10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2t. 
25 
26 
27 
28 
29 
30 
31 
32 
33 
^4 
35 
36 
37 
38 
39 
40 
4i 
42 
43 
44 
45 
46 
47 
48 


.TITLE   VFPDSN  -  INITIAL  CONFIG  FILE  SC«N  ACTION  ROUTINES 
.IDENT   /V05.00/ 
.ENABL   LC 

COPYRIGHT  (C)  1982,  1983,  1985  BY 

DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITf  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

Parse  tables  and  action  routines  tor  processing 
CETA8  DSNSDF  macro. 


EUROPEAN  DISTRIBUTE 
ICENT  HISTORY: 
1.00 


SYSTEMS  SOFTWARE  ENGINEERING 


11-0CT-82 

First  written  for  X25  Gateway  RSX  Host  Access 

[Tim  Dixon  EDSG] 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-IIM-PLUi  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S   V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Mico/RSX    Vl  .0 
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Symbol    table 


A$$CH<= 

000000 

D$$BUG= 

177514 

MAXSTR= 

000020 

Q$$0PT= 

000010 

X$$DBT= 

000000 

ASSCPS= 

000000 

D$$IS<= 

000000 

MOVE  = 

******  GX 

RNACCr= 

«»*♦*»  GX 

$ALPHA= 

000022 

A$$PRI= 

000000 

D$$l11= 

000001 

MXACAC= 

000020 

RNAL  = 

******  GX 

SANV  = 

000020 

AS$TRP= 

000000 

D$$YNC= 

000000 

MXACPA= 

000010 

RNNL  = 

******  GX 

$BLANK= 

000006 

BNQST 

0001 76R 

003 

D$$YNM= 

000000 

MXACUS= 

000020 

RNN0DE= 

******  GX 

$DIGIT= 

000024 

BRA   = 

00007A 

END 

0001 36R 

003  MXNOID= 

000006 

RNPASS= 

**«*«*  GX 

$DNUM8= 

000014 

BRAST 

0001 70R 

003 

E$$XPR= 

000000 

M$$CR8= 

000124 

RNPL  = 

»«****  GX 

$E0S  = 

000012 

CERR  = 

»•*•*«  GX 

FMT10  = 

***••*  GX 

M$$CRX= 

000000 

RNUL  = 

******  GX 

SERRMC 

OOOOOOR 

CFGBF  = 

«*«**•  6X 

FM.10  = 

000000 

M$$FCS= 

000000 

RNUSER= 

******  GX 

$ERR1T= 

******  GX 

CFGS2  = 

«♦«*•*  GX 

F$$LVL= 

000001 

M$$MGE= 

000000 

RTSPC  = 

******  GX 

$Exn  = 

000000 

CFLIN  = 

»*♦»«*  GX 

G$$TPP= 

000000 

M$$NET= 

000000 

R$$DER=: 

OOOOOO 

$FAIL  = 

177777 

CLRSTR 

000264R 

G$$TSS= 

000000 

M$$OVR= 

000000 

R$$K11= 

000001 

$lAMDA= 

000000 

COMENT= 

000073 

G$$TTK= 

000000 

NQST 

000250R 

003 

R$$SND= 

000000 

$NUMBR= 

000002 

COMMA  = 

00005A 

G$JWRD= 

000000 

N$$ACC= 

000001 

R$$11M= 

000000 

$QDSN 

OOOOOORG 

C$SCKP= 

000000 

I$$RAR= 

000000 

N$$BUF= 

000001 

SKIPSP 

000126R 

003 

$RAD50= 

000016 

C$$ORF= 

000400 

I$$RDN= 

000000 

N$$LDV= 

000001 

STORCH 

000272R 

$STRNG= 

000004 

C$$R3H= 

177564 

KET 

000076 

N$$MCP= 

000001 

STRBUF 

00004 1R 

002 

$SUBXP= 

000010 

DB'  ■".T 

000236R 

003 

K$$CNT= 

177546 

N$$MLL= 

000001 

STRING 

000146R 

003 

$$$FLG= 

177777 

DQi 'TE= 

000042 

K$$CSR= 

177546 

N$$MOV= 

000010 

STRLEN 

000040R 

002 

$$$KEY= 

000000 

DSNACT 

000222R 

>;$$LDC  = 

000000 

N$$NCT= 

000001 

SYNERR= 

»«***♦  GX 

$$$STA= 

000000 

D''-IDF 

OOOOGOR 

003 

K$$TPS= 

000074 

N$$PEM= 

000001 

S$$WRG= 

000000 

$$$TMP= 

OOOOOOR 

DSNKW 

OOOOOORG 

004 

LDSLP  = 

000000 

OPSEP 

000110R 

003 

S$$YSZ= 

007600 

.PCHAR= 

**«»**  GX 

DSNNOD 

000054R 

L$$ASG= 

OOOOCO 

P$$P45= 

000000 

T$$KMG= 

000000 

.PSTCN= 

******  GX 

DS'JPAS 

000160R 

L$$DRV= 

000000 

P$$WRD= 

000000 

T$$M]N= 

000000 

.PSTPT= 

******  GX 

DSNST 

OOOOOORG 

003 

L$$P11= 

000001 

QBRAST 

000214R 

003 

V$$CTR= 

001000 

.TPARS= 

******  GX 

DSNUSR 

0001 16R 

L$$11R= 

000000 

QST 

000224R 

003 

.  ABS. 

000000 
000322 

000 
001 

(RW,i,G8L,A8S,0VR) 
(RU,I,LCL,REL,CON) 

DATA 

000062 

002 

{R«l,D,LCL,REL,C0N) 

SSTATE 

000270 

003 

(RU.D.LCL.REL.CON) 

SKTAB 

000002 

004 

fRW.D.LCL, RELCOM) 

SKSTR 

000007 

005 

(RW,D,LCL,l<EL,CON) 

Errors   detected:      u 

»**  Assembler   statistics 


Work   fUe  reads: 

0 

Wck   f  1  Le  writes: 

0 

S1?e  ct  work  tile: 

12488  Words 

49  Pages) 

Size   of  core  pool : 

14440  Word"-. 

55  Pages) 

Operating  system: 

RSX-11I^/PLUS 

SY?vFPDSN'v2i[132,134]VFPDSN/CR/-SP=Sr:[i,1]RSXI»!CM.SML/ML,[130,110]NETLIB/l*:L,ri30,10]RSXMrM/PA:1,[132,10]VFPDSN 


002 


005 
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DSTSDF  ACTION  ROUTINES 


212 

213 

2U 

;  PRIORHV 

215 

2i6 

.ENABL 

LS8 

217  000162 

012700 

OOOOOOG 

DSPRl:   MOV 

#DSTPRI 

RO 

218  000166 

000402 

BR 

10$ 

; 

219 

220 
221 
222  OOOVO 

;  OBJECI  NUMBER 

012700 

OOOOOOG 

DSOBJ:  MOV 

#DSTDBJ 

,R0 

223  000174 

005767 

OOO-'iOOG 

10$:    TST 

.PNUMH 

22A  000200 

001006 

BNE 

101$ 

225  000202 

105767 

000001 G 

TST8 

.PNUMB+ 

, 

226  000206 

001003 

BNE 

101$ 

227  000210 

116710 

OOOOOOG 

M0V8 

.  PNUM8 , 

(RO) 

228  0002K 

RETURN 

229 

230 
231 
23?  000216 

;  ERRORS 

0?2700 

OOOOOOG 

101$:   CMP 

#DST0BJ 

,R0 

233  000222 

0(1403 

BEQ 

102$ 

234  000224 

EMSG$R 

N5 

235  000232 
236 

102$:   EMSGSR 
.DSABL 

N6 
LSB 

GET  ADDRESS  OF  STORAGE  FOR  PRIORITY 
CONTINUE  IN  COMMON  CODE 


GET  ADDRESS  OF  OBJECT  NUMBER  STORAGE 

LEGAL  VALUE? 

BR  IF  NO 

IS  IT  A  BYTE  VALUE? 

BR  IF  NO 

STORE  SPECIFIED  VALUE 


IS  THIS  FOR  OBJECT  NUMBER? 
BR  IF  YES 

ELSE  ILLEGAL  PRIORITY 
ILLEGAL  OBJECT  NUMBER 
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MOvBCD  -  Move   variable-length  BCD   fields 


606 

607 

608 

609 

610 

611 

612 

613 

6U 

615 

616 

617 

618 

619 

620 

621 

622 

623  001 70A 

62^.   001704 

625  001706 

626  001710 

627  001712 

628  0017U 

629  001716 
63C  001720 

631  001722 

632  001724 

633  001726 
63A 

635  001730 


.SBTTL  M0V8CD  -  Moue  variable-length  BCD  fields 
«*»  MCVBCD  -  Move  variable-length  BCD  fields 


FUNCTION 
Gi 

(d.  ._  .        ,   . 
contiguously  to  output  buffer 


Given  table  of  pointers  to  variable  length  fields 

(data  with  one-byte  precount  of  number  of  digits),  move  all  fields 


INPUTS 

RO  -  Address  of  table  of  pointers  to  fields 
Rl  -  Address  of  output  buffer 

OUTPUTS 

Rl  -  Next  free  byte  in  output  buffer 
RO,  R2,  R3  destroyed 


012002 
001410 
112203 
001774 
006203 
005503 
112221 
005303 
00^375 
000766 


MOVBCD. 

5$: 

MOV 

(R0)+,R2 

BEQ 

20$ 

MOVB 

(R2)t,R3 

BEQ 

5$ 

ASR 

R3 

ADC 

R3 

10$: 

M0V8 

(R2)t,(Rl) 

DEC 

R3 

BGT 

10$ 

BR 

5$ 

;  Get  next  table  entry 

;  Zero  at  end  of  table 

;  Get  length  of  entry 

;  If  empty,  look  for  next 

;  Convert  number  of  digits  to  bytes 

;  Move  data  to  output  area 

:  loop 


20$: 


RETURN 


;[TD001J 
;rTD001] 
.-[TDOOI] 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 

;i:tdooi] 

;[TD00n 
;CTD001] 
;[TD001] 
;[TD00i: 
;CTD001] 
;[TD001] 
;[TD00i: 
;rTD001] 
;[TD0&1] 
;[TD001] 
;[TD001] 
;[TD00i: 
;CTD001] 
;[TD001] 
;[TD001] 
;CTDl,'il] 
;CTD00.:, 
;CTD001] 
;[TD001] 
.-[TDOOl] 
.•CTDOOl] 
;CTD001] 
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VFPDTE  - 
LOCAL  DA 

101 
102 
103 
lO-i 
105 
106 
107 
108 
109 
110 
111 
V 

^^i 

114 
115 
116 
117 
118 
119 
120 
121 
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A 

.SBTTL  LOCAL  DATA 


000000 


000000 
000017 
000027 


000017 

000016' 

000006 


LOCAL  DATA 

.PSECT  DATA,D 
.NLIST  BEX 

LOCAL  DATA  FOR  DTESDF  MACRO 


DTEADD 
DTEPCK 
DTNTNM 


DTEALN  =  15. 
.BLKB   DTEALN 
DTEND  =  .-1 
.BLKB   8. 
DTNMMX  =  6. 
.BLKB   DTNMMX 
.EVEN 


MAXIMUM  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 
TEMPQRARV  STORAGE  FOR  UNPACKED  DTE  ADDRESS 

PACKED  DTE  ADDRESS 

MAX  CHARACTERS  IN  NETWORK  NAME 

NETWORK  NAME 
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VFPDTE  -  INiriAL  CONFIG  FRE  SC  MACRO  V05 
Symbol  table 
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A$$CHK= 

000000 

G$$URD= 

000000 

A$$CPS= 

000000 

HFSDLM= 

000002 

A$tPRl= 

000000 

HF$GUY= 

000010 

At$TRP= 

000000 

HF$HOS= 

000004 

BIASX 

001322R 

HF$XDF= 

000020 

CERR   = 

».«»*»  GX 

HSHADD= 

*»».*«  GX 

CFGBF  = 

*♦♦*»•  GX 

H5HMN  = 

000040 

CFGSZ  = 

*••*♦♦  GX 

HSHMX  = 

001000 

CFLIN  = 

♦*»»♦»  GX 

HSHSZ  = 

......  GX 

CHKDEV 

001206R 

HSHTBL 

000256R 

CHKDTE 

001042R 

H$CUG 

000010 

CNTTIM 

000326R 

H$DST 

000012 

COUNT  = 

••**♦•  GX 

H$D29 

000014 

CTIM  = 

•♦»**»  GX 

H$FLG 

000000 

C$$ck;p= 

000000 

HSGLEN 

000104 

C$$ORE= 

OOOAOO 

H$GLT 

000044 

C$$«oH= 

177564 

HSGNAM 

000050 

DEVCTL= 

......  GX 

H$GNML= 

000020 

DEVNAM= 

...«*»  GX 

HSGPT 

000046 

DEVUNT= 

.*.».»  GX 

HSHITS 

000034 

DE.OFF= 

......  GX 

HSHLEN 

000044 

DE.ON  = 

».♦.**  GX 

HSLBDA 

000070 

DTEAD 

00001 2R 

003 

HSLSDN 

000072 

DIEADD 

OOOOOOR 

002 

HSLDTE 

000002 

DTEAEN 

OOOUOR 

H$LEN 

000042 

DTEALN= 

000017 

H$LOTS 

000032 

DTEA5T 

000052R 

H$NETW 

000024 

DTEDES= 

......  GX 

H$NML  = 

000006 

OTEDF 

OOOOOOR 

003 

HSNPT 

000022 

DTEDIG 

0001KR 

H$PT8 

000020 

DTEEND 

00041 2R 

H$PVC 

000006 

DTEFLG= 

.*♦.»♦  GX 

HSRDTE 

000004 

DTEKW 

OOOOOORG 

004 

HSRNU 

000042 

DTEND  = 

00001 6R 

002 

H$5VC 

000036 

DTENET 

000352R 

H$TRB 

000016 

DTENW 

000076R 

003 

HSXAVL 

000100 

DTEPCK 

OOC017R 

002 

HSXBIA 

000074 

DTEST 

OOOOOORG 

003 

H$X29C 

000040 

DTNMMX= 

000006 

I$$RAR= 

000000 

DTNTNM 

000027R 

002 

I$$RDN= 

000000 

D$$BUG= 

177514 

K$$CNr= 

177546 

D$$ISK= 

000000 

K$$CSR= 

177546 

D$$Lll= 

000001 

K$$LDC= 

000000 

D$$VNC= 

000000 

<$tTPS= 

000074 

D$$YNf«  = 

000000 

LD$LP  = 

OOOOOP 

END 

00011 4R 

003 

LF.ACT= 

100000 

E$$XPR= 

000000 

LF.BRO= 

000400 

FMTIQ  = 

i»»*..  GX 

LF.BWT= 

00000^ 

FMT8   = 

......  GX 

LF.ENA= 

002000 

FM.-'O  = 

000000 

LF.LPB= 

001000 

FM.8  = 

000000 

LF.MDC= 

000100 

FN[)PDV  = 

..♦.».  GX 

LF.MFL= 

004000 

f$$LvL= 

000001 

LF.MTP= 

000020 

F.RSIZ= 

......  GX 

LF.PAC= 

000200 

G$$TPP= 

000000 

LF.Rt^'r  = 

040000 

G$$1SS= 

000000 

LF.REA= 

010000 

G$jn<= 

ooooco 

LF.SER= 

00U040 

LF.T1M= 

LF.UNL= 

LF.X2P= 

LINCTL= 

LINID 

LiNIDI 

LINNAM= 

LINUNT= 

LNK.END= 

LN$0FF= 

LMSON  = 

LN$SHU= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

LP$EIP= 

LP$EN8= 

LP$PCr= 

LP$TMR= 

LPSUP  = 

LP$WTD= 

LP$WTS= 

lS$CDN= 

LS$OFF= 

LG$STR= 

LSSUP  = 

LS$UT  = 

LSACHN 

LSAPVC 

LSASVC 

L$AUC 

LSCHLS 

LSCHTB 

L$CLEN= 

LSCTEN 

LSCTIM 

LSDTEA 

LSDTEL 

lsglen 

L$LEN 

LSLLCH 

LlLNK 

LSMCHN 

LSNETW 

L$N1RE 

L$NLRE 


000010 
020000 
000000 

**♦**. 

000124R" 

000146R 


GX 


000001 
000000 
000002 
000000 
000005 
000004 
000003 
000005 
000001 
000000 
000004 
000001 
000002 
000002 
0C0017 
000360 
000006 
002000 
004000 
001400 
100000 
010000 
020000 
040000 
000004 
000000 
000002 
000003 
000001 
000012 
000014 
000010 
000042 
000034 
000030 
000044 
000032 
000040 
000020 
000017 
000134 
000122 
000016 
000000 
000036 
009114 
000072 
000104 


GX 
GX 
GX 


LSNMAC 
L$NMAS 
LSNMST 
LSNNRE 
003  LSNRBY 
003  LSNRCA 
LSNRFS 
L$NRPK 
LSNRRE 
LSNRST 
LSNTBr 
LSNTCA 
LSNTFS 
LSNTPK 
LSOMST 
L$PCS 
L$PLS 
LSQCNT 
LSQUEH 
LIQUET 
LSRTRY 
LSSLN 
L$ST 
LSTCLZ 
LSTIM 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
L.COSF 
L.CTL 
L.CVA 
L.DDM 
L.DDS 
L.DLC 
L.DLM 
L.DLS 
L.FLG 
L.KRBA 
L.LEN  = 
L.MPF 
L.NMST 
L.NSTA 
L.OWNR 
L.UNT 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$HGE= 
M$$NET= 
f1$$0VR= 
NEXT  = 
NUMt)TE  = 
N$$ACC= 
N$$BUF= 
N$$LDi'= 
N$$MCP: 


000076 

000074 

000003 

000106 

000046 

000066 

000100 

000056 

000105 

000107 

000052 

000070 

000102 

000062 

000002 

000112 

000110 

000122 

000124 

000130 

000007 

000004 

000005 

000044 

000006 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

000022 

000022 

000020 

000014 

000021 

000013 

000124 

000000 

000000 

000000 

000000 

000000 

.*...*  GX 

000020 

000001 

000001 

OOOnOI 

OOOG"^ 


N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PCKBCD= 

PF.PSV= 

PF.Xt)F  = 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RTSPC  = 

R$RO  = 

R$R1   = 

R$R2  = 

R$R3  = 

R$R4  = 

R$R5  = 

R$$OER= 

R$$K11= 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB= 

SF.MFL= 

SF.PAC^ 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SPACE  = 

SPFILL= 

STRNXT= 

SYNERR= 

SYSFDB^ 

S$$WRG= 

S$$YSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S . OWNR 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

$ALPHA= 

$ALPOL= 

$ANY  = 

$BFR  = 

$BLANK= 

$CEACC= 

$DIGIT= 

$DNUMB= 

$EOS  = 

SERROO 

SERROP 


000001 
000010 
000001 
000001 


GX 
GX 
GX 


GX 


000000 
000000 
000010 
****** 

000002 
000004 
000006 
000010 
000012 
000014 
000000 
000001 
000000 
000000 
000200 

000100 

000004 
000040 
000020 
000010 
000001 
000002 
000040 
000040 

***.*♦ 
****** 
****** 
****** 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000000 

000000 

001000 

000000 

000022 

***.**  GX 

000020 

***..* 

000006 

000024 

0C0014 

000012 

OOui.-.- 

000214R 


GX 
GX 
GX 
GX 


GX 
GX 


C02 
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ERROR  MESSAGES 

105  .SBTTL  ERROR  MESSAGES 

105  000030  NTLERS  ,P1 ,10,CERR,RrSPC ,Cf LIN,<occurrence  of  PSN$DF>               ;»*-2 

106  000066  NTLERt  ,P2,10,CERR,RISPC,CFL IN,<network  name> 

107  OOOIU  NTLERS  ,P3,10,CERR,RTSPC  ,CFLIN,<number  of  ports> 

108  OOOU^;  NTLERS  ,P4,10,CERR,RTSPC,CFLIN,<f lags  wordx 

109  000170  NTLERS  ,P5,8,CERR,RTSPC  ,CFLIN,<PS1  home  block  aHocation  faUure> 

110  000242  NTLERS  ,P6,8,CERR,RTSPC ,CFLIN,<Port  table  allocation  failure>   . 

111  000310  NTLERS  , PA, 8, CEPR,RTSPC,CFLIN,<PSV  mapping  tables  allocation  failure>  ;[TD001] 

112  000366  NTLERS  ,D1 ,10,CERR,RTSPC,CFL IN,<low  subaddresss  ua[ue> 

113  000A24  NTLERS  ,D2,10,CERR,RTSPC,CFLlN,<high  subaddress  i/atde> 
1U 

115  .EVEN  , 

116  .LIST  BEX  ;♦*-! 

117  000000  .PSECT 
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VFPPSN 

CREATED   9Y 

MACRO     ON  29-JUN-85   AT   0?:37 

PAGE 

SYMBOL 

CROSS  REFERENCE 

CREf 

SYMBOL 

VALUE 

REFERENCES 

.PNUMH 
.PSTCN 
.PSTP! 
.TPARS 

r     ......        GX 

=    ......     GX 

=    ......     GX 

=    ......      GX 

11-228           11-239           12-287 

11-213           11-215 

11-218 

9-139 

C  16 

04.00 


n" 
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PCK.BCD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 


Page  16 


596 

597 

598 

599 

600 

601 

60? 

6C3 

60A 

605 

606 

607 

608 

609 

610 

611 

612  001566 

010501 

613  001570 

116702  000024' 

6K  001574 

001423 

615  001576 

105021 

616  001600 

005300 

617  001602 

003375 

618  001604 

005001 

619  001606 

005305 

620  001610 

112400 

621  001612 

005701 

622  001614 

001007 

623  001616 

624  001626 

005201 

625  001630 

005205 

626  001632 

000401 

627  001634 

005301 

628  001636 

150015 

629  001640 

005302 

630  001642 

003362 

631  001644 

.SBTTL  PCK8CD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 

I- 

PCKBCD  -  PACK  A  STRING  OF  DIGITS  IN  BCD  FORMAT 

INPUTS: 

RO  -  NUMBEh)  OF  BYTES  IN  PACKED  ADDRESS 

R4  -  ADDRESS  OF  BUFFER  CONTAINING  ASCI  DIGITS  TO  PACK  (O^END  OF  BUFFER) 

R5  -  ADDRESS  OF  BUFFER  TO  STORE  PACKED  DATA 

COUNT  -  NUMBER  OF  DIGITS  SPECIFIED 

OUTPUTS: 

BUFFER  SPECIFIED  IN  R5  CONTAINS  DATA  IN  BCD  FORMAT 


GET  ADDRESS  OF  PACKED  DATA 

GET  NUMBER  OF  DIGITS  IN  STRING 

BR  IF  NOTHING  TO  DO 

INITIALIZE  PACKED  ADDRESS 

MORE  TO  INITIALIZE? 

BR  If  VES 

POSITION  INIDCATOR  (0=H!GH  FOUR  BITS) 

UPDATE  ADDRESS  FOR  FIRST  TIME 

GET  DIGIT  TO  PACK 

STORE  IN  HIGH  FOUR  BITS? 

BR  IF  NO 

MOVE  TO  HIGH  FOUR  BITS 

INDICATE  STORE  IN  LOW  FOUR  BITS  NEXT 

POINT  TO  NEXT  BYTE 

BR  TO  STORE  DECIMAL 

INDICATE  STORE  IN  HIGH  FOUR  BITS  NEXT 

PACK  THE  NUMBER  INTO  THE  BUFFER 

MORE  TO  CONVERT? 

BR   IF    YES 


PCKBCD: 

MOV 

R5,R1 

M0V8 

COUNT, R2 

BEO 

40$ 

5$: 

CLRB 

(R1)  + 

DEC 

rq 

m 

If 

DEC 

R5 

10$: 

MOVB 

(R4)+,R0 

TST 

Rl 

BNE 

20$ 

ASL$ 

4,R0 

INC 

Rl 

INC 

R5 

BR 

30$ 

20$: 

DEC 

Rl 

30$: 

BISB 

R0,(R5) 

DEC 

R2 

BGT 

10$ 

40$: 

RETURN 

E     1 
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JFGX2P  - 
MACRO  DE 

55 
56 
57 
58 
59 
60 
61 
62 
63 
6^ 
65 
66 
67 
68 
69 
70 


CONfIG  FILE   SCAN  ACTIO  MACRO  V05.03b   Saturday  29-Jun-85  C;?!      Page  5 
FINITIONS 

.SBTTL     MACRO  DEFINITIONS 


LIBRARY  MACROS 

.MCALL   I  STATS, STATES, TRANS, EMSG$R,NTLER$,PDVDF$,SLTDF$ 


000000 
OCOOOO 


PDVDFS 
SLTDFS 

;  LOCAL  MACRO  DEFINITIONS 

.MACRO  REJS 

ADD  #2,(SP) 

CLR  SYNERR 
.ENDM 


DEFINE  PDV  OFFSETS  AND  SYMBOLS 
DEFINE  SLT  OFFSETS  AND  SYMBOLSS 


;  RETURN  TO  CALLER+2 

;    INDICATE   NO  SYNTAX   ERROR 


-ikirir     trie     ctam     ArTin    MATDn     \ir\^     n?K     ^utiirri:i\j 


-«■;  ns'^i 


VFGX2P     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:32 
SYMBOL  CROSS  REFERENCE 
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PAGE  3 

CREF   0^.00 


SYMBOL  VALUE 


ZF.MUX 

ZF.PSE 

ZF.SLI 

ZF.TIM 

ZF.X3P 

ZS.ASN 

ZS.BSY 

Z.AVL 

Z.DAT 

Z.DSB 

Z.FIG 

Z.LEN 

Z.LLN 

Z.MAP 

Z.NAM 

Z.PCB 

Z.SCH 

SALPHA 

SANY 

SBLANK 

$CAT5 

Sl/IGIT 

SDNUMB 

$EOS 

SERRIT 

$ERR2C 

$ERR2F 

$ERR2I 

$ERR2J 

$ERR2K 

$ERR2L 

SEXIT 

SFAIL 

SGPRM 

SLAMDA 

SNUMBR 

SPDVTA 

$0X2P 

$RAD50 

SRONLY 

SSLTA 

SSTRNG 

SSUBXP 

$X2HLD 

$X?MBS 

$X2MRT 

SX2MWS 

$X2RET 

$$$FLG 

$$$KEY 

. PNUMB 


=  OOOOAO 
=  002000 
=  010000 
=  000200 
=  000000 
=  100000 

=  uoooo 

OOOOH 

000016 

000000 

000010 

=  000016 

000006 

000020 

000004 

000012 

000007 

=  000022 

=  000020 

=  000006 

=  ****** 

=  00002A 
=  OOOOH 
=  000012 

=:  ****** 

=  ****** 

=  ****** 

=  ****** 

000004  R 
000046  R 
000106  R 
=  000000 
=  }77777 
-   ****** 

=  000000 
=  000002 


000144  RG 
000016 


GX 


GX 
GX 
GX 
GX 


****** 
****** 
000004 
000010 

♦♦♦*+* 
+  *■♦**  t 
♦*+**♦ 
•■**♦** 

177777 
177777 

»■♦*♦♦*■ 


GX 


GX 
GX 
GX 
GX 
3X 


GX 


REFERENCES 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#5-62 

#10-136 

#10-136 

#10-136 

11-204 
#10-136 
#10-136 
#10-136 

9-130 

11-261 

n-252 

11-238 
#8-98 
#3-99 
#8-100 
#10-136 
#10-136 

10-136 
#10-136 
#10-136 

11-227 
#9-116 
#10-136 

10-136 

n-225 
#10-136 
#10-136 
*11-293 
«11-259 
M1-269 
•11-250 
.11-281 
#10-136 
#10-136 

11-212 

11-289 


5-62 


11-229 


11-271 
11-283 
11-295 


10-136 


10-156 


11-214 


11-222 


11-224 


11-245 


11-258 


11-267 


11-269 


11-277 


_c!i:    AT    m  .  70 
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X5P$DF  ACTION  ROCITINES 


233  000270 

234  000272 

235  000276 

236  000302 
257  000504 
258 

259 

005267 
062716 

ITo'S' 

101$: 
102$: 

RETURN 

INC 

ADD 

RETURN 

EM^G$R 

SYNERR 
*2,(SP) 

2H 

;  INDICATE  SYNTAX  ERROR 
;  REJECT  THE  TRANSITION 

;  ILLEGAL  TIMER  VALUE 

•  END 

OF  TIMER 

VALUES 

241  000512 

242  000520 

243  000322 

244  000526 
245 

126727 
001402 
062716 

ooooo; 

000010'  000007 
000002 

X3.END 
10$: 

:  CMP8 
BEQ 
ADD 

RETURN 
.END 

TimRCT,#X3TMCT 

10$ 

#2,(SP; 

;  WERE  ALL  VALUES  PROCESSED 

;  BR  IF  YES 

;  REJECT  THE  TRANSITION 

rnMCir.    cue     CffiM    ATTTn    MAfDn    un^i    (T^h    ';at-iirH;. 


?g.|,,n-RS   02:3?      P;inp    11-2 


r 

I,. 


VFIND  -  VNP  FIND  ENTITY 

ROUTINE  MACRO  VC 

$FNNAM  -  FIND  REMOTE  BY 

NAME 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210  000470 

211  000470 

010246 

212 

213  000472 

214  000500 

215  000520 

216 

217  000526 

012700 

000004G 

218 

219  000532 

nil  067 

OOOOOOG 

220  000536 

C'0146 

221  000540 

010067 

177234 

222  000544 

016701 

177230 

223  000550 

016767 

OOOOOOG  177222 

224  000556 

000261 

225  000560 

001431 

226  000562 

227  000574 

228  000612 

011602 

229  0006-:4 

02226? 

000002G 

230  0OC620 

001351 

231  000622 

022267 

000004G 

232  000626 

001346 

233  000630 

022267 

000006G 

234  000634 

001343 

235  000636 

016700 

177136 

236  000642 

000241 

237  000644 

005226 

238  000646 

012602 

239  000650 

240 

^'41 

242 

000001 

0  5 
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.S8TTL  if  mm  -   FIND  REMOTE  BY  NAME 

***  -  SFNNAM  -  FIND  REMOTE  NODE  BlOCK  BY  NAME 

INPUTS: 

R1  =  ADDRESS  OF  REMOTE  NODE  STRING 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 

RO  =  UNMAPPED  ADDRESS  OF  OBJECT  BLOCK,  IF  FOUND 

R1  =  UNMAPPED  ADDRESS  OF  PREVIOUS 


SFNNAM: 


10$: 


20$: 


50$: 


MOV 

SWTCHI 

GETRV 

SWTCHI 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

SEC 

utQ 

CEACC$ 

GETAD 


npy 

m 


u 

CLC 
INC 
MOV 
RETURN 


.END 


R2,-(SP) 

#$HMBUF 
$DECPT,#D$END 


#$HMBUF+D$RNN+2,R0 

(RO),$BFR 

R1,-{SP) 

RO.CURUNM 

CURUNM,R1 

$BFR,CURUNM 

30$ 

CURUNM,RO 

RO,*R.LEN 

(SP),R2 

(R2)+,$BFRtR.NAM 

10$ 

(R2)+,$BFRtR.NAM+2 

10$ 

(R2)+,$BFR+R.NAMt4 

10$ 

CURUNM,RO 

(SP)* 
(SP)+,R2 


SAVE  R2 

USE  TEMPORARY  BUFFER 
READ  DECNET  HOME  BLOCK 
RESET  DEFAULT  BUFFER 

GET  START  OF  REMOTES  LIST 

GET  FIRST  IN  LIST 

SAVE  ADDRESS  OF  NAME  ON  STACK 

SAVE  UNMAPPED  ADDR  OF  CURRENT  BLOCK 

SAVE  ADDRESS  OF  PREVIOUS 

GET  NEXT  OBJECT  IN  LIST 

ASSUME  FAILURE 

IF  EQ,  NO  MORE 

CONVERT  TO  MAPPED  ADDRESS 

READ  REMOTE  IN  INTERNAL  BUFFER 

GET  ADDRESS  OF  NODE  NAME 

IS  THIS  THE  RIGHT  REMOTE  ? 

IF  NE,  NO 

ARE  WE  SURE  ? 

IF  NE,  NO 

ARE  WE  REALLY  SURE  ? 

IF  NE,  NO 

GET  UNMAPPED  ADDRESS  OF  BLOCK 

ELSE,  INDICATE  SUCCESS 

CLEAN  UP  THE  STACK 

RESTORE  R2 


i/nn    ciiLir\    CMTrrv    DniiTiMc:    MAron    \in^    n7K     Cafn 


E     5 

3Q-  i,,r,.R';  ny-xx 


D  6 

VFPCUG  -  INITIAL  CONFIG  HLE  SC  MACRO  VO5.03b  Saturday  29-Jun-85  02:33  Page  6 
LOCAL  SYMBOL  DEFINITIONS 

.SBTIL  LOCAL  SYMBOL  DEFINITIONS 


80 

81 

82 

83 

34 

85 

000040 

86 

000006 

87 

000020 

LOCAL  SYMBOL  DEFINITIONS 

SPACE  =  40 
CUNMMX  =  6. 
MAXID  =  16. 


ASCII  SPACE  rr.^A-,-, 

Maximum  length  of  old-format  CUG  name       ;LT^001J 
Maximum  length  of  net.  mgmt.  id-string       ;C1000lJ 


i/nc  A7k 


^.A. 


D  7 

VFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29- Jun-85  02:33 
ALCUG  -  A'J.ocate  and  fill  a  CUG  name  block  (general) 


Page  18-1 


455 


000001 


.END 


;**-52 


1 


QQ     A'i 


1 


VFPDSA  - 

INITI/ 

DSCSDF  STATE  T/ 

1l6 

167 

1o8 

169 

170 

171 

000060 

172 

000060 

173 

\7'^ 

000060 

175 

000060 

176 

000060 

177 

178 

000060 

179 

000060 

180 

181 

000060 

182 

000060 

183 

18^ 

000060 

185 

000060 

186 

000060 

187 

D    8 

INITIAL   CONTIG   FILE   SC  MACRO  V05.03b   Saturday  29-Jun-85   02:3'!     Page   10 

.S8TTL      DSCSDF    STATE   TABLES 


000060 


DSCSDF 


STATES     DSCDF 
TRANS        XDSC$DF%,,,1,SYNERR 


STATES 
TRANS 
TRANS 

lEND.SEXIT 
SSTRNCDCMSK 

;  CALL  MASK 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

CALVAL 
SSTRNG,END,DCVAL 

;  CALL  VALU 

STATES 
TRANS 
TRANS 

END 
SEOS.SEXIT 
<';>,SEXIT 

STATES 


E 


i 


VFFDSN  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02 
Local  Symbols 


:?. 


Page  5 


50 

51 

52 

0000A2 

53 

00005A 

54 

000073 

55 

000074 

56 

000076 

57 

58 

000006 

59 

000020 

60 

000C10 

61 

OO0C20 

62 

63 

000020 

.SBTTL  Local  Symbols 

DQUOTE  =  <'"> 
COMMA  =   <',> 
COMENT  =  <';> 
BRA  =  74 
KET  =  76 

HXNOID  =  6 
MXACUS  =  16. 
MXACPA  =  8. 
MXACAC  =  16. 

MAXSir^  =  16. 


String  delimiter 
Operand  separator 
Start-of-comment  character 
Left  angle  bracket  t<> 
Right  angle  bracket  (>) 

Max  length  of  node  id 

Max  length  of  access  cntrl  user 

Max  length  of  access  cntrl  password 

Max  length  of  access  cntrl  accoun: 

Max  length  of  string  seen  in  parse 


I  9 


VFPDSN     CREATED  BY  MACRO  UN  29-JUN-85  AT  02:35 
SYMBOL  CROSS  REFERENCE 


D  10 

PAGE  1 

CREF   0^.00 


SYMBOL  VALUE 


BRA 

CERR 

CFSBF 

CFGSZ 

CfLlN 

CLRSTR 

COMENT 

COMMA 

OQUOTE 

PSNACT 

DSNDF 

DSNKW 

DSNNQO 

DSNPAS 

DSNST 

CSNUSR 

FMTTO 

FM.10 

KET 

MAXSTR 

MOVE 

MXACAC 

MXACPA 

MXACUS 

MXNOID 

RNACCT 

RNAL 

RNNL 

RNNODE 

RNPASS 

RNPL 

RNUL 

RNUSER 

RTSPC 

5T0RCH 

STRBUF 

STRLEN 

SYNERR 

S$$8AS 

SALPHA 

$ANY 

SBLANK 

$DBG$ 

SDIGIT 

SDNUMB 

SEOS 

SERRMC 

SEiRlT 

SEXIT 

SFAIL 

SGPRM 

SLAMDA 


000074 
*♦••»«  GX 
*»»«*»  GX 
*♦♦♦«♦  GX 
*♦»*♦♦  GX 
000264  R 
000073 
00005A 
O00'^42 
000222  R 
000000  R 
000000  RG 
00005A  R 
000150  R 
000000  RG 
000116 
****** 

000000 
000076 
000020 

♦  ***■*» 

000020 
000010 
000020 
000006 

*♦♦♦♦* 

*•■*♦** 

****** 

****** 

****** 

****** 

*w**  ** 

****** 

000272 

000041  R 

000040 

)***** 
:  ****** 

:  000022 
■■  000020 
:  000006 

:  *'«**** 

:  000024 
^  000014 

000012 

000000 

*♦♦**» 

000000 
^77777 

****** 

000000 


GX 


GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


GX 


GX 


REFERENCES 

#5-55 

6-76 

8-108 

8-107 

6-76 
#15-319 
#5-54 
#5-53 
#5-52 
#14-297 

8-104 

8-106 
#11-226 
#13-273 
#9-122 
#12-250 

6-76 
#6-76 
#5-56 
#5-63 

11-233 
#5-51 
#5-60 
#5-59 
#5-58 

14-:'03 
•14-i01 
»11-230 

11-232 

13-279 
-13-277 
♦12-254 

12-256 

6-76 
#15-333 
#7-84 
#7-83 
*8-109 

6-76 
#9-122 
#9-122 
#1^-122 

^  33 
#  i22 
*,-122 
#9-122 
#6-76 

8-118 
#9-122 
#9-122 

9-122 
#9-122 


#9-122 


7-84 

12-257 

14-299 

13-275 

12-252 

11-228 


16-333 
13-280 


14-304 


12-255 
12-251 
♦8-112 
6-76 


11-236 


13-278 
13-274 


14-302 
14-298 


♦15-336 
♦15-319 


16-333 


15-335 


♦16-337 


12-260 


13-283 


14-307 


E  10 
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VFPDbT  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-,)un-85  02:35 
OSTtDF  ACTION  ROUTINES 

238 
239 
2^0 
2A1 
242 
2A3 
?M 
245 
2A6 
247 
2A8 
249 
250 


Page  12 


000240  012700  OOOOOOG 

000244  012701  000006 

000250 

000254  103401 

000256 


000260 


TASK  NAME 

STSK:      MOV 
MOV 
CALL 
BCS 
RETURN 

#DSTTKL,RO 
*DST/(MX,R1 
STORID 
101$ 

ERRORS 

01$:        EMSGSR 

N7 

address  of  task  name  buffer 
max  length  of  old-format  task  name 
check  and  store  task  name 
branch  if  bad  name 


ILLEGAL  TASK  NAME 


;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;».-11 


E  11 


VFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO 
MOVLEN  -  Moue  length  fields 

637 
658 
639 
6A0 
641 
6A2 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 

654  001752 

655  001732  012002 

656  001734  001402 

657  001736  111221 

658  001740  000774 
659 

660  001742 
661 
662        000001 


D  12 

V05.03b  Saturday  29-Jun-85  02:35  Page  23 

.SBTTL  MOVLEN  -  Move  length  fields 

♦♦*  MOVLEN  -  Move  length  fields 

FUNCTION  ^   ^ 

Given  table  of  pointers  to  counts  (one  byte)  of 
variable  fields,  move  all  counts  contiguously  to 
output  buffer. 

INPUTS 

RO  -  Address  of  table  of  pointers  to  counts 
R1  -  Address  of  output  buffer 

OUTPUTS  .        ^  ^^ 

Ri  -  Address  of  next  free  byte  in  output  buffer 
RO,  R2  Destroyed 


MOVLEN: 
5$: 

MOV 
8EQ 
M0V8 
BR 

(R0)+,R2 
20$ 

(R2),(R1)i- 
5$ 

50$: 

RETURN 
.END 

;  Get  table  entry 

;  Zero  at  end  of  table 

;  Move  length  field 

;  loop 


.•[TDOOI] 
;[TD001] 
;[TD00i: 
;CTD001] 
;[TD001J 
,-[TD001] 
;[TD0013 
;[TD001] 
;CTD001] 
;[TD001J 
;[TD001] 
;CTD00i: 
;[TD001] 
;[TD001D 
;CTD001] 
;CTD00n 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001] 
.-CTOOOi: 
;CTD001] 
;[TD001] 
;[TD001] 


E.12_ 
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VFPDTE  -  INITIAL  CONFIG  PILE  SC  MACRO  V05.05b  Saturday  29-Jun-85  02:36  Page  8 
ERROR  MESSAGES 

125  .SBTTL  ERROR  MESSAGES 

125  000036  NTLERS  ,03,10,CERR,RTSPC,CFLIN,<DTE  address  value>                  ;**-! 

126  000070  NTLERS  ,04,10,CERR,RTSPC,CFLIN,<hash  table  size> 
12'  000120  NTLERS  ,07,8,CERR,RTSPC,CFL!N,<Line  not  in  system) 

128  00015^  NTLERS  ,00,lO,CERR,RTSPC,CFLIN,<network  name  parameter) 

129  0002U  NTLERS  ,0P,8,CERR,RTSPC,CFL1N,<DTE  descriptor  allocation  failure) 

130  000266  NTLERS  ,00,8,CERR,RTSPC,CFLIN,<Too  many  DTES:)Fs> 

131  .LIST  BEX  ;**-. 

132  .EVEN 

133  000000  .PSECr 


E  13 


vrPDiE  -  INITIAL 
Symbol  table 


CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:36  Page  18-2 


SERROQ 

SERRO? 

SERROA 

$ERR05= 

tFRR07 

«;errit= 

SEXIT  -: 
S'^AIL  = 

ABS. 

DATA 
SSTATE 
SKTAB 
SKSTR 


000266R 
000036R 
000070R 
«••»•♦  GX 

000120R 
»»»♦••  GX 
000000 
177777 

177776 
0015^^2 
000320 
000  1 5A 
000006 
000016 


002  $GETAD=  «•*»»» 

002  $GETRV=  ••♦••« 

002  $LAI»IDA=  000000 

$LLCTA=  ♦•*♦♦• 

002  $NUMBR=  000002 

$PFLAG=  »***♦« 

SPSIPT-  .»»*«* 


GX 

$PUTAD= 

»«*»««  GX 

$SLTMA= 

GX 

$$$STA= 

000000 

GX 

$(JDTE 

OOOOOORG 

$SLrNM= 

****** 

GX 

$$$TMP= 

00001 2R 

$RADDR= 

*«*«»•  GX 

$STRNG= 

OOOOOA 

.PNUMB= 

******  GX 

GX 

$RAD50^ 

000016 

$Sy8XP= 
$$$FLG= 

w?}'? 

.PNUMH= 

******  GX 

$RBLCK= 

.♦*»»♦  GX 

.PSTCN= 

******  GX 

GX 

$"AVAL= 

«*'«**  GX 

$$$KEY= 

000002 

.PSTPT= 

******  GX 

GX 

$SAVRG= 

♦*♦»»♦  GX 

$$$R  = 

000010 

.rPARS= 

******  GX 

Errors  detected: 


000 
001 
002 
003 
00« 
005 
0 


(RW,l,GBL,AaS,OVR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,RE!.,CON) 
(RW,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


005 


♦••  Assembler   statistics 

Work      tile      reads:  1 

Work      . i le   writes  :  2 

Size  of   work   file:  16924   Words      (   67  Pages) 

Size  of   core  pool:  17608  Words      (   67  Pages) 

Operating     system:  RSX-1 1M/PLUS 

SY:VFPDTE!v2iri32?1^4]VFPDTE/CR/-SP=Sy:[1,nRSXMCM.SML/ML,C130,1103NETLlB/ML,[130,10]RSXMCM/PA:1,[132,10]VFPDTE 


E   K 


D  15 

VFPPSN  -    INITIAL   CONFIG  FILE   SC   MACRO  V05.0?b  Saturday  29-Jun-85   02:37 
LOOK,   FOR   PSN$PF    MACRO 


Page  9 


119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 

132  000000 

133  000000 

134  OOOOOA 

135  000006 

136  000012 

137  000016 

138  000022 

139  000026 
KO  000032 
HI  000034 

142  000040 

143  000042 
144 

145 
146 
147 
US  0000'.4 


.SBTTL   LOOK  FOR  PSNIDF  MACRO 


$QPSN  -  LOOK  FOR  PSNSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 
R3,R4,R5=DESTROYED 


012705  000000' 
005001 

012702  000000' 

016703  OOOOOOG 

012704  OOOOOOG 

005067  OOOOOOG 

103003 

005367  OOOOOOG 

001401 


$QPSN: 


MOV 

#PSNDf ,R5 

CLR 

R1 

MOV 

*PSNKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFGBF,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

20$: 

RETURN 

;  ERROR 

CONDITION 

i01$: 

EMSGSR 

U 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF    CC,    FOUND  WHAT   WE   WERE   LOOKING  FOR 

DID   SYNTAX   ERROR  OCCUR? 

IF    EQ,    YES 


SYNTAX  ERROR 


;[TD001] 
;[TD001] 
;[TD001] 


f   IS 


L 


D  16 

VFPPSN 

CREATED  BY  MACRO  ON  29-JUN-85  AT  02 

37     PAGE 

4 

MACRO  CROSS 

REFERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

CALL 

9-139 

11-212 

11-219 

12-273 

13-302 

U-386 

14-390 

14-398 

14-403 

15-427 

15-A42 

CEACCS 

#5-62 

14-390 

15-431 

15-436 

DBGTPt 

#10-154 

#10-173 

#10-177 

#10-181 

#10-185 

EMSGSR 

#5-61 
13-365 

9-148 

11-262 

11-263 

11-264 

GETAD 

#5-62 

GETRV 

#5-61 

15-439 

ISTATS 

#5-62 

10-154 

MTRANl 

#10-154 

NTLERS 

#5-61 

8-105 

8-106 

8-107 

8-108 

PHBDFS 

#5-61 

5-68 

PUTAD 

#5-62 

14-398 

15-432 

15-437 

PUTRC 

#5-61 

13-343 

14-403 

15-442 

RAND 

#15-343 

13-343 

#14-398 

14-398 

#14-403 

#15-439 

15-439 

#15-442 

15-442 

RESMAP 

#5-77 

14-399 

15-438 

RESRG 

#5-61 

13-342 

RETURN 

9-143 

11-223 

11-235 

11-258 

12-278 

SAVMAP 

#5-73 

14-389 

15-430 

SAVRG 

#5-61 

13-322 

STATES 

#5-62 

10-159 

#10-162 

#10-165 

#10-16'^ 

#10-191 

#10-194 

#10-198 

TRANS 

#5-62 

#10-160 

#10-163 

#10-166 

#10-169 

#10-181 

#10-184 

#10-185 

#10-188 

#10-189 

VNPDBG 

#5-63 

11-206 

13-311  13-320  13-343  13-348  13-355 

15-431  15-432  15-436  15-437  15-439 


#10-189        #10-196  ,  ,  , 

11-265  12-282  13-362  13-363  13-364 


8-109  8-110            8-111  8-112             8-113 

14-403  #15-432           15-432  #15-437           15-437 

12-296  13-358           14-405  15-444 

#10-171  #10-175  #10-179  #10-183  #10-187 

#10-172  #10-173  #10-176  #10-177  #10-180 

#10-192  #10-195  #10-196 


E  1 

VFGSVC  -  CONfIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  02:30 
STRNXT  -  STORE  NEXT  DIGIT 


Page  17 


633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 


.S8TTL  STRNXT  -  STORE  NEXT  DIGIT 


STRNXT  -  STORE  NEXT  DIGIT 

INPUTS: 

.PCHAR  -  MATCHED  CHARACTER  FROM  TPARS  TRANSITION 
NEXT  -  ADDRESS  OF  NEXT  BYTE  AVAILABLE  FOR  STORAGE 

OUTPUTS: 

NEXT  -  ADDRESS  OF  NEXT  AVAILABLE  BYTE 
COUNT  -  UPDATED 
RO.RI  DESTROYED 


001646  116767  OOOOOOG  000054'  STRNXT: 

001654  012700  000054' 

001660 

001664  110177  000000' 

001670  005267  000000' 

001674  105267  000024' 

001700 

000001 


MOVB 

. PCHAR, CVTBUF 

MOV 

#CVT8UF,R0 

CALL 

SCDTB 

MOVB 

Rl,aNEXT 

INC 

NEXT 

INCB 

COUNT 

RETURN 

MOVE  DIGIT  TO  CONVERTSION  BUFFER 

POINT  TO  CONVERSION  BUFFER 

CONVERT  TO  BINARY 

STORE  BINARY  DIGIT 

POINT  TO  NEXT  AVAILABLE  BYTE 

INCREMENT  DIGIT  COUNT 


.END 


rnMFir,  fiif   <;rAN  actio  MACRn  V05.03b  Saturday  29-Jun-85  02:j0     Paae  17-1 


VFGX2P  -  CONFIG  ULE   SCAN  ACTIO  MACRO  V05.03b 
COfJSTANT   DEFINITIONS 


"aturday  ?9-Jun-85 


U^ 


Page  6 


72 

73 

71, 

75 

76 

77 

000007 

78 

000001 

79 

001130 

80 

001130 

.SBTTL   CONSTANT  DEFINITIONS 
CONSTANT  DEFINITIONS 


X2WNMX  =  7 

X2WNMN  =   1 

X2RTMX  =  600. 

X2HLMX  =  600. 


MAXIMUM  WINDOW  SIZE  FOR  X2P$DF 
MINIMUM  WINDOW  SIZE  FOR  X2P$DF 
MAXIMUM  VALUE  FOR  RETRANSMIT  VALUE 
MAXIMUM  VALUE   FOR  HOLDBACK   TIMER 


in  Mftrnn  v;AC  A7k  c-ifi, 


F     2 


VFGX2P     CREATED  BY  lACRO  ON  29-JUN-85  AT  02:32 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE  REFERENCES 

11-220     11-243 


E  3 

PAGE  4 

CREF   04.00 


.PNUMH 

~       ■»♦**** 

GX 

n-210 

.PSTCN 

~       ****** 

GX 

11-201 

.PSTPT 

r  ****** 

GX 

11-203 

.TPARS 

:;  ****** 

GX 

9-122 

11-256 


11-265 


11-275 


11-287 


rDc  ATcn,  DV 


riM  00-  iiiM.a';  iT  n3-^5 


F  3 


E     4 

VFGX3P  -  CONFIG  FILE   SCAN  ACTIO  MACRO  V05.03b   Saturday  29-Jun-85  02:32 
S/mbol   table 


Page  11-2 


A$tCHK,= 
A$$CPS= 
A$tPRI= 
ASSTR'^^ 
BLKSi<lN= 
BLKSMX= 
CERR  = 
CFGBF  - 
CFGSZ  = 
CFLIN  = 
CHKBLK= 
CHKWND= 
C$$CKP= 
C$$ORE= 
C$$RSH= 
D$$BUG= 
D$$ISK= 
DS$L11= 
0$$YNC= 
0$$YNM= 
E$$XPR= 
FMT8  = 
FMT8B  = 
FM.8  = 
FM.8B  = 

.  ABS. 

DATA 
SSTATE 
SKTAB 
SKS'R 


000000 

000000 

000000 

000000 

000040 

002000 

»♦*«♦*  Gx 

*.♦*»«  GX 

•♦•«♦•  GX 

«*♦**«  GX 

»«««**  GX 

«*♦♦♦♦  GX 

000000 

000400 

177564 

177514 

000000 

000001 

000000 

000000 

000000 

***»♦»  GX 

*t****  GX 

000000 

000000 

000000 
000330 
000256 
000060 
000002 
000007 


F$$LVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

WRDN= 

K$$CNT= 

K$$CSR= 

K$$lDC= 

K$$TPS= 

LDSLP  = 

L$$ASG= 

L$$DRV= 

L$$P11  = 

L$$nR= 

M$$CRB= 

«$$CRX= 

H$$FCS= 

H$$MGE= 

M$$NET= 

M$$OVR= 

NEXT 

N$$ACC= 

N$$BUF= 


000001 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

OOOOOOR 

000001 

000001 


N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 
P$$P45= 
P$$URD= 
Q$$OPT= 
RTSPC  = 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SrNERR= 
S$$WR6= 
S$$VSZ= 
TIMRCT 
T$$KMG= 
T$$MIN--= 
V$$CTR= 
WNDSMX= 
002  X$$DBT= 
X3CTL 


000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

******  GX 

000000 

000001 

000000 

000000 

******  GX 

000000 

007600 

00001  OR 

000000 

000000 

001000 

000177 

000000 

000004R 


X3DEV 

X3NXT 

X3PDF 

X3PKW 

X3PST 

X3TMCT= 

X3UNT 

X3.BEG 

X3.D8S 

X3.DWS 

X3.END 

X3.MBS 

X3.MWS 

X3.NXT 

$ALPHA= 

$ANY  = 

$BLANK= 

002  SDIGIT:^ 
$DNUMB= 
$EOS  = 
$ERR1T= 
$ERR2B 
$ERR2C^ 

002  $ERR2D 


000002R 

000042R 

OOOOOOR 

OOOOOORG 

OOOOOORG 

000007 

000006R 

00021 2R 

000052R 

0001 32R 

00031 2R 

000074R 

0001 54R 

000224R 

000022 

000020 

000006 

000024 

000014 

000012 

******  GX 

000012R 

******  GX 

000046R 


002  $ERR2E 

003  $ERR2F= 

003  $ERR2G 

004  $ERR2ii 
003  tEXIT  = 

$FAIL  = 
002  $LAMDA= 
$NUMBR= 
$QX3P 
$RAD50= 
$STRNG= 
$SUBXP= 
$X3CAL= 
$X3DBS= 
$X3DWS^ 
$X3«BS= 
$X3MWS= 
$$$FLG= 
$$$KEY= 
$$$STA= 
$$$TMP= 
.PNUMB= 
.PNUMH= 
.TPARS= 


002 


002 


000122R 
******  GX 
0001 56R 
000232R 
000000 

000000 
000002 
OOOOOORG 
000016 
000004 
000010 
******  GX 
******  GX 
«*«•**  GX 
******  GX 
******  GX 

Mm? 

000000 
000042R 
OOOOOOR 
******  GX 
******  GX 
******  GX 


Errors  detected: 


000 
001 
002 
003 
004 
005 
0 


(RW,I,G8L,ABS,0Vh) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
'RW,D,LCL,REL.CON) 
(RW,D,LCL,REL,CON) 


**»  Assembler   statistics 

Work      file     reads:  0 

U'ork      file  writes:  0 

Size  of   work   file:  12456  Words      (   49  Pages) 

Size  of   core  pool:  14440  Words      (    55  Pages) 

Operating      sys-em:  RSX-11M/PLUS 

SY?VFGX3p!v2;[132l'l34]VfGX3P/C^/-SP=SY:[1  J 3RSXMCM.SML /ML, [130,1 103NETL IB/ML,  [130,1 0]RSXMCM/PA:1, [132,1 0]VFGX3P 


002 

002 
002 


r 


003 
005 


iM-Qt:    AT   n').79 


F     4 


VFIND  -  VNP  FIND  ENTITY  ROUTINE  MACRO  V05.03b  Saturday  29-Jun-85  02; 
Symbol  table 
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A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

A. Arc 

A.LNK 

A.NAM 

A.  PUD 

A. REM 

A.UCB 

CURUNM 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DSAMXC 

DSAMXH 

D$ANN 

DSBRPR 

DSBRTM 

DSDELF 

OSDELW 

DSENO  = 

DSFNB 

DSHIQR 

DSHOST 

DSINAC 

DSINCT 

DSIPL 

DSL  ID 

DSLNAH 

DSLNUM 

OSLST 

DSMAXC 

DSMAXH 

DSMAXV 

DSMLL 

D$MNOD 

D$NA 

DSNBEA 

DSNBRA 

D$NEND= 

OSNLN 

D$NN 

DSOUTT 

DSRETF 

DSRNN 

OSRTMR 

DSSEG 

DSSER 

DSSQRL 

D$$BUG= 

D$$ISK= 

D$$LM  = 

D$$YNC= 

0$$YNM= 

E$$XPR= 

F$$LVL= 


000000 

ocoooo 

000000 

000000 

000020 

OjOOOO 

000002 

000010 

000012 

000010 

OOOOOOR 

000000 

OOOAOO 

17756A 

000072 

00007^ 

000000 

000102 

000100 

000045 

OOC0'!i6 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 

000006 

000014 

000047 

000064 

000066 

000070 

000040 

000041 

000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

000000 

000001 


F.RSIZ= 
F.URBO= 
G$$TPP= 
G$$TSS= 
6$$TTK= 
G$$WRD= 
I$$RAR= 
I$tRDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
LD.ALI= 
LD.CEX= 
LD.CJR= 
LD.LIN= 
LD.LOG= 
LD.MOD= 
LD.N0D= 
LD.OPJ= 

LO.rtjD 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LO.GRO 

LO.HOS 

LO.HTM 

LO.INA 

LO.INC 

LO.LDT 

LO.LID 

LO.LIN 

LO.LTM 

LO.MAC 

LO.MDE 

LO.NAM 

LO.NET=: 

LO.NNM 

LC.OFL 

LO.ONM 

LO.OUT 

LO.OUN 

LO.PAR 

LO.PRI 

LO.RET 

LO.RPA 

LO.SCR 

LO.SEG 


•«*»»•  GX 

LO.SKA 

000014 

»«****  GX 

LO.SKN 

000014 

000000 

LO.SNM 

000035 

000000 

LO.TPA 

000020 

000000 

LO.TRB 

000034 

000000 

LO.TRl 

000030 

000000 

LO.UNT 

00003' 

000000 

LO.VCT 

000014 

177546 

LO.VER 

00004? 

177546 

LR.ACC 

000020 

000000 

LR.ACO 

000052 

000074 

LR.ADD 

000012 

000000 

LR.ALI 

000002 

000030 

LR.BLK 

000010 

000024 

LR.CTL 

000004 

000035 

LR.DES 

000010 

000025 

LR.HLP 

000002 

000031 

LR.LIN 

000002 

000037 

LR.NAM 

000012 

000027 

LR.PAS 

000041 

000032 

LR.PRO 

000002 

000026 

LR.srs 

000000 

000022 

LR.TRI 

000006 

000052 

LR.TYP 

000002 

000002 

LR.UCB 

000016 

000006 

LR.UIC 

000020 

000010 

LR.UNT 

000005 

000020 

LS.AL]= 

000016 

000010 

LS.CEX= 

000001 

000032 

!.S.CIR=- 

000033 

000002 

LS.CXO= 

010000 

000047 

LS.CX5= 

000400 

000004 

LS.ECH= 

001000 

000024 

LS.FtX= 

004000 

000040 

LS.HDX= 

010000 

000032 

LS.HLP= 

000012 

000062 

LS.LLNI= 

000003 

000060 

LS.LMC= 

000007 

000046 

LS.LOG= 

000020 

000030 

LS.MOD= 

000036 

000004 

LS.NOD= 

000014 

000034 

I.S.NTI=: 

000013 

000022 

LS.OBJ= 

000022 

000024 

LS.OPT= 

000400 

000044 

LS.PRO= 

000002 

000002 

LS.TOP= 

002000 

000022 

LS.TST= 

000010 

000012 

LS.UNF= 

020000 

000004 

LS.xir= 

000011 

000056 

LX.ALI= 

000017 

000026 

LX.CEX= 

000004 

000010 

LX.CIR= 

000034 

000012 

LX.LIN= 

000006 

000064 

LX.LOG= 

000021 

000030 

LX.NOD= 

000015 

000016 

LX.OBJ= 

000023 

000054 

LX.PRO= 

000005 

L$$ASG= 
L$$DRV--- 
L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$M6E= 
M$$NET= 
M$$0VR^ 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$H0V= 
N$$NCT= 
N$$PEM= 
0F$JNS= 
0F$L0G= 
0F$0FF= 
OFSON  = 
0F$SHC= 
0F.PR0= 
0F.RLU= 
0F.SMC= 
0P$ADD= 
0P$ALL= 
0P$CCS= 
0P$C1E= 
0P$C0N= 
0P$C0P= 
0P$C0S= 
0P$DST= 
0P$DTE= 
OP$DUP= 
OP$EST= 
OP$£VE= 
OP$FIL= 
OP$GRP= 
0P$H0S= 
0P$HTM= 
OP$INA= 
OP$INC= 
OP$KDS= 
OP$KDT= 
OP$KEV= 
OP$KGR= 
OP$KNT= 
OP$KSK= 
OP$LCT= 
OPSLNE^ 
OPSLOC: 
OP$LST= 
OP$LTM= 
OP$LVL= 
OP$MAC= 


000000 
000000 
000001 
000000 
000124 
000000 
000000 
000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000001 
000100 
000002 
000000 
000200 
C 00040 
000100 
000200 
000200 
000200 
000004 
004000 
000400 
000001 
000100 
000200 
000040 
000002 
000100 
010000 
000200 
000100 
000001 
000002 
004000 
001000 
002000 
000400 
001000 
001000 
010000 
002000 
000200 
000040 
000001 
000002 
000001 
000010 
000010 


OP$MCO= 

OP$MDE= 

OP$MLI= 

OP$MON= 

0P$MST= 

0P$NAH= 

0P$NET= 

OP$NLJ= 

OP$NOD= 

OP$OUT= 

OP$OWN= 

OP$PAR= 

0P$PRI= 

OP$RET= 

OP$RPA= 

0P$SCO= 

OP$SEG= 

OP$SER= 

0P$SIN= 

0P$$TA= 

0P$TPA= 

OP$TRI= 

OP$UCS= 

OP$USE= 

OP$VEC= 

0P$VER= 

OP$XAC= 

0P$XPR= 

0P$X5S= 

0P$X9S= 

O.FLG 

O.LEN 

O.LNK 

O.MXC 

O.NAM 

O.TYP 

P$$P45= 

P$$URD= 

QF$ACT= 

QF$ALL= 

QF$KNO= 

QF$LO0= 

Q$$0PT= 

RF.L00= 

RQB   = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

R.ADD 

R.FLAG 

R.LEN 

R.LNK 

R.NAM 

SYSFDB= 

S$$WRG= 

S$$YSZ= 


000002 

000400 

000004 

000100 

000020 

000004 

004000 

'00002 

I  00020 

002000 

000020 

000010 

000010 

010000 

000010 

000001 

000400 

000400 

000010 

000004 

000020 

000040 

000020 

000002 

000040 

000040 

000001 

000002 

000004 

000010 

000003 

000012 

000000 

000004 

000006 

000002 

000000 

000000 

000001 

000002 

000004 

000010 

000010 

100000 

******  GX 

000000 

000001 

000000 

000000 

000010 

000012 

000014 

000000 

000002 

******  GX 

000000 

007600 


f  I, 


VfPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
LOCAL  DAT^ 
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89 

90 

91 

92 

93 

94  000000 

'i^ 

96 

97  000000 

98  000001 
99 

100  000021 

101  000022 

102  000023 

103  000024 
104 

105  000030 

106  000032 
107 


.SBTTL  LOCAL  DATA 


000004 

ono 

000 
000 

000027' 


;  LOCAL  DATA  FOR  CUGSDF  MACRO 

.PSECT  DATA.D 
.NLIST  BEX 

CUGNML:  .BLKB   1 
CUGNAM:  .BLKB   MAXJD 

CUGNLN  =  4 
NUMPRE:  .BYTE   0 

.BYTE   0 

.BYTE   0 
CUGNUM:  .BLKB   4 

CUGEND=.-1 
CUGPCK:  .BLKB   CUGNLN/2 
CUGFLG:  .BLKB   1 

.EVEN 


Length  of  CUG  name 

Cl""ed  user  group  name  (must  follow  CUGNML) 

MA  1UM  DIGITS  IN  CUG  NUMBER 

CUG  NUMBER  PREFIX  IF  LESS  THAN  4  DIGITS 


CLOSED  USER  GROUP  NUMBER 
END  OF  CUG  NAME 
CUG  NUMBER  IN  BCD  FORMAT 
FLAGS  BYTE 


.-CTDOOI] 
.-CTDOOI] 
;**-1 


F,  6,  _ 


VFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V0S.03b  Saturday  29-Jun-85 
Symbol  table 


h-' 
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ALCUG 

ALCUGO 

ALCUG1 

A$$CHK= 

A$$CPS= 

A$tPRI= 

A$$TRP= 

CERR  = 

CFGBF  = 

CFGSZ  = 

CFLIN  = 

CKCUGO 

CKCUG1 

COUNT  = 

CUEND 

CUFG 

CUGDF 

CUGDIG 

CUGEND= 

CUGFLG 

CUGKW 

CUGNAM 

CUGNLN= 

CUGNML 

CUGNUM 

CUGPCK 

CUGST 

CUNAM 

CUNBEN 

CUNBST 

CUNK,^X= 

CUNXT 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DTEDES= 

D$$BUG= 

.  ABS. 

DATA 
SSTATE 
SKTAB 
$KSTR 


00071 2R 

0006A^R 

000672R 

000000 

000000 

000000 

000000 

***»♦♦  GX 

»»«»«.  GX 

*«♦**«  GX 

*♦***♦  GX 

000336R 

000504R 

*«»«*»  GX 

0OO25OR 

000226R 

OOOOOOR 

0OOU2R 

000027R 

000032R 

OOOOOORG 

000001 R 

OOOOOA 

OOOOOOR 

00002AR 

000030R 

OOOOOORG 

000052R 

0001 66R 

000104R 

000006 

000020R 

OOOCOO 

OOO-iOO 

177564 

«««*n  GX 

1775U 

0001 OA 
001116 
000200 
000060 
000002 
000007 


D$$ISK= 

D$SL11= 

D$$YNC= 

D$$YNH= 

END 

E$$XPR= 

EMTIO  = 

FMT8  = 

FM.10  = 

FM.8  = 

F$$LVL= 

F.RSIZ= 

GF$BUG= 

GSCUG 

G$DTE 

GSFLG 

003  GSGNAM 
GSLEN 

002  GSLNK 
002  6$NAM 

004  G$NML 
002  G$$TPP= 

G$$TSS= 
002  Gt$TTK= 
002  G$$WRD= 

002  HF$DLM= 

003  HF$6UY= 
HF$H0S= 
HF$XDF= 
H$CUG 
H$DST 

003  H$D29 
H$FLG 
HSGLEN 
H$GLT 
HSGNAH 
H$6NML= 


000000 

000001 

000000 

000000 

000050R 

000000 

»*»»*»  GX 

«♦****  GX 

000000 

000000 

000001 

******  GX 

000001 

000010 

000012 

oooou 

000016 
000016 
000000 
000002 
000015 
000000 
000000 
000000 
000000 
000002 
000010 
000004 
000020 
000010 
000012 
000014 
000000 
000104 
000044 
000050 
000020 


HSGPT 
HSHITS 
H$HLEN 
HSLSDA 
003  H$L8DN 
HSLDTE 
H$LEN 
HSLOTS 
H$NETW 
HINML  = 
H$NPT 
HJPTB 
H$PVC 
HSRDTE 
HSRNW 
H$SVC 
H$TRB 
HSXAVL 
HSXBIA 
H$X29C 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K«$CSR= 
K$$LDC= 
K$$TPS^ 
LD$LP  = 
LNKEND= 
L$$ASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
MAXID  = 
MOVE  = 
M$$CRB= 
M$$CRX= 
M$$FCS= 


000046 

000034 

000044 

000070 

000072 

0J0002 

000042 

000032 

000024 

000006 

000022 

000020 

000006 

000004 

000042 

000036 

000016 

000100 

000074 

000040 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

******  GX 

000000 

000000 

000001 

000000 

000020 

******  GX 

000124 

000000 

000000 


Errors  detected: 


000 
001 
002 
003 
004 
005 
0 


(RW,I,GBL,ABS,OVR) 
CRW,I,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
'RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 


M$$MGE= 

M$$NET= 

H$$0VR= 

NEXT  = 

NUMPRE 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$HLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PCKBCD= 

PF.XDF= 

P$$P45= 

P$$URD= 

Q$$OPT= 

RTSPC  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SPACE  = 

STORID= 

STRNXT= 

SVNERR= 

SYSFDB= 

S$$WRG= 

S$$YSZ= 

T$$KMG= 

T$$MIN= 

V$$CTR= 

X$$DBT= 

$ALPHA= 

$ALPOL= 

SANY  = 


000000 

000000 

000000 

******  GX 

000021R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

******  GX 

000000 

000000 

000010 

******  GX 

000000 

000001 

000000 

000000 

000040 

******  GX 

******  GX 

******  GX 

******  GX 

000000 

007600 

000000 

000000 

001000 

000000 

000022 

*«♦***  GX 

000020 


$BFR  = 
$BLANIC= 
$CEACC= 
$DIGIT= 
002  $DNUHB= 
$E0S  = 
SERRHI 
$ERRN2 
$ERRN3 
$ERRP4 
$ERR1T= 
$EXIT  = 
SFAIL  = 
$GETAD= 
$GETRV= 
$LAHDA= 
$NUMBR= 
$PFLA6= 
$PSIPT= 
$PUTAD= 
$QCUG 
$RADDR= 
$RAD50= 
$RBLCK= 
$SAVAL= 
$SAVRG= 
$STRNG= 
$SUBXP= 
$$$FLG= 
'$$KEY= 
5$R  = 
i.$$STA= 
$$$TMP= 
.PNUHB= 
.PNUMH= 
.TPARS= 


GX 


****** 

000006 

****** 

000024 

000014 

000012 

000126R 

000034R 

000056R 

000102R 

****** 

000000 

177777 

******  GX 

******  GX 

000000 

000002 

******  GX 

******  GX 

******  GX 

OOOOOORG 

******  GX 

000016 

****** 

****** 

****** 

000004 

000010 

177777 

000000 

000010 

000000 

OOOOOOR 

******  GX 

>*****  GX 

******  GX 


GX 
GX 
GX 


*»»  Assembler  statistics 

Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  13706  Words   (  54  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Ocerating  system:  RSX-11M/PLU5 

SYf?FPCUG!v2;[132,134JVFPCUG/CR/-SP=SY:[l,1]RSXMCM.SML/ML,[l30,110]NETLIB/ML,t130,10]RSXMCM/PA:1,[132,10]VFPCUG 


002 
002 
002 
002 


005 


F  7 


E     8 

VFPDSA  -   INITIAL   CONFIG  FILE   SC   MACRO  V05.03b   Saturday  29-Jun-85  02:34     Page   11 
DSCSDf    STATE    TABLES 


190 
191 
192 
193 
19'^ 
195 

196  000060 

197  00006A 

198  000070 

199  000072 

200  000074 

201  000076 

202  000102 

203  000110 

204  000114 
205 

206 
207 
208 

209  000116 

210  000124 

211  000126 

212  000132 
213 

214 

215 

216  000134 

217 

218 

219 

220 

221  000142 

222  000146 

223  000152 

224  000156 

225  000162 

226  000166 

227  000174 


012700 
012701 
105021 
005300 
003375 
105067 
012767 


026727 
101003 


OOOOOOG 
OOOOOOG 


.SBTTL  DSASDF  ACTION  ROUTINES 


START  OF  REMOTE  DTE  ADDRFSS 
DARDST: 


10$: 


OOOOOOG 
OOOOOOG  OOOOOOG 


f'iOV 

#DAfiMLN 

RO 

MOV 

*DSARDT 

Rl 

CLRS 

(Rl)  + 

DEC 

RO 

BGT 

10$ 

CLR8 

COUNT 

MOV 

*DSARDT 

NhXl 

CALL 

STRNXT 

RETURN 


PROCESS  REMOTE  DTE  DIGIT 


000000'^  OOOOOOG  DARDNO:  CMP 
BHI 
CALL 
RETURN 


ERRORS 
101$:   EMSG$R 


NEXT,#DARDEN 

101$ 

STRNXT 


N8 


004567 
012700 
012704 
012705 


OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 


END  Of  REMOTE  DTE  ADDRESS 


DARDND: 


116767  OOOOOOG  OOOOOOG 


JSR 

MOV 

MOV 

MOV 

CALL 

MOVB 

RETURN 


R5,$SAVRG 

#<DARMLN/2>+l,R0 

#DSARDT,R4 

*DSARDP,R5 

PCKBCD 

COUNT, DSARCT 


GET  LENGTH  OF  REMOTE  DTE  ADDRESS 

GET  ADDRESS  OF  START  OF  BUFFER 

INITIALIZE  BUFFER 

MORE  TO  INITIALIZE? 

BR  IF  YES 

INITIALIZE   DIGIT   COU^'T 

START  AT   BEGINNING  OF   BUFFER 

STORE   CHARACTER 


IS  ADDRESS    TOO  LONG? 
BR   IF    YES 
STORE   CHARACTER 


ILLEGAL   REMOTE   DTE   ADDRESS 


SAVE  R3-R5 

GET  LENGTH  OF  PACKED  ADDRESS 

POINT  TO  NUMBER  TO  CONVERT 

POINT  TO  STORAGE  FOR  PACKED  NUMBER 

PACK  REMOTE  DTE  ADDRESS  IN  BCD 

STORE  NUMBER  OF  DIGITS  IN  DTE  ADDRESS 


f  8 


E  9 

VFPD.N  -  INITIAL  CONFIG  FILE  SC  MACRO  '/05.03b  Saturday  29-jjn-85  02:31  Page  6 
Macro  definitions 


65 

66 

67 

68 

69 

70 

71 

72 

73  000000 

71, 

75 

76  000000 

77 

78 

79 


.S8TTL  Macro  definitions 

LIBRARY  MACROS 

.MCALL  EMSG$R,NTLER$, STATES, TRANS, I  STATS 

.HCALL  VNPD8G 

.PSECT  DATA,D 

.NLIST  BEX 

NTLERS  ,MC,10,CERR,RTSPC,CFLIN,<destination  access  data> 

.LIST  BEX 
.EVEN 


F  9 


n 


VFPDSN  CREATFD  BY     MACRO     ON  29-JUN-85   AT   0?:35 

SYMBOL    CROSS   REFERENCE 


E  10 

PAGE  ? 

CREF   OA.OO 


SYMBOL 

VALUE 

REFERENCES 

tNUMBR 

=  000002 

#9-122 

SQDSN 

000000 

RG 

#8-103 

$RAD50 

=  000016 

''9-122 

tRONLY 

-  ****^* 

9-122 

SSTRNG 

=  OOOOOA 

#9-122 

SSUBXP 

=  000010 

#9-122 

$$$FLG 

=  177777 

#9-122 

$$$<EY 

=  177777 

#9-122 

.PCHAR 

=  ****** 

GX 

16-336 

.PSTCN 

=  ****** 

GX 

11-227 

.PSTPT 

r  ****** 

GX 

11-231 

.TPARS 

r  ****** 

GX 

8-110 

9-122 


9-122 


n 


f  10 


VFPDST  - 
DSTEND  - 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

265 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 


INITIAL  CONFIG  FILE  SC  MACRO  v05.03b  Saturday  29-Jun-85 
END  OF  DESTINATION  DESCRIPTOR  BLOCK  MACROS 


yi 


35  Page  13 


000266 
000266 
000274 
000276 
000302 
000310 
000312 
000316 
000320 
000324 
000332 


126767 
001043 
016700 
132767 
001003 
06270D 
000402 
062700 
032767 
001407 


000334 

000340     103413 

000342 

000346     103413 

000350     000406 


000352 

000356     103404 

000360 

000364     103404 


000366 


000370 
000376 
000404 


.S8TTL  DSTEND  -  END  OF  DESTINATION'  DESCRIPTOR  BLOCK  MACROS 


DSTEND  -  END  OF  DESTINATION  DESCRIPTOR  BLOCK  MACROS 


OOOOOOG  OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


D00012 

000014 
OOOOOOG 


10$: 
OOOOOOG  20$: 


DSTEND: :VNPDBC 
CMP8 
BNE 
MOV 
BITB 
BNE 
ADD 
BR 
ADD 
BIT 
BEQ 


DSTEND 

DSCMCT,DSCVCT 

104$ 

$PSIPT,RO 

#DS.X29,DSFLG 

10$ 

#H$DST,RO 

20$ 

*H$D29,R0 

#PF.XDF,$PFLAG 

30$ 


Check  and  allocate  destination  blocks 


CALL 

BCS 

CALL 

BCS 

BR 


CKDSNO 

101$ 

ALDSTO 

103$ 

50$ 


Check  and  allocate  destination  blocks 


!0$: 


CALL 
BCS 
CALL 
BCS 


50$:    RETURN 
ERRORS 


1oi$ 

103$ 
104$ 


EMSG$R 
EMSG$R 
EMSG$R 


CKDSNl 
101$ 
ALDST1 
103$ 


M7 
M9 
6M 


VNP  debugging  break  point 

ARE  CALL  DATA  MASK/VALUE  SAME  LENGTH? 

BR  IF  NO  -  ERROR 

POINT  TO  PSI  HOME  BLOCK 

IS  THIS  AN  X29  DESCRIPTOR  BLOCK? 

BR  IF  YES 

ELSE  POINT  TO  X25  LISTHEAD 

CONTINUE  IN  COMMON  CODE 

POINT  TO  X29  LISTHEAD 

Check  type  of  system 


for  extended-data-fortnat  system 

;  Check  for  unique  destination  name 

;  Allocate  and  fill  destination  block 

for  old-format  systems 

;  Check  for  unique  destination  name 

;  Allocate  and  fill  destination  block 


DESTINATION  NAME  NOT  UNIQUE 
DESTINATION  BLOCK  ALLOCATION  FAILURE 
ILLEGAL  CALL  DATA  MASK/VALUE 


;CTD0013 
;[TD001] 
;**-1 


;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
.-CTDOOn 
;CTD00n 
;[TD001] 
;CTD00n 
;CTD00n 
;CTD001] 
;[T0001] 
;[TD001] 
.-CTDOOI] 
.-CTDOOI] 
;**-15 


F  11 


VFPDST   -   INITIAL   CONFIG  FILE   SC  MACRO  V05.03b   Saturday  29-Jun-85 
Symbol    table 


S^l^ 


5  Page  23-1 


ALi)STO 

000654R 

DSTVR1= 

«*♦«»«  GX 

HFSH0S= 

000004 

MOVBCD 

001704R 

SALPHA= 

000022 

ALDST1 

OOn52R 

0S.X25= 

»•*»*♦  GX 

HFSXDF= 

000020 

MOVE  = 

«»**•* 

GX 

$ALP0L= 

******  GX 

A$$CHK= 

000000 

[)S.X29= 

>»»>»*  GX 

HSCUG 

000010 

MOVLEN 

001732R 

$ANY  = 

000020 

At$CPS= 

000000 

D$ACL 

000027 

HSDST 

000012 

MXNOID= 

000006 

$BFR  = 

******  GX 

A$$PR1= 

000000 

DSCUGL 

000023 

HSD29 

000014 

MSSCRB= 

000124 

t8LANK= 

000006 

At$TRP= 

000000 

DtCUGN 

000022 

HSFLG 

000000 

MSSCRX= 

000000 

$CAT5B= 

******  GX 

BCD'  EN 

0016A2R 

DSDATL 

000030 

HSGLEN 

000104 

M$SFCS= 

000000 

$CEACC= 

******  GX 

CERR 

t*****  (^x 

D$3SL 

000022 

HSGLT 

000044 

M$SMGE= 

000000 

$DIGIT= 

000024 

CFGBF  - 

«*«»»*  GX 

D$DST 

000010 

HSGNAM 

000050 

MS$NET= 

000000 

SDNUMB= 

000014 

CFG5Z  = 

»»«*»«  GX 

DSDTEL 

000031 

HSGNML= 

000020 

MSSOVR= 

000000 

SEOS  = 

000012 

CFLIN  = 

••♦»♦*  GX 

DSFLEN 

000032 

HSGPT 

000046 

N$SACC= 

2S292I 

SERRH7 

000204R 

W-, 

CKDSNO 

00041 2R 

DSGLEN 

000032 

HSHITS 

000034 

NS$BUF= 

000001 

$ERRM9 

000236R 

002 

CKDSM 

000534R 

DtGVBL 

000032 

HSHLEN 

000044 

NSSLDV= 

000001 

SERRN4 

OOOOOOR 

002 

CUNMMX= 

000006 

OSLNK 

000000 

HSLBDA 

000070 

N$SMCP= 

000001 

SERRN5 

000032R 

002 

Ci$CKP= 

000000 

DSNAM 

000004 

HSLBDN 

000072 

N$$MLL= 

000001 

SERRN6 

000062R 

002 

C$iORE= 

000400 

DSNOD 

000010 

HSLDTE 

000002 

NS$MOV= 

000010 

$ERRN7 

00011  OR 

002 

C$$RSH= 

177564 

DSOBJ 

000003 

HSLEN 

000042 

NS$NCT= 

000001 

SERR1T= 

******  GX 

DSACGL= 

♦«*«««  GX 

DSPAL 

000026 

HSLOTS 

000032 

NS$PEM= 

000001 

SERR6M 

0001 32R 

002 

OSACLIG= 

**«**♦  GX 

DSPRI 

000002 

HSNET'J 

000024 

PF.XDF= 

****** 

GX 

SEXIT  = 

000000 

DSARCT= 

»♦»«»♦  GX 

DSPRL 

000024 

HSNML  = 

000006 

PSSP45= 

000000 

SFAIL  = 

177777 

DSA5HI  = 

**♦♦♦♦  GX 

DSSHI 

000020 

HSNPT 

000022 

PS$WRD= 

000000 

SGETAD= 

******  GX 

DSASLO= 

n»«**  GX 

DSSLO 

000016 

HSPTB 

000020 

Q$$OPT= 

000010 

$GETRV= 

******  GX 

DSCMCT= 

«»*♦**  GX 

DSUSL 

000025 

HSPVC 

000006 

RNAL  = 

****** 

GX 

$LAMDA= 

000000 

OSCVCT= 

***♦•«  GX 

OSVBL 

000032 

HSRDTE 

000004 

RNNL  = 

****** 

GX 

$NUMBR= 

000002 

DSFLG  = 

»»•*«*  GX 

D$SBUG= 

177514 

HSRNW 

000042 

RNNODE= 

****** 

GX 

SPFLAG= 

******  GX 

DSNAM 

000056R 

DSSISK= 

000000 

HSSVC 

000056 

RNPL  = 

****** 

GX 

SPSIPT=: 

******  GX 

DSNAMX= 

000006 

DSSL11= 

000001 

HSTRB 

000016 

RNUL  = 

****** 

GX 

SPUTAD= 

******  GX 

DSNM 

000024R 

003 

OS$YNC= 

000000 

HSXAVL 

000100 

RTSPC  = 

****** 

GX 

SQDST 

OOOOOORG 

DSOBJ 

0001 70R 

DSSYNM= 

000000 

HSXBJA 

000074 

RS$DER= 

000000 

SRADDR= 

******  GX 

DSPRI 

000162R 

END 

000062R 

003  H$X29C 

000040 

RSSK11= 

000001 

SRAD50= 

000016 

DSTDF 

OOOOOOR 

003 

ESSXPR= 

000000 

1$$RAR= 

000000 

RSSSND= 

522922 

SRBLCK= 

******  GX 

DSTEND 

000266RG 

FMT10  = 

«*»«»«  GX 

I$SRDN= 

000000 

RSS11M= 

000000 

SSAVAL= 

******  GX 

DSTINS 

001504R 

FMT8  = 

.♦.»»»  GX 

KSSCNT= 

177546 

SPACE  = 

000040 

SSTRNG= 

000004 

DSTKMX= 

000006 

FM.10  = 

000000 

KSSCSR= 

177546 

SPFILL= 

****** 

GX 

SSUBXP= 

000010 

DSTtrW 

OOOOOORG 

004 

FM.8  = 

000000 

KSSLDC- 

000000 

STORID= 

****** 

GX 

SXLINK= 

******  GX 

OSTNAM= 

«»»*»»  GX 

FNDLEN 

001626R 

KSSTPS= 

000074 

SYNERR= 

****** 

GX 

$$$FL6= 

\imi 

DSTNML= 

»»**»♦  GX 

FSSLVL= 

000001 

LDSLP  = 

000000 

SYSFDB= 

****** 

GX 

$SSKEY= 

000002 

DSTOBJ= 

»•»««*  GX 

F.RSIZ= 

***»*♦  GX 

LSSASG= 

000000 

SSSWR6= 

000000 

SSSR  = 

000010 

DSTPR1= 

♦♦*♦*•  GX 

G$$TPP= 

000000 

LSSDRV= 

000000 

SS$YSZ= 

007600 

SSSSTA= 

000000 

OSTSK 

0002A0R 

GSSTSS= 

000000 

LSSP11= 

000001 

TS$KMG= 

000000 

SSSTMP= 

00001 3R 

005 

DSTST 

OOOOOORG 

003 

GS$TrK= 

000000 

LSS11R= 

000000 

-i$MiN= 

000000 

.PNUMB= 

******  GX 

t)STT<L  = 

»««*.*  GX 

GS$WRD= 

000000 

MAXID  = 

000020 

VS$CTR= 

001000 

.PNUMH= 

******   GX 

DSTTSK= 

»»»♦»*  GX 

HFSDLM-- 

000002 

MOVAR 

001662R 

X$$:i8T  = 

000000 

.TPARS^ 

******   GX 

DSTVRO= 

**♦•♦•  GX 

HFSGWY= 

000010 

.  ABS. 

000104 
001744 

000 
001 

(RW,I,G8L,ABS,0VR) 
(RW,I,LCL,REL,C0N) 

DATA 

000314 

002 

(RW,D,LCL,REL,C0N) 

SSTATE 

000072 

003 

(RW,D,LCL,REL,C0N) 

SKTAB 

000006 

004 

(RW,D,LCL,REL,C0N) 

Sl^STR 

000017 

005 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

»♦•  Assembler  statistics 


Wo'-k  file  reads:  0 


F  1? 


VFPDTE   -   INITIAL   CONfIG  FILE   SC   MACRO  V05.03b  Saturday  29-Jun-85 
LOOif,   FOR   DTESDF    MA^RO 


12^. 
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135 
136 
137 
138 
139 
HO 
141 
U2 
U3 
HA 
H5 
U6 

K8  000000 
1A9  000000 

150  000004 

151  000006 

152  000012 

153  000016 

154  000022 

155  000026 

156  000032 

157  000034 

158  000040 

159  000042 
160 

161 
162 
163 
lb4  000044 


.SBTTL  LOOK  FOR  DTESDF  MACRO 

y 
$QDTE  -  LOOK  FOR  DTESDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-SIT=SUCCESS/FA1LURE 
R3,R4,R5=DESTROYED 


012705  000000' 
005001 

012702  000000' 

016703  OOOOOOG 

012704  OOOOOOG 

005067  0000006 

103003 

005367  OOOOOOG 

001401 


SQDTE: 


VNPD86 

VFPDTE 

MOV 

#DTEDF,R5 

CLR 

Rl 

MOV 

#DTEKU,R2 

MOV 

CFGSZ,R3 

MOV 

*CFG8F,R4 

CLR 

SYNERR 

CALL 

.TPAfiS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

RETURN 

20$: 

ERROR  CONDITION 
01$:   EMSGSR  17 


VNP  debugging  break  point 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 


;[TD001] 
;[TD001] 
;CTD001] 
;**-l 


F  13 


VFPDTE  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:37 

SYMBOL    CROSS  FcFEREMCE 


SYMBOL  VALUE 


BIASX 

CERR 

CFGBF 

CFG5Z 

CFLIN 

CHKDEV 

CHKDTE 

CNTTIM 

COUNT 

CTIM 

DE.ON 

OTEADD 

DTEAEN 

DTEALN 

DTEAST 

DTECE5 

DTEDf 

DTEDIG 

OTEEND 

DTEFLG 

DTEKW 

DTEND 

DTENET 

DTEPCK 

DTEST 

DTNMMX 

DTNTNM 

FMTTO 

FMT8 

FM.10 

FM.8 

FNDPDV 

F.RSIZ 

HSHADD 

HSHMN 

HSHMX 

HSHSZ 

HSHTBL 

HSLDTE 

HSLEN 

HSNETW 

LF.ACT 

LF.8R0 

LF.BUT 

LF.ENA 

LF.LPB 

LF.MDC 

LF.MFL 

I  F.MTP 

LF.PAC 

LF.RDY 

LF.REA 


0013^2  R 


=  ******* 
=  ****** 
=   ****** 

001206 
001 0A2 
000326 

=   ****** 

r  ****** 
=  ****** 

000000 

0001 AO 

=  000017 

000052 

r  ****** 


GX 
GX 
GX 
GX 

R 

R 

R 
GX 
GX 
GX 

R 

R 


GX 


000000 
000114  R 
000412  R 
******  GX 
000000  RG 

000016  R 
000352  R 

000017  R 
000000  RG 
000006 
000027 

:   ****** 


-   ****** 

=  000000 
=  000000 


000040 
001000 

****** 

00C256 
000002 
000042 
000024 
100000 
000400 
000007 
002000 
001000 
000100 
004000 
000020 
000200 
040000 
010000 


GX 
GX 

GX 
GX 
GX 


GX 


REFERENCES 

15-413 

8-125 

9-153 

9-152 

8-125 

15-355 

15-350 
#13-317 
»12-251 
•13-319 

15-403 
#7-115 
#12-271 
#7-114 
#12-245 
♦15-371 

9-149 
#12-259 

14-339 
*12-245 

9-151 
#7-116 
#14-331 
#7-117 
#10-170 
#7-118 
#7-119 

8-125 

8-127 
#8-125 
#8-127 

17-497 
*12-284 
•  15-412 
#6-87 
#6-88 
•13-307 
#13-297 

15-418 

12-284 

12-285 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 


#18-537 
8-126 


8-126 
#17-491 
#16-446 

15-385 
15-400 

12-247 

7-115 

15-419 


#15-350 
15-403 

#10-170 
12-259 

12-274 

7-119 

8-126 

8-129 

#8-126 

#8-129 

•15-416 

13-300 
13-304 
15-358 

16-448 


17-516 


E  U 
PAGE   1 

CREf       04.00 


8-127 
8-127 


12-252 
12-246 


8-128 
8-128 


12-273 
12-272 


8-129 
8-129 


8-130 
8-130 


15-380 


16-458 


15-381 

12-278 
12-286 
8-128 
8-130 
#8-128 
#8-130 

•16-449 


15-415 


16-461 

12-287 
14-335 


•16-457 


14-332 
15-390 


15-389 


F    U 


VFPPSN  -  INITIAL  CONFIG  TILE 
TPARS  STATE  TABLES 

150 

151 

152 

153 

15^  000052 

155 

156 

157 

158 

159  000052 

160  000052 
161 

162  000052 

163  000052 
164 

165  000052 

166  000052 
167 

168  000052 

169  000052 
170 

171  000052 

172  000052 

173  000052 
174 

175  000052 

176  000052 

177  000052 
178 

179  000052 

180  000052 

181  000052 
182 

183  000052 

184  000052 

185  000052 
186 

187  000052 
1" 


I  15 
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.  000052 
189  000052 
190 

191  000052 

192  000052 
193 

194  000052 

195  000052 

196  000052 
197 

198  000052 


.SBTTL      TPARS   STATE   TABLES 
TPARS    STATE    TABLES 

ISTATS     PSNST.PSNKW 


•  PSNSDF 

STATES 
TRANS 

PSNDF 
![PSNS()FX,,,1,SVNERR 

STATES 
TRANS 

SRAD50,,PSNNM 

;  NETWORK  NAME 

STATES 
TRANS 

<',> 

STATES 
TRANS 

$NUMBR,,PORT 

;  NUMBER  OF  PO 

STATES 
TRANS 
TRANS 

lEND.SEXIT.PSNEND 

STATES 
TRANS 
TRANS 

<',>,PSLO 
SNUMBR,,PSNFG 

;  FLAGS 

STATES 
TRANS 
TRANS 

IEND,SEXIT,PSNEND 

;CTD00n 

;**-1 


STATES  PSLO 
TRANS   <',>,PSHI 
TRANS   SNUMBR,,PSNSL0 


STATES 
TRANS 
TRANS 


IEND,SEX1T,PSNEND 


STATES  PSHI 
TRANS        SNUMBR,END,PSNSHI 

STATES  END 
TRANS        SEOS.SEXIT 
TRANS        <';>,SEX1T 

STATES 


LOW  END  OF  SUBADDRESS  RANGE 


HIGH  END  OF  SUBADDRESS  RANGE 
END  OF  STRING  SUB-EXPRESSION 


•FlLF*«IO*»VfPPVC 


E  16 


vv      vv    F 

FFFFFFFFF 

PPPPPPPP 

PPPPPPPP 

VV 

vv 

cccccccc 

VV      VV   F 

FFFFFFFFF 

PPPPPPPP 

PPPPPPPP 

VV 

vv 

cccccccc 

vv      VV   F 

PP      PP 

PP      PP 

vv 

vv  c 

VV      VV   F 

>P      PP 

PP      PP 

VV 

vv  c 

VV      VV   F 

>P      PP 

PP      PP 

vv 

vv  c 

VV      VV   F 

PP      PP 

PP      PP 

VV 

vv  c 

VV      VV   F 

FFFFfFF 

PPPPPPPP 

PPPPPPPP 

vv 

vv  c 

VV      VV   F 

FFFFFFF 

PPPPPPPP 

PPPPPPPP 

vv 

vv  c 

VV      VV   F 

PP 

PP 

vv 

vv  c 

VV      VV   F 

PP 

PP 

vv 

vv  c 

VV  VV     F 

PP 

PP 

vv 

vv    c 

VV  VV     F 

PP 

PP 

vv 

vv    c 

VV       F 

PP 

PP 

vv 

cccccccc 

VV       F 

PP 

PP 

vv 

cccccccc 

LL 

SSSSSSSS 

TTTTT 

TTTTT 

LL 

SSSSSSSS 

TTTTT 

1  N  1  1 

-L 

SS 

LL 

SS 

LL 

SS 

.L 

SS 

LL 

SSSSSS 

LL 

S5SSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

~1 


VFGSVC  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  02:j0  Page  17-1 
Symbol  table 


A$$CHK= 

000000 

HTIMR 

A$$CPS= 

000000 

H$CUG 

A$$PRI= 

000000 

HSDST 

A$$TRP= 

000000 

H$D29 

CFERR  = 

••♦♦*♦  GX 

HSFLG 

CFGBF  = 

»♦*♦*♦  GX 

HSGLEN 

CFGSZ  = 

♦»♦♦♦*  GX 

H$GLT 

COUNT 

000024R 

002  HSGNAM 

CTLSVC 

000021 R 

002  H$GNML= 

CVTBUF 

00005AR 

002  H$GPT 

C$$CKP= 

000000 

HSHITS 

C$$ORE= 

OOOAOO 

HSHLEN 

C$$RSH= 

177564 

HSLBDA 

DTEEND= 

000044R 

002  HSLBDN 

OTELEN= 

000017 

HSLDTE 

DTEPCK 

000044R 

002  HJLEN 

DTESVC 

000025R 

002  HSLOTS 

D$$8UG= 

1775U 

HSNETW 

D$$ISK= 

000000 

H$NML  = 

D$$L11= 

000001 

H$NPT 

D$SYNC= 

000000 

H$PTB 

D$$YNM= 

000000 

HSPVC 

ESNBR 

oooou 

HSRDTE 

E$N6S 

000020 

HSRNW 

ESNCR 

000034 

HSSVC 

ESNCS 

000036 

H$TRS 

E$NIC 

000044 

HSXAVL 

ESNLEN 

000050 

HSXBIA 

ESNLLA 

000012 

H$X29C 

ESNLNK 

000000 

I$$RAR= 

ESNML 

000040 

I$$RDN= 

ESNHR 

000024 

K$$CNT^ 

ESNMS 

000030 

K$$CSR= 

ESNNOD 

000002 

K$$LDC= 

ESNRT 

000042 

K$$TPS= 

ESNRTP 

000005 

LDSLP  = 

ESNSEG 

000010 

LF.ACT= 

ESNTIM 

000046 

LF.8R0= 

ESNUSE 

000004 

LF.BUT= 

ESSTRT 

000006 

LF.ENA= 

E$$XPR= 

000000 

LF.LPB^ 

FLGSVC 

000010R 

002  LF.MDC= 

FMT8  = 

*♦»♦♦»  GX 

LF.MFL= 

FHT8B  = 

»*««*«  GX 

LF.NTP= 

FM.8  = 

000000 

LF.PAC= 

FM.8B  = 

000000 

LF.RDY= 

FNDOWN 

001214R 

LF.REA= 

F$$LVL= 

000001 

LF.SER= 

F.RSIZ= 

**♦♦♦♦  GX 

LF.TIM= 

G$$TP°= 

000000 

LF.UNL= 

G$$TSS= 

000000 

LF.X2P= 

G$$TTK= 

000000 

LN.CLO= 

G$$WRD= 

000000 

LN.DUM= 

HF$DLM= 

000002 

LN.LOA= 

HF$GWy= 

000010 

LN.LOO= 

HF$HOS= 

000004 

LN.OAU= 

HF$XDF- 

000020 

LN.OFF= 

000002R 

000010 

000012 

000014 

000000 

000104 

000044 

000050 

000020 

000046 

000034 

000044 

000070 

000072 

000002 

000042 

000032 

000024 

000006 

000022 

000020 

000006 

000004 

000042 

000036 

000016 

000100 

000074 

000040 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

000100 

004000 

000020 

000200 

040000 

010000 

000040 

000010 

020000 

000000 

000000 

000005 

000004 

000003 

000003 

000001 


002  LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF= 
LN.SER= 
LN.STA= 
LN.SUB= 
LN.TRI= 
LTIMR 
L$$ASG= 
L$$DRV= 

L$$pn  = 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 


DLM 
DLS 
FLG 
KRBA 
LEN  = 
HPF 
NHSr 
_.NSTA 
L.OWNR 
L.UNT 
MAXUND= 
M$$CRB= 
l"l$$CRX= 
H$IFCS= 
M$$HGE= 
M$$NET= 
N$$OVR= 
NEXT 
NODTE 
NSADJI 
N$ADJ2 
NSCACH 
N$CRC 
N$HC1 
N$HC2 
N$LV1 
N$LV2 
N$MHC1 
N$MHC2 
NSPLD 
NSPRI 
NSROAI 
N$R0A2 
NSRTMX 
NSRTMI 
N$RTM2 
NSRTI 
N$RT2 


000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

000004R 

000000 

000000 

000001 

000000 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

000000 

000016 

00OC22 

000022 

000020 

000014 

000021 

000013 

000007 

000124 

000000 

000000 

000000 

000000 

000000 

OOOOOOR 

000420R 

000072 

000074 

000062 

000120 

000052 

000056 

000002 

000010 

000036 

000044 

000016 

000076 

000022 

000030 

000014 

000014 

000015 

000000 

000006 


NSTCTL 

N$TLC 

NSTNC 

NSTRC 

NSTTCB 

N$VER 

N$XLEN 

N$$ACC= 

002  N$$BUF= 
N$$LDV= 
N$$HCP= 
N$$HLL= 
N$$M0V= 
N$$NCT= 
N$$PEM= 
OWNSVC 
PCKBCD 
PF$8LK= 
PF$CLC= 
PF$DLM= 
PF$E]P= 
PF$ENB= 
PF$FAI= 
PF$FM1  = 
PF$FM2= 
PFSOFF^ 
PF$RM1= 
PF$RH2= 
PF$RVR= 
PF$STA= 
PF$SVC= 
PF$UP  = 
PKTSVC 
PR$BED= 
PR$BEU= 
PR$BRD= 

002  PR$BRU= 
PR$DWN= 
PR$LCC= 
PR$H0P= 
PR$UP  = 
PS$CHR= 
PS$FAI= 
PS$NTI= 
PS$0FF= 
PS$STR= 
PS$UP  = 
PS$VER= 
PS$UT  = 
PT$BRO= 
PT$DRT= 
PT$END= 
PT$LV1= 
PT$LV2= 
PT$PHi= 
PT$XAR= 
PX$BLK= 


000112 

0O0100 

000114 

000106 

000110 

000066 

000124 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000020R 

001566R 

020000 

010000 

100000 

000002 

000001 

004000 

000100 

000200 

000000 

000020 

000040 

000010 

000004 

040000 

000004 

000006R 

000200 

000100 

000040 

000020 

000002 

000010 

000004 

000001 

000016 

000014 

000006 

000000 

000002 

000012 

000010 

000004 

000200 

000100 

000004 

000002 

000001 

000010 

000020 

000040 


PX$DLM= 

PX$SVC= 

P$CHN 

P$CNT 

PSCTR 

P$DRCT 

PSDRTR 

P$FLG 

P$FUD 

PSICCB 

P$IPL 

PSLCD 

P$LEN 

P$LST 

PSNRNI 

002  PSOCCB 
P$PFQ 
PtPKSZ 
PSRMXl 
P$RHX2 
PSRPRI 
PSRTIM 
PSSTAI 
P$STA2 
P$TIM 
PSTSCT 
PSTSIZ 
P$TYP 
P$$P45= 
P$$URD= 
Q$$0PT=: 
RCLSVC 

002  RF.CTL= 
RF.LD1= 
RF.LD2= 
RF.T]M= 
RF.TriO= 
RF.WFC= 
RF.UTD= 
RF.WTM= 
RF.WTS= 
RTMSVC 
RTSPC  = 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SETTLC 
SF$BLK= 
SF$INC= 
SF.ACT= 
SF.ENA= 
SF.LPB= 
SF.MFL= 
SF.PAC= 
SF.REA= 
SF.SER= 


000200 

000100 

000004 

000005 

000034 

000015 

000036 

000012 

000030 

000046 

000014 

000002 

000052 

000000 

000040 

000050 

000006 

000044 

000016 

000020 

000042 

000003 

000022 

000023 

000010 

000026 

000024 

000001 

000000 

000000 

000010 

000023R 

000003 

000040 

000100 

177400 

000400 

00:200 

000020 

000030 

000010 

00001 2R 

******  GX 

000000 

000001 

000000 

000000 

001272R 

000001 

000002 

000200 

000100 

000004 

000040 

000020 

000010 

000001 


002 


002 


G  1 

rriNFlG  FliF  SfAH  ACTIO  MACRO  i/05.03b  Saturday  29-Jjn-85  02:30  Paqe  17-2 
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local  data 


82 
83 
84 
85 
86 

87  000000 

88  000002 

89  000003 
90 


.SBTTL  LOCAL  DATA 
LOCAL  DATA 


X2DEV: 
X2CTL: 
X2UNT: 


.BLKW 
.BLKB 
.BLKB 


DEVICE  NAME 
CONTROLLER  NUMBER 
UNIT  NUMBER 


\)[:r:v-3D    _    rnMCtr.    cue    qtam    Arnn    MflrDil    \t(\R    fl^h    ^AtiirHav    ?Q-liin-flS 


n?:31       Psnp    8 


F     3 

VFGX2P 

CREATED  BY     MACRO     ON  29- 

-JUN-85  AT  02 

:32           PAGE 

5 

MACRO   CROSS 

REFERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

CALL 

9-122 

11-20A 

DBGTP$ 

#10-136 

#•0-154 

#10-191 

EM<:G$R 

#5-60 

9-130 

11-238 

11-252 

11-261 

11-271 

11-283 

11-295 

ISiATS 

#5-60 

10-136 

MTRANS 

#10-136 

NTLERt 

#5-60 

8-98 

8-99 

8-100 

PDVDFS 

#5-60 

5-62 

REJS 

#5-67 

1-235 

RETURN 

9-126 

V-206 

11-216 

11-236 

11-251 

11-260 

11-270 

11-282 

1 1 -294 

SLTDFS 
STATES 

#5-60 
#5-60 

5-63 
10-UO 

#10-143 

#10-146 

#10-149 

#10-152 

#10-156 

#10-159 

#10-162 

#10-165 

#10-16? 

#10-171 

#10-174 

#10-177 

#10-180 

#10-183 

#10-186 

#10-189 

#10-193 

TRAMS 

#5-60 

#10-U1 

#10-144 

#10-147 

#10-150 

#10-153 

#10-154 

#10-157 

#10-160 

#10-163 

#10-166 

#10-169 

#10-172 

#10-175 

#10-178 

#10-181 

#10-184 

#10-187 

#10-190 

#10-191 

6    3 


VFGX3P  CREATED  BY     MACRO     ON  29-JUN-85  AT   02:32 

SYMBOL  CROSS  REFERENCE 


F     4 

PAGE   1 

CREF       OA.OO 


SYMBOL  VALUE 


BLKSMN 

BLK3MX 

CERR 

CFGBF 

CFGSZ 

CFLIN 

CHKBLK 

CHKWND 

FHT8 

FMT8B 

FM.8 

FM.8B 

NEXT 

RTSPC 

SYNERR 

S$$BAS 

TIMRCT 

WNDSMX 

X3CTL 

X3DEV 

X3PDF 

X3PKU 

X3PST 

X3TMCT 

X3UNT 

X3.BEG 

X3.DBS 

X3.DUS 

X3.END 

X3.MBS 

X3.MUS 

X3.NXT 

SALPHA 

$ANY 

SBLAfJIC 

SDIGIT 

SDNUMB 

$EOS 

SERRU 

$ERR2B 

$ERR2C 

$ERR2D 

$ERR2E 

$ERR2F 

$ERR2G 

$ERR2h 

$EX[T 

$FAIL 

SGPRM 

SLAMDA 

$NUMBR 


000040 
002000 

♦  it**** 
****** 
****** 
****** 
****** 
****** 
****** 
****** 

000000 
000000 
000000  R 
«♦»*»*     Gx 
******     GX 
****** 

000010  R 
000177 
000004  R 
000002  R 
000000  R 
000000  RG 
000000  RG 
000007 
000006  R 
000212  R 
000052  R 
000132  R 
000312  R 
00007A  R 
000154  R 
000224   R 
000022 
000020 
000006 
000024 
000014 
000012 

:  ******    GX 

000012  R 

:  ♦***»*    GX 

000046  R 
0C0122  R 

:  ******    GX 

000156  R 
000232  R 

:  000000 

:   177777 

■■  000000 
:  000002 


REFERENCES 

#6-67 
#6-68 

8-91 

9-117 

9-116 

8-91 

11-181 

11-200 

8-92 

8-91 
#8-92 
#8-91 
#7-78 

8-91 
«9-118 

8-91 

8-95 
#7-82 
#6-69 
#7-80 
#7-79 

9-113 

9-115 
#10-133 
#6-70 
#7-81 
#11-219 
#11-181 
#11-200 
#11-241 
#11-189 
#11-208 
#11-224 
#10-133 
#10-133 
#10-133 
#10-133 
#10-133 
#10-133 

9-127 
#8-91 

11-195 
#8-92 
#8-93 

11-214 
#8-94 
#8-95 
#10-133 
#10-133 

10-133 
#10-133 
#10-133 


8-92 


8-92 

11-189 

11-208 

8-94 

8-93 
#8-94 
#8-93 
*11-219 

8-92 
♦9-121 

8-91 

*11-220 


#10-133 
11-225 


11-185 

11-196 
11   204 

11-215 
11-237 


8-93 


8-93 


8-95 

#8-95 

11-231 

8-93 
*11-234 

8-92 

*1 1-224 


11-241 


8-94 
8-94 


*11-232 
8-94 

8-92 

11-225 


8-95 
8-95 


8-95 
8-93 
11-241 


8-93 


8-94 


8-94 


8-95 


MA  rnn 


IM_QC;   AT  CiO'T.') 


G    A 


F  5 

VFIND  -  VNP  FIND  ENriTY  ROUTINE  MACRO  V05.03b  Saturday  29-Jun-85  02:33  Page  10-2 
Symbol  table 


TY$CHA=  OOOAOO 
TY$EVE=  001000 
TY$STA=  002000 
TYtSUM=  000000 
T$SKMG=  000000 


TI$MIN=  000000 
V$$CTR=  001000 
WC.CNT=  000400 
WC.EVE^  OO^iOOO 
WC.TRI=  OO'^OOO 


UC.UNT=  001000 
X$$DBT=  000000 
$BFR  =  »*♦***  GX 
$CEACC=  »*»»♦♦  GX 
$DECPT=  ***»»♦  GX 


SFNADD  000330RG 

SFNALI  000116RG 

SFNNAM  000470RG 

SFNOBJ  000002RG 

$GETAD=  ******  GX 


$GETRV=  ******  GX 
$HMBUF=  ******  GX 
$OBJHD=  ******  GX 
$OUAL  =  ******  GX 
$RADDR=  ******  GX 


.  ABS. 

000106 

000 

(RW, 

,GBL,ABS,OVR) 

000652 

001 

(RW, 

,LCL,REL,CON) 

Errors 

detected: 

0 

»*•  Assembler  statiatics 


Work   file  reads:  0 

ijork   file  writes  :  0 

Sizp  of  work  file:  15585  Words  (  61  Pages) 

Size  of  core  pool:  16552  Words  (  03  Pages) 

Operating  system:  RSX-IIM/PLUS 


SY:VF!ND!v2!n32!?34]vnND/CR/-SP=SY:[l  J:RSXMCM.SI»IL/ML,[130J10]NETL16/ML,[130J0JRSXMCM/PA:1,[132J0]V^ 


_QC   AT  m . 77 


G  5 


VFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
ERROR  MESSAGES 


[2-i 


i     Page  8 


109 

no 
ni 

112 
113 
11A 
115 
116 
117 
118 


.SBTTL  ERROR  MESSAGES 


00003A 
000056 
000102 
000126 


000000 


NTLERS 
NTLERS 
NTLERS 
NTLERS 

.LIST 
.EVEN 
.PSECT 


,N2,10,CERR,RTSPC,CFLIN,<CUG  name> 
,N3,10,CERR,RTSPC,CFLIN,<CUG  number> 
,PA,10,CERR,RTSPC,CFLIN,<flags  word> 
,M1,8,CERR,RTSPC,CFLIN,<CIJG  name  block  allocation  faiLure> 

BEX 


:**-2 


;*»-1 


u  A  r  nn 


unc    n7K 


r.^^.,   0Q_  I, 


G  6 


F     7 


VFPCUG 

CREATED  BY 

MACRO  ON 

?9-JUN-85  AT 

02:33 

PAGE  1 

SYMBOL 

:R0SS  REFERENCE 

CREF   04 

00 

SYMBOL 

VALUE 

REFERENCES 

ALCUG 

000712  R 

16-377 

17-395 

#18-413 

ALCUGO 

00064A  R 

13-259 

#16-372 

ALCUG1 

000672  R 

13-267 

#17-391 

CERR 

=  ♦*.♦**  Gx 

8-111 

8-112 

8-113 

8-114 

CFGBF 

=  »*♦»»*  Gx 

9-138 

CFGSZ 

=  **»««»  GX 

9-137 

CFLIN 

=  **«»**  GX 

8-111 

8-112 

8-113 

8-114 

CKCUGO 

000336  R 

13-257 

#14-294 

CKCUG1 

000504  R 

13-265 

#15-334 

COUNT 

=  **»»**  GX 

•11-213 

12-235 

♦12-238 

CUEND 

000250  R 

#13-251 

CUFG 

000226  R 

#13-246 

CUGDF 

000000  R 

9-134 

CUGDIG 

000K2  R 

#11-221 

CUGEND 

=  000027  R 

#7-104 

11-221 

CU6FLG 

000032  R 

#7-106 

♦11-198 

♦13-250 

iS-435 

CUG<U 

000000  RG 

9-136 

#10-153 

CUGNAM 

000001  R 

#7-98 

14-309 

15-347 

18-437 

CUGNLN 

=  000004 

#7-99 

7-105 

11-208 

12-234 

18-429 

CUGNML 

000000  R 

#7-97 

11-194 

14-306 

16-375 

18-438 

CUGNUM 

000024  R 

#7-103 

•1-209 

11-214 

12-236 

CUGPCK 

000030  R 

#7-105 

12-237 

18-431 

CUGST 

000000  RG 

#10-153 

CUNAM 

000052  R 

#11-193 

CUNBEN 

000166  R 

#12-233 

CUNBST 

000104  R 

#11-208 

CUNMMX 

=  000006 

#6-86 

11-195 

15-346 

DTEDES 

=  **»**»  GX 

14-304 

15-344 

18-434 

FMT10 

r  »*»♦*♦  GX 

8-111 

8-112 

8-113 

FMT8 

=  ***«♦»  GX 

8-114 

FM.10 

=  000000 

#8-111 

#8-112 

#8-113 

FM.8 

=  000000 

#8-114 

F.RSIZ 

=  «♦»«**  GX 

*14-297 

♦14-303 

♦15-337 

♦15-343 

♦18-423 

G$CUG 

000010 

18-430 

GSDTE 

0C0012 

14-304 

15-344 

♦18-434 

GSFLG 

000014 

»18-435 

GSGNAM 

000016 

14-310 

16-374 

G$LEN 

000016 

14-303 

15-343 

16-376 

17-394 

G$NAM 

000002 

15-348 

17-393 

GSNML 

000015 

14-307 

16-357 

16-373 

HSCUG 

000010 

14-296 

15-336 

18-449 

LNKEND 

=  ..«♦*»  GX 

18-450 

MAXID 

=  000020 

#6-37 

7-98 

14-303 

MOVE 

=  **♦»«*  GX 

18-432 

18-441 

NEXT 

=  »»*»♦«   GX 

♦11-214 

1^-221 

NUITPRE 

000021  R 

#7-100 

NSSv'CT 

=   *♦♦♦** 

14-302 

15-342 

18-422 

PCKBCD 

=  ♦»»♦♦♦  GX 

12-239 

PF.;,'DF 

=  ,...♦.  GX 

13-252 

RTSPC 

r  ♦•♦«♦♦   GX 

8-111 

8-112 

8-113 

8-114 

SPACE 

=  000040 

#6-85 

STDRID 

=  *•»♦»•  GX 

11-196 

18-445 


6     7 


F  8 

VFPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:3A 
DSASDF  ACTION  ROUTINES 
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229 
230 
231 

232  000176 

233  000202 
23^  00020A 

235  000210 

236  0002U 
237 

238 

239 

240  000216 

241 

242 

243 

244 

245 

246  000224 

247  000230 

248  000232 

249  000236 

250  000240 

251  000244 
252 

253 

254 

255  000246 

256 

257 

^58 

.59 

260  000254 

261  000260 

262  000262 

263  000266 

264  000270 

265  000274 

266  000276 

267  000300 

268  000302 

269  000304 


103405 

010167  OOOOOOG 

010167  OOOOOOG 


LOU  END  OF  SUBADDRESS  R..NGE 
DASSLO: 


CALL 

BCS 

MOV 

MOV 

RETURN 


ERRORS 
101$:   EMSGSR 


CHKSB 
101$ 
RI.DSASLO 
RI.DSASHI 


N9 


START  OF  HIGH  SU8ADDRESS 


103406 

020167  OOOOOOG 

002403 

010167  OOOOOOG 


DASSHI:  CALL 
BCS 
CMP 
BLT 
MOV 
RETURN 


CHKSB 

101$ 

RI.DSASLO 

101$ 

RI.DSASHI 


ERRORS 
101$:   EMSG$R  MO 

ROUTINE  TO  CHECK  SUBADDRESS 


005767  OOOOOOG 

001010 

016701  OOOOOOG 

002405 

020127  OOOOOOG 

101002 

000241 

000401 

000261 


CHKSB: 


20$: 
30$: 


TST 

BNE 

MOV 

BLT 

CMP 

BHI 

CLC 

BR 

SEC 

RETURN 


.PNUMH 

20$ 

.PNUMB.RI 

20$ 

R1.*SUBAMX 

20§ 

30$ 


CHECK  SUBADDRESS 

BR  IF  ILLEGAL 

STORE  LOW  SUBADDRESS  RANGE 

DEFAULT  HIGH  SUBADDRESS  IF  OMITTED 


ILLEGAL  LOW  SUBADDRESS 


CHECK  SUBADDRESS 

BR  IF  ILLEGAL 

CHECK  RANGE  VALID 

BR  IF  ILLEGAL:  HIGH  LESS  THAN  LOW 

STORE  HIGH  END  OF  SUBADDRESS  RANGE 


ILLEGAL  HIGH  SUBADDRESS 


TOO  BIG? 

BR  IF  YES 

GET  SUBADDRESS 

BR  IF  ILLEGAL 

NUMBER   WITHIN  LEGAL    RANGE? 

BR   IF    ILLEGAL 

ELSE   SHOW  NO  ERROR 

RETURN 

FLAG  ERROR 


6.  8 
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Local  Da  .a 

81  .SBTTL  Local  Data 

8? 

83  OOOOAO  STRLEN:  .8LK8   1  ;  Length  of  parsed  string 

84  000041  STRBUF:  .8LK,8   MAXSTR  ;  Buffer  for  parsed  string 
85 

86  .EVEN 

87 
88  000000  .PSECr 
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VFPDSN  CREATED  BY     MACRO     Uf,  29-JUN-85  AT   02:55  PAGE   3 

MACRO  CROSS  REFERENCE  CREf       04.00 

MACRO  NAME  REFERENCES 

Dr^>P$                    #9-12°  #9-13"  It9-u¥  #9-U8°         #9-168^         *9-172          #10-184         #10-185        #10-189        #10-192 

#10-193  #10-201  #10-204  #10-208         *10-209 

EMSGSR                    #6-70              8-118  11-236           12-260           13-283           14-307 
ISTATS                    #6-70              9-122 
MTRANS                     #9-122 

RETURN                    *8-114             lT-234  12-258           13-281           14-305           15-320          16-338 

STATES                    #6-70              9-124  #9-126  #9-129          #9-131           #9-134           #9-137          #9-140          #9-143          #9-146 

#9-149  #9-152  #9-157  #9-159          #9-161           #9-163          #9-166          #9-170          #10-182         #10-187 

#10-190  #10-194  #10-196  #10-199        #10-202         #10-206        #10-211 

TRANS                       #6-70  #9-125  #9-127  #9-130           #9-132           #9-135           #9-136           #9-138           #9-4             #9-42 

#9-144  #9-147  #9-148  #9-150           #9-153           #9-158           #9-160           #9-162           #9-164           #?-167 

J^.  68  #9-71  #9-172  #10-183         #10-184         #10-185        #10-188         #10-189        #10-191         #0-192 

#10-1§3  #10-195  #10-197  #10-200         #10-201         #10-203        #10-204         #10-207        #10-208        #10-209 

VNPDBG  #6-71  8-103 
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VFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:35  Page  U 
CKDSNO  -  Check  destination  name  is  unique  [new  tormatJ 


292 
295 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
3C6 

307  000412 

308  000412 

309  000416 

310  000434 

311  000440 

312  000442 

313  000444 

314  000454 

315  000472 

316  000476 

317  000502 

318  000504 

319  000510 

320  000514 

321  000516 

322  000520 

323  000522 

324  000524 

325  000526 

326  000532 


.SSTTL  CKDSNO  -  Check  destination  name  is  unique  [new  format] 

h 

»*♦  CKDSNO  -  Check  destination  name  is  unique  [new  format] 

INPUTS: 

RO  -  ADDRESS  OF  DESTINATION  DESCRIPTOR  LISTHEAD 

OUTPUiS: 

CARRY  CLEAR  -  DESTINATION  NAME  IS  UNIOUE 
CARRY  SET   -  DESTINATION  NAME  IS  NOT  UNIQUE 
Registers  R3-R5  preserved 

»♦♦  REQUIRES  DESTINATION  NAME  TO  BE  FIRST  VARIABLE  FIELD  **♦ 


CKDSNO: 


016700 
000241 
001431 


116701 
120167 
001354 
012702 
012700 
122022 
001346 
005301 
003374 
000261 


OOOOOOG 


000022G 
OOOOOOG 

000032G 
OOOOOOG 


10$: 


20$: 


30$: 


SAVMAP 

GETRV 

MOV 

CLC 

BED 

CEACCS 

GETAD 

MOVB 

CMPB 

BNE 

MOV 

MOV 

CMPB 

RNE 

DEC 

8GT 

SEC 

RE SWAP 

RETURN 


R0,#2 
SBFR.RO 

30$ 

RO 

R0,/»D$6VBL+MAXJD 

$BFR+D$DSL,'?1 

RI.DSTNML 

loi 

#$BFR+D$GVBL,R2 

#DSTNAM,RO 

(R0)+,(R2)+ 

10$ 

R1 

20$ 


SAVE  CURRENT  MAPPING 

READ  IN  ADDRESS  LISTHEAD 

GET  ADDRESS  OF  NEXT  BLOCK 

ASSUME  SUCCESS 

BR  IF  END  OF  LIST 

CONVERT  TO  MAPPED  ADDRESS 

Read  fixed  part  and  destination  name 

Get  Length  of  destination  name 

Check  Lengths 

If  not  equaL  then  different  names 

Point  to  destination  name 

Point  to  specified  destination  name 

Is  name  unique? 

BR  IF  YES 

MORE  TO  CHECK? 

BR  IF  YES 

ELSE  SET  C-BIT 

RESTORE  PREVIOUS  MAPPING 


;[TD00i: 
;CTD001] 
;[TD001] 
;[TD001] 
:**-5 


.-CTDOOI] 
.•[TD001] 
;[TD001] 
;[TD001] 
.•CTDOOU 
-3 


;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
; [TD001 1 
.-CTDOOI] 
;[TD001] 
;  CTDOOI] 


.•CTDOOI] 
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VfPDST   -   INITIAL   CONFIG  FILE   SC   MACRO  V05.03b   Saturday   29-Jun-85   02:35     Page  21-2 
Symbol    table 

Work      file  writes;  0 

Size  of   work   file:  1A3^8  Words      (   S?  Pages) 

Size  of   core  pool:  15496  Words      (   59  Pages) 

Operating     system:  RSX-IIM/PLUS 

SY:?tpDsr.V2;c?3^?°^A]VFPDST/CR/-SP=SY:[1  J]RSXMCM.SI*IL/MLJ130J10]NETLI8/MLJ130JO]RSXMCM/PA:1,C1^^ 
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VFPDTE  -  INITIAL  CONP 
TPARS  STATE  TABLES 

166 

167 

168 

169 

170  000052 

171 

172 

173 

17^  000052 

175  000052 

176 

177  000052 

178  000052 
179 

180  000052 

181  000052 

182  000052 
183 

18^  000052 
185  000052 
186 

187  000052 

188  000052 
189 

190  000052 

191  000052 
192 

193  000052 
19^  000052 
195 

196  000052 

197  000052 
198 

199  000052 

200  000052 

201  000052 
202 

203  000052 
20A  000052 
205  000052 
206 

207  000052 

208  000052 

209  000052 
210 

211  000052 

212  000052 
213 
2U  000052 

215  000052 

216  00005. 
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IG  FIIF  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:36  Page  10 

.SBTTL  TPARS  STATE  TABLES 
■  TPARS  STATE  TABLES 

ISTATS  DTEST.DTEKW 

•  DTESDF 

STATES  DTEDF 
TRANS   XDTESDF)!,,,1,SYNERR 


STATES 
TRANS 

$D]GIT,,DTEAST 

STATES 
TRANS 
TRANS 

DTEAD 
SDIGIT.OTEACDTEDIG 
<',^,,DTEAEN 

STATES 
TRANS 

ILJNID 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMBR,,HSHTBL 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMaR,,CNTTIM 

STATES 
TRANS 
TRANS 

:end,sexit,dteend 

start  of  DTE  ADDRESS 


DTE  ADDRESS 

END  OF  DTE  ADDRESS 


LJNE-ID 


HASH  TABLE  SIZE 


COUNTER  TIMER  VALUE 


STATES 

TRANS  "ON",DTENW,,DE.ON,DTEFLG 

TRANS  '■0FF'',DTENW,.DE.0FF,DTEFLG 

STATES  DTENW 

TRANS  IEND,SEXIT,DTEEND 

TRANS  <',> 

STATES 

TRANS  SSTRNCDTENET 

STATES  END 
TRANS   SEOS,SEXIT 
TRANS   <';>,SEX!T 


;  STATE 


NETWORK  NAME  PARAMETER 


G  13 


JFPDTE     CREATED  BY  MACRO  ON  ^9-JUN-85  AT  02:37 
SYMBOL  CROSS  REFERENCE 


f  K 

PAGE  2 

CREf   OA.OO 


SYMBOL  VALUE 


LF.SER 

LF.TIM 

LF.UNL 

LF.X2P 

LINCTL 

LINNAM 

LINUNT 

LNKEND 

LNIOFF 

LN$ON 

LN.CLO 

LN.DUM 

LN.LOA 

LN.LOO 

LN.OAU 

LN.OFF 

LN.ON 

LN.OOP 

LN.OPE 

LN.REF 

LN.SER 

LN.STA 

LN.SUB 

LN.TRI 

LSCHTB 

LSCTEN 

LSCTIM 

L$DTEA 

LSDTEL 

LSGLEN 

LSLEN 

LSLLCH 

LSNETW 

L$NMST 

LSOMST 

L$SLN 

LSTCLZ 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN 

I  .MPF 

L.NMST 

L.NSTA 

L.OWNR 


=^  0000^0 

=  000010 

=  020000 

=  000000 

=  ****** 
=  ****** 
~  ****** 
r  ****** 

=  000001 

=  000000 

=  000000 

=  000005 

=  OOOOOA 

=  000003 

=  000003 

=  000001 

=  000000 

=  000004 

=  000001 

=  000002 

=  000002 

=  000017 

=  000360 

=  000006 

000030 

000032 

000040 

000020 

000017 

000134 

000122 

000016 

000114 

000003 

00000c 

000004 

000044 

000015 

000012 

177776 

000002 

000004 

000003 

000006 

000010 

OCOOOO 

000016 

=  000022 

000022 

000020 

000014 

000021 


GX 
GX 
GX 
GX 


REFERENCES 

#5-69 
#5-69 
#5-69 
#5-69 

17-509 

17-496 

17-511 

15-420 

15-402 

15-405 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
•15-414 
♦15-415 
•15-400 

15-379 
•15-385 

15-364 

15-361 
•15-399 

15-388 
•15-402 
•15-406 
•15-395 
•15-401 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 


16-460 

15-411 
15-364 


•  15-405 


17-509 
17-507 


17-516 


15-408 
15-406 


15-411 


16-457 
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PSNtDF  ACTION  ROUTINES 


Page  11 


200 

.S8TTL 

PSN$DF  ACTION  RQUnNES 

201 

.ENABL 

LS8 

202 
203 
20A 
205 
206  000052 

NETWORK  NAME 

PSNNM: 

VNPDBG 

VFPPSN 

207  000052 

005767 

OOOOOOG 

TST 

SPSIPT 

208  000056 

001121 

BNE 

101$ 

209  000060 

012700 

000006' 

MOV 

#PSNNML,RO 

210  00006^. 

105020 

CLRB 

(RO)t 

211  000066 

012701 

000020 

MOV 

#MAXID,R1 

212  000072 

CALL 

SPFILL 

213  000076 

026727 

OOOOOOG 

000020 

CMP 

.PSTCN,*MAXID 

2K  0001 M 

101111 

BHI 

102$ 

215  000106 

016701 

OOOOOOG 

MOV 

.PSTCN.RI 

216  000112 

012702 

000006" 

MOV 

#PSNNML,R2 

217  000116 

110122 

MOVB 

R1,(R2)+ 

218  000120 

016700 

OOOOOOG 

MOV 

.PSTPT.RO 

219  00012^ 

CALL 

MOVE                ; 

220  000130 

005067 

000000' 

CLR 

PSNFLG 

221  000134 

005067 

000002' 

CLR 

PSNLO 

222  OOOUO 

005067 

000004- 

CLR 

PSNHI 

223  000K4 

RETURN 

224 
225 
226 

NUMBER  OF  PORTS 

227 

228  000U6 

005767 

OOOOOOG 

^ORT: 

TST 

.PNUMH 

229  000152 

001071 

BNE 

103$ 

230  000154 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

231  000160 

003466 

Ikl 

103$ 

232  000162 

020027 

000400 

CMP 

R0,#PORTMX 
10^$ 

233  000166 

101063 

BHI 

234  000170 

010067 

OOOOOOG 

MOV 

RO.PORTNO 

235  000174 

RETURN 

236 

237 
238 
239  000176 

;  FLAGS 

WORD 

005767 

OOOOOOG 

PSNFG: 

TST 

.PNUMH 

240  000202 

001060 

BNE 

104$ 

241  000204 

016767 

OOOOOOG 

000000' 

MOV 

.PNUMB, PSNFLG 

242  000212 

005067 

OOOOOOG 

CLR 

$PFLAG 

243  000216 

032767 

000004 

COOOOO' 

BIT 

#HF$HOS, PSNFLG 

244  000224 

001403 

BEQ 

20$ 

245  000226 

052767 

OOOOOOG 

OOOOOOG 

BIS 

#PF.XGA,$PFLAG 

246  000234 

032767 

000010 

000000' 

20$: 

BIT 

*HF$6WY, PSNFLG 

247  000242 

001407 

BEQ 

30$ 

248  000244 

052767 

OOOOOOG 

OOOOOOG 

BIS 

#PF.PSV,$PFLAG 

249  000252 

032767 

000020 

000000' 

BIT 

#HF$XDF, PSNFLG 

250  000260 

001431 

BEQ 

104$ 

251  000262 

032767 

000020 

000000' 

50$: 

BIT 

*HF$XDF, PSNFLG 

252  000270 

001403 

BEQ 

40$ 

253  000272 

052767 

OOOOOOG 

OOOOOOG 

BIS 

*PF.XDF,$PFLAG 

254  000300 

032767 

OOOOOOG 

OOOOOOG 

40$: 

BIT 

#PF.XDF,$PFLAG 

255  000306 

001004 

BNE 

50$ 

256  000310 

126727 

000006' 

0C0006 

CMPB 

PSNNML,#PNAMMX 

VNP  debugging  break  point 
Have  ne   already  found  a  PSN$DF? 
Branch  if  yes  -  error 
Clear  net.  name  length 

Clear  name  to  spaces 

Check  if  name  too  lonn 

If  not  too  long,  get  actual  length 

Insert  actual  length 
Source  of  network  name 
Move  network  name  to  buffer 
Initialize  flags  word 
Clear  low  subaddress  value 
Clear  high  subaddress  value 


IS  THIS  A  SINGLE  WORD  VALUE? 

BR  IF  NO  -  ERROR 

GET  PORT  NUMBER 

BR  IF  ILLEGAL  PORT  NUMBER 

IS  THIS  A  LEGAL  PORT  NUMBER? 

BR  IF  NO  -  ERROR 

SAVE  PORT  NUMBER 


Is  this  a  double  word  value? 

Branch  if  yes  -  error 

Save  flags  word 

Initialise  PSI  characteristics  word 

Check  for  host  flag 

If  host,  set  XGA-present  flag 
Check  for  gateway  flag 

If  gateway,  set  PSV-present  flag 
If  gateway,  MUST  have  extended  data 

Check  for  extended  data  flag 

If  extended  data,  indicate  in  $PFLAG 
Check  for  extended  data  format 

If  not  extended,  check  network  name 


;[TD001] 


;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
.-CTDOOl] 
;[TD00n 
; CTDOOl] 
;[TD001] 
;  CTDOOl] 
;  CTDOOl] 
;  CTDOOl] 
;  CTDOOl] 
; CTDOOl] 
; CTDOOl] 
;  CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
;**-25 


;  CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
.•CTDOOl] 
■  **-5 


.•CTDOOl] 
;  CTDOOl] 
;  CTDOOl] 
;  CTDOOl] 
;  CTDOOl] 
; CTDOOl] 
; CTDOOl] 
.•CTDOOl] 
; CTDOOl] 
;CTD001] 
; CTDOOl] 
;CTD001] 
;  CTDOOl 3 
; CTDOOl] 
;  CTDOOl] 
;  CTDOOl] 
;  CTDOOl] 
.•CTDOOl] 
.•CTDOOl] 
;CTD001] 
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VfPPVr   -  INITIAL   CONFIG  FILE    SC   MACffO  V05.r?b  Saturday  c^9-Jun-85  02:38 

Table  ot  contents 

5-  56  MACF)0  DEFINITIONS 

6-  9A  LOCAL  SYMBOL  DEFINITIONS 

7-  -03  LOCAL  DATA 

8-  U3  ERROR  MESSAGES 

9-  154  LOOK  FOR  PVCSDF  MACRO 

10-  186  TPARS  STATE  TABLES 

11-  276  PVCSDF  ACTION  ROUTINES 

U-  412  ALLXCB  -  ALLOCATE  X25  CIRCUIT  BLOCK^          ,                rr.^^,  i 

15-  A61  CKPVCO  -  Check  for  unique  PVC  name  [new  format:  .-[TDOOIJ 

16-  499  CKPVCT  -  Check  for  unique  PVC  name  Cold  format]  ;[TDOO  J 

17-  535  ALPVCO  -  Allocate  PVC  name  block  [new  format]  &  circuit  block   ;[TD001J 

18-  587  ALPVC1  -  Allocate  PVC  name  block  [old  format]  &  circuit  block   ;[TD001J 

19-  635  FNDPRT  -  FIND  FREE  PORT  ENTRY  ;[TD001] 

20-  678  INIXCB  -  INITIALIZE  X25  CIRCUIT  BLOCK 

21-  726  FNDHSH  -  FIND  HASH  TABLE  ENTRY 

22-  772  BIASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

23-  792  PVDLM  -  CHECK  FOR  DLM  PVC 
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SF.SVC= 

000002 

SSLFT 

000012 

TSLTCL 

000024 

Z.NAM  = 

«**»*♦  GX 

$NUMBR= 

000002 

SF.UNL= 

0000^0 

SSLNK 

000000 

TSLTIM 

000026 

$ALPHA= 

000022 

$PDVNM= 

******  GX 

SLTA 

000016R 

002 

SSOUNR 

000030 

TSLTPR 

000014 

$ALPOL= 

******  GX 

$PDVTA= 

****»«  GX 

STASVC 

OOOOUR 

002 

3$PKSZ 

000004 

TSLTPS 

000020 

$ANY  = 

000020 

$PSIPT= 

******  GX 

STRNXT 

0016A6R 

SSRCL 

000013 

TSNAPL 

000004 

$BFR  = 

***♦.*  GX 

$PUTAD= 

******  GX 

SVCDF 

OOOOOOR 

003 

SSSTA 

000003 

T$NFE 

000000 

$BLANK= 

000006 

SQSVC 

OOOOOORG 

SVCDTE 

00011  OR 

003 

SSTIM 

000014 

TSNLEN 

000010 

SCATS  = 

******  GX 

$RADDR= 

******  GX 

SVCFLG 

OOOOS^R 

003 

S$TMR 

000016 

TSNNUL 

000002 

SCDTB  = 

******  GX 

$RAD50= 

000016 

SVCKW 

OOOOOORG 

004 

SSWND 

000006 

TSNOF. 

000006 

$CEACC= 

******  GX 

$RBLCK= 

*♦♦♦**  GX 

SVCST 

OOOOOORG 

003 

S$$WRG= 

000000 

TSNRNI 

000042 

$DIG1T= 

C00024 

$SAVAL= 

******  GX 

SVCTL 

0001 1AR 

S$$YSZ= 

007600 

TSNRPL 

000005 

$DNUMB= 

0000' 

$SAVRG= 

******  GX 

SVCUND 

0000'i2R 

003 

S.COST 

000001 

TSNRUL 

000007 

$EOS  = 

000012 

SSLTA  = 

******  GX 

SVDTED 

000A76R 

S.FLG 

000000 

TSNVR 

000001 

$ERR1T= 

******  GX 

$SLTHA= 

******  GX 

SVDTEE 

0OO522R 

S.LEN 

000004 

TSRPRI 

000040 

$ERR2I= 

******  GX 

$STRNG= 

000004 

SVDTES 

0004A0RG 

S.NMST 

000002 

T$SVC 

000034 

$ERR3D 

000056R 

002 

$SUBXP= 

000010 

SVFLAG 

00031 6R 

S.OWNR 

000003 

T$r5 

000030 

$ERR3E 

000102R 

95? 

STRJB  = 

******  GX 

SVNAM 

000052R 

TSFLAG 

000044 

T$T6 

000032 

$ERR3F 

C00126R 

002 

$XLINK= 

******  GX 

SVJWN 

0001 22R 

003 

T$LIF 

000013 

T$$KMG= 

000000 

$ERR3G 

0001 52R 

002 

$$HTIM= 

******  GX 

SVOWNR 

000550R 

TSLIFL 

000013 

T$$M]N= 

000000 

$ERR3H 

000202R 

002 

$$LTIM= 

******  GX 

SVPKT 

00023''R 

TSLIFO 

000013 

VF$RCV= 

100000 

$ERR3I 

000230R 

002 

$$$FLG= 

}77777 

SVRCLL 

0003'  ^R 

TSLIFS 

000013 

VF$XMT= 

040000 

$ERR3J 

000254R 

002 

$$$KEY= 

000000 

SVRRTM 

00037AR 

TSLIN 

000000 

VtFLG 

000000 

$ERR3K 

000272R 

59? 

$$$R  = 

000010 

SVSTA 

00016AR 

ISLIPS 

000006 

V$LEN 

000022 

$ERR3M 

000344R 

002 

$$$STA= 

000000 

SVWND 

000262R 

TiLLD 

000012 

VSRCV 

000002 

$ERR3Z 

000400R 

002 

$$$TMP= 

OOOOOOR 

SYNERR= 

******  Gx 

TILLDC 

000045 

V$XMT 

000012 

SEXIT  = 

000000 

.PCHAR= 

******  GX 

SYSFDB= 

»**♦«*  GX 

TSLLDL 

000012 

V$$CTR= 

001000 

SFAIL  = 

■\77777 

.PNUMB= 

******  GX 

SSADSZ 

000007 

TSLLDO 

000012 

WNDSVC 

000022R 

002  $GETAD= 

******  GX 

.PNUMH= 

******  GX 

S$CTL 

000002 

TSLLDS 

000012 

X$$DBT= 

000000 

$GETRV= 

******  GX 

.PSTCN= 

******  GX 

SSDTE 

000020 

TSLLEN 

000046 

Z.DAT  = 

******  GX 

$LAMDA= 

000000 

.PSTPT= 

******  GX 

SSFLG 

000010 

TSLOPK 

000002 

Z.MAP  = 

******  GX 

$LLCTA= 

******  GX 

.TPARS= 

******  GX 

SSLEN 

000032 

.  ABS. 

177776 
001702 

000 
001 

(RW,I,GBL,ABS,OVR) 
(RW,i,LCL,REL,CON) 

DATA 

000430 

002 

(rw,d,lcl,rel,con; 

• 

SSTATE 

000130 

003 

(RW,D,LCL,REL,C0N) 

SKTAB 

000002 

004 

(RW,D,LCL,REL,C0N) 

$<STR 

000007 

005 

(RW,D,LCL,REL,CON) 

Errors 

detected: 

0 

••*  Assembler  statistics 

Work   f 

lie  reads 

54 

Work   f 

lie  writes 

63 

Size  0 

work  file 

20236  Words 

C  80  Pages) 

Size  of 

core  POOL 

17608  Words 

(  67  Pages) 

Operating  s/stem 

RSX- 

11M/PLUS 

Elapsed  time:  00:00:55.10 

SY: VFGSVC. V2, [132,1  54]\/FGSVC/CR/-SP=SY:[1,l]RSXMCM.SML/Ml,[1 30, 1101NETL IB/ML, n 30, 10]RSXMCM/PA:1,[1 32, lODVFGSVC 


005 


TDCATCri     DV 


MATDn        flM     '50..  IMM-fl^      AT      flP-XI 


H     1 


VfGX2P  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85 
ERROR  MESSAGES 


h^ 


1  Page  8 


92 
93 
94 
95 
96 
97 

98  000004 

99  000046 
100  000106 
101 


.SBTTL  ERROR  MESSAGES 

ERROR  MESSAGES 

.ENABL  LC 

NTLERS  ,2J,8B,CERR,RTSPC,CFL]N,<inaximum  retransmit  count> 

NTLERS  ,2K,8B,CERR,RTSPC,CFLIN,<retransmit  timer  vaLue> 

NTLERS  ,2L,8B,CERR,RTSPC,CFLIN,<holdback  timer  \/alue> 

.DSABL  LC 


J 


r  T  1  r\     MArnn  i/nc  (TZk 


H  2 


♦»F1LE*MD««VFGX3P 


6    3 


vv      vv   F 

FFFFFFFFF 

GGGGGGGG 

XX      XX 

333333 

pppppppp 

VV      vv   F 

FFFFF^FFF 

GGGGGGGG 

XX      XX 

333333 

pppppppp 

vv      VV   F 

GG 

XX      XX 

33     33 

PP     PP 

vv      VV   F 

Gfi 

XX      XX 

33     33 

PP     PP 

VV      VV   F 

GG 

XX  XX 

33 

PP     PP 

VV      VV   F 

GG 

XX  XX 

33 

PP     PP 

VV      VV   F 

FFFFFFF 

GG 

XX 

33 

PPPPPPPP 

VV      VV   F 

FFFFFFF 

GG 

XX 

33  , 

pppppppp 

VV      VV   F 

GG 

GGGGGG 

XX   XX 

33 

PP 

VV      VV   F 

GG 

GGGGGG 

XX  XX 

33 

PP 

VV  VV     F 

GG 

GG 

XX      XX 

33     33 

PP 

VV  VV     F 

GG 

GG 

XX      XX 

33     33 

PP 

VV       F 

GGGGGG 

XX      XX 

333333 

PP 

VV       F 

GGGGGG 

XX      XX 

333333 

PP 

LL 

SSSSSS5S 

TTTTT 

TTTTT 

LL 

ssssssss 

TTTTl 

TTTTT 

_L 

ss 

.L 

ss 

LL 

ss 

.L 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

^ 

H     3 


_l 


$0X5P 


$f<AD50     =  000016 

SRONLY      =  ..*••♦ 

SSTRNG     =  OOOCOA 

=  000010 

r  *♦*♦♦* 

~  *it»*** 

~  »*»**■* 

-  ****** 

-  ****** 

-  177777 
=  M7717 

-  ****** 
=  ****** 

-  ****** 


VFGX5P  CREATED  BY     MACRO     ON  29-Jl)N-85   AT  02:32 

SYMBOL    CROSS  REFERENCE 


G     4 

PAGE   2 

CREF       OA.OO 


SYMBOL   VALUE 


000000  RG 


SSUBXP 
$X5CAL 
$X3DBS 
$X3DWS 
$X3MBS 
$X3MWS 
$$$FLG 
$$$KEY 
.PNUMB 
.PNUMH 
.TPARS 


GX 
GX 
GX 
GX 
GX 


GX 
GX 
GX 


REFERENCES 

#9-113 
#10-133 

10-133 
#10-133 
#10-133 

11-219 
♦11-183 
*11-202 
*11-193 
»11-212 
#10-133 
#10-133 

11-229 

11-227 

9-119 


10-133 


11-191 
11-210 


11-231 


10-133 


1 


H     4 


VFIND 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT 

02:33 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

A.ACC 

000020 

#5-65 

A.LNK 

000000 

#5-65 

A.NAM 

000002 

#5-65 

8-147 

8-149 

A.  PUD 

000010 

#5-65 

A. REM 

000012 

#5-65 

A.UCB 

000010 

#5-65 

8-153 

CURUNM 

000000  R 

#6-74 

•7-93 

7-94 

8-140 

8-155 

•9-183 

•10-223 

10-226 

10-235 

DSANN 

000000 

8-131 

DSEND 

=  0001 OA 

8-128 

9-176 

10-214 

D$RNN 

000002 

9-179 

10-217 

f .PSIZ 

=  »«♦»*«  GX 

♦7-99 

•8-128 

•8-141 

F.URBD 

=  »»*«♦*  GX 

*8-127 

•8-129 

•9-175 

LD.ALI 

=  000030 

#5-66 

LD.CEX 

=  000024 

#5-66 

LD.CIR 

=  000035 

#5-66 

LD.LIN 

=  000025 

#5-66 

LD.LOG 

=  000031 

#5-66 

LD.MOD 

=  000037 

#5-66 

LD.NOO 

=  000027 

#5-66 

LD.OBJ 

=  000032 

#5-66 

LD.PRO 

=  000026 

#5-66 

LO.ADD 

000022 

#5-66 

LO.ADR 

000052 

#5-66 

LO.CLS 

000002 

#5-66 

LO.CON 

000006 

#5-66 

LO.COP 

000010 

#5-66 

LO.COS 

000020 

#5-66 

LO.CSR 

000010 

#5-66 

5-66 

LO.CTL 

000032 

#5-66 

LO.DES 

000002 

#5-66 

5-66 

LO.DTE 

000047 

#5-66 

LO.EVT 

000004 

#5-66 

LO.GRO 

000024 

#5-66 

L0.H05 

000040 

#5-66 

LD.HTM 

000032 

#5-66 

LO.INA 

000062 

#5-66 

LO.INC 

000060 

#5-66 

LO.LDT 

000046 

#5-66 

LO.LID 

000030 

#5-66 

LD.LIN 

000004 

#5-66 

LO.LTM 

000034 

#5-66 

LO.MAC 

000022 

#5-66 

G     5 

PAGE    1 

CREF       04.00 


8-151 


•  7-95 
9-184 


•9-176 
•9-177 


7-98 
•9-185 


•9-189 
•  10-213 


7-104 
9-188 


•10-214 
•10-215 


•8-135 
9-192 


•10-227 


8-136 
•10-221 


•8-137 
10-222 


LO.MDE 
LO.NAM 
LO.NET 
LO.NNM 
LO.OFL 
LO.ONM 
LO.OUT 
LO.OWN 


000024 
000044 
000002 
000022 
000012 
000004 
000056 
000026 


#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 


H     5 


G  6 

VFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:33 
LOOK  FOR  CUGSDF  MACRO 


Page  9 


120 

.S8TTL 

LOOK  FOR  CUGSDF  ^ 

ACRO 

121 

122 

+ 

123 

SQCUG 

-  LOOK 

FOR  CUGSDF  MACRO 

124 

125 

INPUTS: 

126 

NONE 

127 

128 

OUTPUTS: 

129 

C-BJT=SUCCESS/FAILURE 

130 

R3,R4,R5=DESTROYED 

131 
132 

~ 

;CTD001] 

133  000000 

BQCUG:: 

VNPDBG 

VFPCUG 

VNP  debugging  break  point 
STATE  TABLE  ADDRESS 

;[TD001] 

134  000000 

012705 

000000' 

MOV 

#CUGDF,R5 

;CTD001] 

135  000004 

005001 

CLR 

R1 

FULL  KEYUORD  MATCH  LENGTH 

;**-! 

136  000006 

012702 

000000' 

MOV 

#CUGKW,R2 

KEYWORD  TABLE  ADDRESS 

137  000012 

016703 

OOOOOOG 

MOV 

CFGSZ,R3 

RECORD  LENGTH 

138  000016 

012704 

OOOOOOG 

MOV 

#CFGBF,R4 

RECORD  BUFFER  ADDRESS 

139  000022 

005067 

OOOOOOG 

CLR 

SVNERR 

CLEAR  SYNTAX  ERROR  FLAG 

140  000026 

CALL 

.TPARS 

GO  00  THE  PARSE 

141  000032 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

142  000034 

005367 

OOOOOOG 

DEC 

SYNERR 

DID  SYNTAX  ERROR  OCCUR? 

143  000040 

001401 

BEQ 

101$ 

IF  EQ,  YES 

144  000042 
145 

20$: 

RETURN 

146 
147 
148 
149  000044 

;  ERROR 

CONDITION 

iOU: 

EMSGSR 

IT 

SYNTAX  ERROR 

„.  H  6 


VFPCUG  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:33 

SYMBOL  CROSS  REFERENCE 


G     7 

PAGE  2 

CREf       OA.OO 


SYMBOL  VALUE 


STRNXT 

SYNERR 

SYSFDB 

SSIBAS 

SALPHA 

SALPOL 

SANV 

$BFR 

SBLANK 

SCEACC 

$DBG$ 

SDIGIT 

SDNUMB 

$EOS 

SERRMI 

$ERRN2 

$ERRN3 

$ERRP4 

SERRIT 

SEXIT 

SFAIL 

SGETAD 

SGETRV 

SGPRM 

SLAMDA 

SNUMBR 

SPFLAG 

SPSIPT 

SP'JTAD 

$QCUG 

SRADDR 

$RAD50 

SRSLCK 

SRONLY 

SSAVAL 

SSAVRG 

SSTRNG 

SSUBXP 

$$$FLG 

$$$KEY 

.  PNUMB 

. PNUMH 

.TPARS 


=  ****** 

r  ****** 
r  ****** 
=  ****** 

=  0C0022 

~      ****** 

=  000020 
=  ****** 


GX 
GX 
GX 


GX 
GX 


GX 


=  000006 

r  ****** 

=     ****** 

=  000024 

=  OOOOK 

=  000012 
000126  R 
000034  R 
000056  R 
000102  R 

=  ******  GX 

=  000000 

=   ]77777 

r  ****** 
=  ****** 
=  ****** 

=:  000000 
=  000002 

=  ****** 

-  ****** 

-  ****** 

000000  RG 

=  ******  GX 

=  000016 

=  ******  GX 

=  ****** 

=  ******  GX 

=  ******  GX 

=  000004 

=  000010 

=  177777 

=  177777 

=  ******  GX 

=  »»..«.  GX 

=  »*.**.  GX 


GX 
GX 


GX 
GX 
GX 


REFERENCES 

n-215 

♦9-139 
*U-297 

8-111 
#10-153 

18-419 
#10-153 

14-299 
•18-434 
#10-153 

14-302 

9-133 
#10-153 
#10-153 
#10-153 
#8-114 
#8-111 
#8-112 
#8-113 

9-149 
#10-153 
#10-153 

14-303 

14-297 

10-153 
#10-153 
#10-153 

13-252 

14-295 

18-447 
#9-133 
♦14-297 
#10-153 

14-298 

10-153 

14-294 

12-233 
#10-153 
#10-153 
#10-153 
#10-153 

13-248 

13-246 

9-140 


11-223 
♦9-142 
♦14-303 

8-111 


14-304 
♦18-435 

15-342 


13-276 
11-203 
11-228 
13-274 


15-343 
15-337 


15-335 


♦14-303 

♦14-316 
10-153 
15-334 


13-250 


♦15-337 

8-112 


14-307 
18-440 

18-422 


13-275 


18-423 


18-448 


♦15-337 

15-338 
10-153 
18-414 


♦15-343 
8-112 


14-310 
♦18-445 


♦18-423 
8-113 


15-339 


8-113 


15-344 


8-114  8-114 

15-348  18-424  18-430 


♦15-343 
♦15-354 


♦18-423 
18-415 


♦18-452 


H     7 


_J 


0C0306 

000306  012700  OOOOOOG 

000312  012701  000006 

000316 

000322  103401 

000324 


000326 


VFPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:34  Page  13 
DSA$DF  ACTION  ROUTINES 

271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 


;  CLOSED  USER  GROUP  NAME 

DACUNM: 

MOV 

MOV 

CALL 

BCS 

RETURN 

#DSACGL,R0 
#CUNMMX,R1 
STORID 
101$ 

•  ERRORS 

101$:   EMSGSR 

N2 

address  of  buffer  to  contain  name 
max  length  if  old-style  system 
store  name  in  buffer 
carry  set  if  name  too  long 


ILLEGAL  CUG  NAME 


;[TD001] 
;CTD001J 
;[TD0On 
;[TD001] 
.-CTDOOI] 


1 


H  8. 


VFPDSN  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
Look  for  DSNSDF  macro 


LI 


1  Page  8 


90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 
100 
101 
102 

103  000000 

104  000000 

105  OOOOOA 

106  000010 

107  OOOOU 

108  000020 

109  000024 

110  000030 

111  000034 

112  000036 

113  0000A2 

114  000044 
115 

116 
117 
118  000046 


.SBTTL  Look  for  DSNSDF  macro 


*»«  SQDSN  -  Look  for  DSNSDF  macro 

INPUTS: 

None. 

OUTPUTS: 

C-BIT=success/fai Lure 
R3,R4,R5  destroyed 


012705 
012701 
012702 
016703 
012704 
005067 

103003 
005367 

001401 


000000' 

000001 

000000' 

OOOOOOG 

OOOOOOG 

OOOOOOG 


OOOOOOG 


SQDSN: 
10$: 


VNPDBG 

VFPDSN 

MOV 

*DSNDF,R5 

MOV 

#l,ftl 

MOV 

#DSN<W,R2 

MOV 

CF6SZ,R3 

MOV 

#CFGBF,R4 

CLR 

SVNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

RETURN 

20$: 

Error  condition 
101$:   EMSG$R  IT 


VNP  debugging  break  point 

State  table  address 

FuLL  keyword  match  length,  blanks  significant 

Keyword  table  address 

Record  length 

Record  buffer  address 

Clear  syntax  error  flag 

Go  do  the  parse 

If  CC,  found  what  we  were  looking  for 

Did  syntax  error  occur? 

If  EQ,  yes 


SYNTAX  ERROR 


H  9 


••F1LE**!D'«VFPDST 


G  10 


vv 

vv   F 

F  F  f  F  c  F  F  F  F 

PPPPPPPP 

DDDDDDDD 

SSSSSSSS 

TTTTT 

TTTTT 

vv 

vv   F 

FFFFFFFFF 

PPPPPPPP 

DDDDDDDD 

SSSSSSSS 

TTTTT 

TTTTT 

vv 

vv   F 

PP      PP 

DD 

DD 

SS 

vv 

VV   F 

PP      PP 

DO 

DD 

SS 

vv 

VV   F 

PP      PP 

DD 

DD 

SS 

vv 

VV   F 

PP      PP 

DD 

DD 

SS 

vv 

VV   F 

FFFFFFF 

PPPPPPPP 

DD 

DD 

SSSSSS 

vv 

VV   F 

FFFFFFF 

PPPPPPPP 

DD 

DD 

SSSSSS 

vv 

VV   F 

PP 

DD 

DD 

SS 

vv 

VV   F 

PP 

DD 

DD 

SS 

vv 

VV     F 

PP 

DD 

DD 

ss 

vv 

VV     F 

PP 

DD 

DD 

SS 

vv       F 

PP 

DDDDDDDD 

SSSSSSSS 

vv       F 

PP 

DDDDDDDD 

SSSSSSSS 

SSSSSSSS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLlLLLLL 

SSSSSSSS 

U    10 


G  11 

..,_„,   INITIAL  CONFIG  FILE  5C  MACRO  V05.03b  Saturday  29-Jun-85  02:35  Page  15 
CKDSNI  -  Check  destination  name  is  unique  told  formatJ 


VFPDST 


328 
329 
350 
331 
332 
333 
33^ 
335 
336 
337 
338 
339 
3^0 
341 

342  000534 

343  000540 
3A4  000544 

345  000562 

346  000566 

347  000570 

348  000572 

349  000602 

350  000620 

351  000624 

352  000630 

353  000634 

354  000636 

355  000640 

356  000642 

357  000644 

358  000646 

359  000652 


016700  OOOOOOG 

000241 

001426 


012702 
012700 
012701 
122022 
001351 
005301 
003374 
000261 


000004G 
OOOOOOG 
000006 


.S8TTL  CKDSN1  -  Check  destination  name  is  unique  Cold  format] 

*♦•  CKDSN1  -  Check  destination  name  is  unique  Cold  format] 

INPUTS: 

RO  -  ADDRESS  OF  DESTINATION  DESCRIPTOR  LISTHEAD 

OUTPUTS: 

CARRY  CLEAR  -  DESTINATION  NAME  IS  UNIQUE 
CARRY  SET   -  DESTINATION  NAME  !S  NOT  UNIQUE 
Registers  R3-R5  preserved 


SAVE  ALL  REGISTERS 

SAVE  CURRENT  MAPPING 

READ  IN  ADDRESS  LISTHEAD 

GET  ADDRESS  OF  NEXT  BLOCK 

ASSUME  SUCCESS 

BR  IF  END  OF  LIST 

CONVERT  TO  MAPPED  ADDRESS 

Read  in  destination  name  block 

Point  to  destination  name 

Point  to  specified  destination  name 

Length  of  field 

Is  name  unique? 

BR  IF  YES 

MORE  TO  CHECK? 

BR  IF  YES 

ELSE  SET  C-BIT 

RESTORE  PREVIOUS  MAPPING 


CKDSNI 

CALL 
SAVMAP 

$SAVAL 

GETRV 

R0,#2 

10$: 

MOV 
CLC 

SBFR.RO 

BEQ 

30$ 

CEACCS 

RO 

GETAD 

RO,#D$FLEN 

MOV 

#$8FR+D$NAM,R2 

MOV 

#DSTNAM,RO 

MOV 

*DSNAMX,R1 

20$: 

CMPB 

(R0)+,(R2)t 

BNE 

10$ 

DEC 

R1 

BGT 

20$ 

SEC 

30$: 

RESMAP 
RETURN 

;CTD001] 
jCTDOOl] 
;CTD001] 
jCTDOOl] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001] 
iCTDOOl] 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
.-CTDOOI] 
;[TD001] 
; CTDOOI] 
.■CTDOOI] 
;CTD001] 
; CTDOOI] 
; CTDOOI] 
;CTD001] 


H  11 


VFPDST     CREATED  BY  MACRO  ON  29-JUN-85  AT  0?:56 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


ALDSTO 

ALDSTT 

BCDLEN 

CERR 

CFGBF 

CFGSZ 

CFLIN 

CKDSNO 

CKD5N1 

CUNMMX 

DSACGL 

DSACUG 

DSARCT 

DSASHl 

DSASLO 

DSCMCT 

OSCVCT 

DSFLG 

DSNAM 

OSNAMX 

OSOBJ 

DSPRI 

DSTDF 

DSTEND 

DSTINS 

OST<MX 

nSTKW 

DSTNAM 

DSTNML 

DSTOBJ 

DSTPRI 

DSTSK 

DSTST 

DSTTKL 

DSTTSK 

D5TVR0 

DSTVR1 

05.X29 

DSCUGN 

DSDATL 

DIDSL 

DSDST 

DSDTEL 

DSFLEN 

DSGLEN 

DSGVBL 

DSNAM 

DSNOD 

OSOBJ 

DSPRI 

DSSHI 

DSSLO 


000654  R 
001152  R 
001642  R 
****** 
****** 
****** 
****** 
000412  R 
000534  R 
000006 

**♦■**  « 

**♦♦** 
****** 

****** 
****** 

****** 
****** 
****** 

000056  R 
000C06 
0001 '0  R 
000162  R 
000000  R 
000266  RG 
001504  R 
000006 
000000  RG 
******  G 
******  G 
******  G 
******  G 
000240  R 
000000  RG 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 
****** 
****** 
****** 
000022 
000030 
000022 
000010 
000031 
000032 
000032 
000032 
000004 
000010 
000003 
000002 
000020 
000016 


GX 
GX 
GX 
GX 
GX 


REFERENCES 

13-273 

13-281 

16-380 

7-95 

8-126 

8-125 

7-95 

13-271 

13-279 
#6-87 
•  10-195 

17-473 
*10-205 
♦10-202 
»10-201 
•10-203 
♦10-204 
♦8-123 
#10-191 
#6-85 
#11-222 
#11-217 

8-121 
#13-257 

16-417 
#6-86 

8-124 

14-319 

10-191 

11-222 

11-217 
#12-242 
#9-143 
♦10-196 

17-462 

16-377 

16-379 

13-261 

17-468 
♦16-413 

14-315 

17-453 
♦16-409 

15-349 

16-376 

14-314 

15-350 

16-394 
♦16-391 
♦16-390 
•16-393 
•16-392 


#16-374 
#17-435 

17-439 

7-96 


7-96 

#14-307 

#15-342 

17-469 

17-471 

16-409 
16-393 
16-392 
13-258 
13-258 
13-261 

10-192 


17-486 
12-243 
#9-143 
15-351 
14-316 
11-232 
16-390 


12-242 

16-401 
16-404 
18-507 
17-472 

•  17-482 
16-407 
17-457 

•  17-478 
17-437 

14-318 
17-460 
16-398 

•  17-450 

•  17-449 
•17-452 
•17-451 


#20-566 
7-97 


7-97 


17-478 
17-452 
17-/51 
16-410 

18-507 

15-352 


#18-505 


17-458 
17-456 
16-391 
17-449 


17-461 

16-406 
17-438 


16-402 


18-516 


G  12 

PAGE   1 

CREF       04.00 


7-98 
7-98 


7-99 
7-99 


7-100 
7-100 


7-101 
7-101 


17-479 


17-454 


17-450 
18-517 


17-476 


18-517 


u  IP 


VFPDTE  - 

INITW 

LINE-ID 

SUBEXP 

218 

219 

220 

221 

222 

223 

000052 

224 

000052 

225 

226 

000052 

22? 

000052 

228 

229 

000052 

230 

000052 

231 

232 

000052 

233 

000052 

23A 

000052 

235 

236 

000052 

237 

000052 

238 

239 

000052 
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ION 

.SBTTL  LINE-ID  SUBEXPRESSION 


•  LINE-ID  SUBEXPRESSION 

STATES  LlNiD 
TRANS   SRADSCDEVNAM 

;  DEVICE  NAME 

STATES 
TRANS   <'-> 

STATES 
TRANS   SNUMBR,,DEVCTL 

;  CONTROLLER 

STATES 
TRANS   <'->,LINID1 
TRANS   SLAMDA.SEXIT 

STATES  LINID1 
TRANS   SNUMBR,SEXIT,DEVUNT 

STATES 


UNIT  NUMBER 


VfPDTE 

CREATED   BY 

MACRO     ON  29 

-JUN-85  AT 

02:37 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

L.UNT 

000013 

#5-69 

17-511 

NEXT 

- 

*»*<r  ** 

GX 

♦12-252 

12-259 

NUMijTE 

- 

000020 

#6-89 

15-352 

N$$VCT 

- 

****** 

15-372 

16-456 

PCKBCD 

i: 

****** 

GX 

12-275 

PF.PSV 

- 

GX 

15-362 

15-409 

PF.XDF 

- 

****** 

GX 

12-280 

RTSPC 

= 

****** 

GX 

8-125 

8-126 

8-127 

R$RO 

r 

000002 

#6-94 

R$R1 

= 

OOOOOA 

#6-95 

15-416 

R$R2 

= 

000006 

#6-96 

R$R3 

r 

000010 

#6-97 

RtRA 

:: 

000012 

#6-98 

♦16-468 

♦17-520 

R$R5 

= 

oooou 

#6-99 

SF.ACT 

~ 

000200 

#5-69 

SF.ENA 

= 

000100 

#5-69 

SF.LPB 

~ 

00000^ 

#5-69 

SF.MFL 

~ 

0000^0 

#5-69 

SF.PAC 

- 

)00020 

#5-69 

SF.REA 

- 

000010 

#5-69 

SF.SER 

= 

000001 

#5-69 

SF.SVC 

~ 

000002 

#5-69 

SF.UNL 

= 

0000^0 

#5-69 

SPACE 

= 

OOOOAO 

*6r86  „ 

SPFILL 

- 

****** 

GX 

12-279 

STRNXT 

= 

****** 

GX 

12-253 

12-261 

SYNERR 

r 

****** 

GX 

*9-15A 

♦9-157 

SY5FDB 

- 

****** 

GX 

♦12-284 

*15-416 

♦16-449 

SStBAS 

'- 

****** 

8-125 
8-129 

8-125 
8-130 

8-126 
8-130 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S.OWNR 

SALPHA 

SALPOL 

$ANY 

$BFR 

SBLANK 

SCEACC 

$DBG$ 

SDIGIT 

SDNUMB 

$EOS 

SERROO 

SERROP 

tERROO 

IERRD3 

$£RR04 

SERRCS 


000001 
000000 
000004 
000002 
000003 
=  000022 
=  ****** 

=  000020 


=  000006 

=   ****** 
-   ****** 

=  000024 
=  000014 
=  000012 
000154 
000214 
000266 
000056 
000070 


GX 
GX 


GX 


R 
R 
R 
R 
R 
GX 


#5-69 
#5-69 
#5-69 
#5-69 
#10-170 

15-367 
#10-170 

12-285 
♦15-402 
#10-170 

15-372 

9-148 
#10-170 
#10-170 
#10-170 
#8-128 
#8-129 
#8-130 
#8-125 
#8-126 

13-324 


15-373 
♦15-405 

16-456 


14-344 
15-428 
15-429 
12-266 
13-312 


G  U 
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CREF       04.00 


8-128 


8-129 


8-130 


♦16-457 
8-126 


8-127 


8-127 


8-128 


8-128 


8-129 


15-378 
15-406 


♦15-385 
♦15-406 


15-387 

♦15-414 


♦15-395 

♦15-415 


♦15-399 
16-452 


♦15-400 
16-459 


♦15-401 


15-426 


L 


VFPPSN  -  INITIAL  CONFIG  TILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
PSNSDF  ACTION  ROUTINES 

257  000516  10100^ 

?58  000520 

259 

260 

261 

262  000522 

265  000550 

26A  000556 

265  0003A4 

266 

267 


02:37 
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50$: 

BHI 
RETURN 

102$ 

■  ERROR 

MESSAGES 

101$: 
102$: 
105$: 
104$: 

EMSGSR 
EMSG$R 
EMSG$R 
EMSG$R 

PI 
P2 
P5 
PA 

.DSA8L 

LS8 

Error  it  name  too  long 


ERROR  -  ILLEGAL  OCCURENCE  OF  PSNSDf 

ERROR  -  ILLEGAL  NETWORK  NAME 

ERROR  -  ILLEGAL  NUMBER  OF  PORTS 

ERROR  -  ILLEGAL  FLAGS  WORD 


;CTD001] 
;[TD001] 
;[TD00n 
;CTD001] 
;[TD001] 
;[TD00i: 
;[TD001] 
;CTD001] 
.-[TDOOn 
;[TD001] 
;[TD001] 


VFPI'vr  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturda)-  ?9-Jun-85 


V:\ 


8  Page  -1 


1 
2 
3 

i, 

6 

7 
8 
9 

10 
11 
12 
15 

15 

16 

17 

18 

19 

20 

21 

22 

25 

2A 

25 

26 

27 

28 

29 

50 

51 

52 

55 

54 

55 

56 

57 

58 

59 

40 

41 

42 

45 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


.TITLE  VfPPVC  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 
.ENA8L  LC 

OPYRIGHT  (C)  1979,  1980,  1982,  1985,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANCE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


.•fTDOOn 
;**-1 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  02-MAR-82 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

5.00  16-APR-82 

DECNET-11M  V5.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-85 

DECNEI-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V5.0 
DECnet-MTcro/RSX  VI. 0 


ITS 


VFGSVC  CREATED  BY     MACRO     ON  29-JUN-85   AT  02:31 

SYMBOL   CROSS  REFERENCE 


SYMBOL 

VALUE 

REFERENCES 

CFERR 

=  *♦«»«»  GX 

7-140 
7-149 

7-141 

7-142 

CFGBF 

=  »««***  GX 

8-171 

CFGSZ 

=  *«*♦«»  GX 

8-170 

COUNT 

00002^.  R 

#6-129 

•12-389 

13-460 

CTLSVC 

000021  R 

#6-126 

•10-281 

13-452 

CVTBUF 

00005A  R 

#6-134 

♦17-648 

17-649 

DTEEND 

=  OOOOAA  R 

#6-132 

12-397 

DTELEN 

=  000017 

#6-130 

6-131 

6-133 

DTEPCK 

000044  R 

#6-133 

12-412 

13-463 

DTESVC 

000025  R 

#5-i31 

12-385 

12-390 

ESNBR 

OOOOH 

#5-62 

E$NBS 

000020 

#5-62 

ESNCR 

000034 

#5-62 

E$NCS 

000036 

#5-62 

E$NIC 

000044 

#5-62 

ESNLEN 

000050 

#5-62 

ESNLLA 

000012 

#5-62 

ESNLNK 

000000 

#5-62 

ESNML 

000040 

#5-62 

ESNMR 

000024 

#5-62 

E$NMS 

000030 

#5-62 

ESNNOD 

000002 

#5-62 

ESNRT 

000042 

#5-62 

ESNRTP 

000005 

#5-62 

ESNSEG 

000010 

#5-62 

ESNTIM 

000046 

#5-62 

ESNUSE 

000004 

#5-62 

ESSTRT 

000006 

#5-62 

FLGSVC 

000010  R 

#6-121 

*11-338 

12-374 

FMT8 

=  *«**♦»  (.-X 

7-147 

7-148 

7-149 

FMT8B 

=  ******  f,x 

7-140 

7-141 

7-142 

FM.8 

=  000000 

#7-147 

#7-148 

#7-149 

FM.8B 

=  000000 

#7-140 

#7-141 

#7-142 

FNDOWN 

001214  R 

13-427 

#14-509 

F.RSIZ 

=  ******  GX 

*13-468 

♦13-470 

♦13-475 

HTIMR 

000002  R 

#6-118 

♦13-432 

15-590 

H$SVC 

000036 

13-469 

I$$AS 

=  ****** 

16-623 

LF.ACT 

=  100000 

#5-65 

LF.BRO 

=  000400 

#5-65 

LF.BWT 

=  0u0007 

#5-65 

LF.ENA 

=  002000 

#5-65 

LF.LPB 

=  001000 

#5-65 

LF.MDC 

=  000100 

#5-65 

Lf .MFL 

=  004000 

#5-65 

LF.MTP 

=  000020 

#5-65 

LF.PAC 

=  0002lJ 

#5-65 

LF.RDY 

=  040000 

#5-65 

LF.REA 

=  010000 

#5-65 

LF.SER 

=  000040 

#5-65 

LF.TIM 

=  000010 

#5-65 

H  1 
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CREF   04.00 
7-143 


7-144 


16-613 


12-384 
12-411 


♦17-653 


12-410 


7-145 


13-461 


7-146 


7-147 


7-148 


13-455 
7-143 
#7-143 
♦15-568 


7-144 
#7-144 
♦15-573 


7-145 
#7-145 


7-146 
#7-146 


I  1 
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$QX2P   -   LOOK   FOR   X2P$DF   MACRO 
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103 

.SBTTL 

$0X2P  -  LC 

OK  FOR 

X2P$DF  MACRO 

10^ 

105 
106 
107 

+ 

jX2P 

-  LOOK 

FOR  X2P$DF 

MACRO 

108 

109 

INPUTS: 

110 

NONE 

111 

112 

OUTPUTS: 

113 
1H 
115 

ALL  REGISTERS  DESTROYED 

_ 

116 

000144 

012705 

000000' 

.QX2P:: 

MOV 

#X2PDF,R5 

STATE  TABLE  ADDRESS 

117 

000150 

005001 

CLR 

R1 

FULL  KEYWORD  MATCH  LENGTH 

118 

000152 

012702 

000000' 

MOV 

#X2PKW,R2 

KEYWORD  TABLE  ADDRESS 

119 

000156 

016703 

OOOOOOG 

MOV 

CFGSZ,R3 

RECORD  LENGTH 

120 

000162 

012704 

OOOOOOG 

MOV 

#CFG8F,R4 

RECORD  BUFFER  ADDRESS 

121 

000166 

005067 

OOOOOOG 

CLR 

SVNERR 

CLEAR  SYNTAX  ERROR  FLAG 

122 

000172 

CALL 

. TPARS 

GO  DO  THE  PARSE 

123 

000176 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

12A 

000200 

005367 

OOOOOOG 

DEC 

SYNERR 

DID  SYNTAX  ERROR  OCCUR? 

125 

000204 

001401 

BEQ 

101$ 

IF  EQ,  YES 

126 

000206 

?0$: 

RETURN 

127 

128 
129 
130 

■  ERRORS 

000210 

01$: 

EMSGSR 

IT 

SYNTAX  ERROR 

LiAC      mL. 


.1 


H  3 

VFGX3P  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  02:32 
Table  of  contents 


s- 

55 

MACRO  DEFINITIONS 

6- 

62 

CONSTANT   DEFINITIONS 

/- 

U 

LOCAL   DATA 

H- 

HS 

ERROR  MESSAGES 

4- 

100 

$QX3P   -  LOOK    FOR   X3P$DF    MACRO 

n- 

129 

X3P$DF    STATE    TABLE 

1- 

176 

X3P$DF    ACTION   ROUTINES 

I  3 


VFGX3P  CREATED  BY 
MACRO  CROSS  KEfERENCE 
MACRO  MAME 


CALL 

DBGTPt 

EMSGSR 

ISTATS 

MTRANS 

NTLERS 

RETURN 

STATES 

TRAN$ 


MACRO  ON  29-JUN-85  AT  02:32 


REFERENCES 

9-119 
#10-133 
#5-60 
#5-60 
#10-133 
#5-60 

9-125 
#5-60 
#10-16A 
#5-60 
#10-165 


11-181 

#10-169 

9-127 

10-133 

8-91 

11-18^ 

10-137 

#10-167 

#10-138 

#10-168 


-189 
-185 


8-92 

11-19^ 
#10-140 
#10-171 
#10-U1 
#10-169 


11-200 
11-195 


H     4 
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CREF       OA.OO 

11-208 
11-196 


11-204 


11-214 


11-215 


8-93 

11-203 
#10-143 
#10-174 
#10-144 
#10-172 


8-94  8-95 

11-215  11-235  11-256  11-244 

#10-146  #10-149  #10-152  #10-155 

#10-147  #10-150  #10-155  #10-156 


11-237 

#10-158 
#10-159 


#10-161 
#10-162 


CREATED  BY  MACRO  ON  29-JUN-85  AT  02:33 


VFIND 

SYMBOL  CROSS  REFERENCE 

SYMBOL  VALUE 


H  5 

PAGE  2 

CREF   OA.OO 


LO.PAR 

LO.PRl 

LO.RET 

LO.RPA 

LO.SCR 

LO.SEG 

LO.SKA 

LO.SKN 

LO.SNM 

LO.TPA 

LO.TRB 

LO.TRI 

LO.UNT 

LO.VCT 

LO.VER 

LR.ACC 

LR.ACO 

LR.ADD 

LR.ALl 

LR.BLK 

LR.CTL 

LR.DES 

LR.HLP 

LR.LIN 

LR.NAM 

LR.PAS 

LR.PRO 

LR.STS 

LR.TRI 

LR.TYP 

LR.UCB 

LR.UIC 

LR.UNT 

lS.ALI 

LS.CEX 

LS.CIR 

LS.CXO 

LS.CX5 

LS.ECH 

LS.FDX 

LS.HDX 

LS.HLP 

LS.LIN 

LS.LMC 

LS.LOG 

LS.MOD 

LS.NOD 

LS.NTI 

L S.OB J 

LS.OPT 

L5.PR0 

LS.TOP 


000010 

000012 

000064 

000050 

000016 

000054 

000014 

000014 

000035 

000020 

000034 

000030 

000033 

000014 

000042 

000020 

000052 

000012 

000002 

000010 

000004 

000010 

000002 

000002 

000012 

000041 

000002 

000000 

000006 

000002 

000016 

000020 

000005 

=  000016 

=  000001 

=  000033 

=  010000 

=  000400 

=  001000 

=  004000 

=  010000 

=  000012 

=  000003 

=  000007 

=  000020 

=  000036 

=  000014 

=  000013 

=  000022 

=  000400 

=  000002 

=  002000 


REFERENCES 

#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 
#5-66 


5-66 


8-153 


5-66 


5-66 


5-66 


5-66 


5-66 
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VFPCUG  -  INITIAL  CONFIG  FILE 
CUGSDF  STATE  TABLES 

151 

152 

153  000052 

154 

155 

156 

157  000052 

158  000052 
159 

160  000052 

161  000052 
162 

165  000052 
16A  000052 
165 

166  000052 

167  000052 
168 

169  000052 

170  000052 

171  000052 
172 

173  000052 

174  000052 

175  000052 
176 

177  000052 

178  000052 
179 
180 
181 

182  000052 

183  000052 
18A  000052 
185 
186  000052 
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.S8TTL      CUGSDF   STATE   TABLES 
ISTATS      CUGST,CUG<W 


•  CUGSDF  STATE 

TABLES 

STATES 
TRANS 

CUGDF 
5!CUGSDF%,,,1,SYNERR 

STATES 
TRANS 

$RAD50,,CUNAM 

STATlS 
TRANS 

<'  ,> 

STATES 
TRANS 

SD1G1T,,CUNBST 

STATES 
TRANS 
TRANS 

CUNXT 
SDIGIT,CUNXT,CUGDIG 
SLAMDA,,CUNBEN 

STATES 
TRANS 
TRANS 

IEND,$EXIT,CUEND 
<'  .> 

STATES 
TRANS 

SNUMBR,,CUFG 

■  CHECK  FOR  END 

OF  SOURCE  LINE 

STATES 
TRANS 
TRANS 

END 
<';>,SEXIT 
SEOS.SEXIT 

STATES 


CLOSED  USER  GROUP  NAME 


START  OF  CLOSED  USER  GROUP  NUMBER 


ANOTHER  DIGIT 
END  OF  CUG  NUMBER 


CLOSED  USER  GROUP  FLAGS  BYTE 


;[TD001] 
;«*-l 


I.  6- 


n 


33     PAGE 

3 

CREf 

04.00 

11-223 
15-334 
18-432 
18-422 

12-239 
15-337 
18-441 

13-257 
15-342 
18-447 

#10-184 
11-228 
18-423 

13-274 

13-275 

H     7 

VFPCUG  CREATED  BY     MACRO     ON  29-JUN-85   AT  02:33 

MACRO   CROSS   REFERENCE 
MACRO  NAME  REFERENCES 

CALL                          9-140  11-195           11-215           11-223           12-239           13-257           13-259           13-265           13-267           14-294 

^^'-'-                          u-297  4-502           U-303           15-334           15-337           15-342           15-343           16-377           17-395           18-414 

18-419  18-422           18-423           18-432           18-441           18-447           18-450 

CEACCS                     #5-62  14-302           15-342           '"    ■"" 

CUGDFS                     #5-61  5-65 

DBGTP$                     #10-153  #10-171         #10-175         „..    ,>., 

EMSGSR                    #5-61  9-149             11-203           11-228           13-274           13-275           13-276 

GETAD                       #5-62  14-303           15-343           '"   ' 

GETRV                      #5-62  14-297          15-337 

ISTATS                     #5-61  10-153 

MTRANS                    #10-153  ^^             „  ,,,             „  ,,, 

NTLERS                    #5-61  8-111             8-112            8-113            8-114 

PHBDFS                     #5-61  5-66 

PIITAH                           #5-^1  18-447 

RAND                        #14-297  14-297        #14-303           14-303         #15-337           15-337         #15-343           15-343         #18-423           18-423 

#18-447  18-447 

^PJJr^                     "I'Jyli,  iilm           ]V-2U           11-224            12-240           13-270           14-317           15-355           16-378           17-396 
18-453 

STATES                     #5-61  10-157         #10-^60         #10-163         #10-166         #10-169         #10-173         #10-177         #10-182         #10-186 

TRANS                       #5-61  #10-158         #10-161         #10-164         #10-167         #10-170         #10-171          #10-174         #10-175         #10-178 

#10-183  #10-184 

VNPDBG                     #5-63  9-133 
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D5CSDF    ACTION   ROUTINES 


Page  14 


286 

.SBTTL 

DSC$DF  ACT 

287 
288 
289 
290 
291  000334 

;  STORE 

CALL  DATA  MASK 

012700 

OOOOOOG 

DCMSK: 

MOV 

#DSCMSK,RO 

292  000340 

012702 

OOOOOOG 

MOV 

#DSCMCT,R2 

293  000344 

CALL 

STRHEX 

294  000350 

103401 

BCS 

101$ 

295  000352 

RETURN 

296 

■ 

297 
298 
299  000354 

;  ERRORS 

101$: 

EMSG$R 

M3 

300 
301 
302 
303 
304  000362 

;  STORE 

CALL  DATA  VALUE 

012700 

OOOOOOG 

DCVAL: 

MOV 

#DSCVAL,RO 

305  000366 

012702 

OOOOOOG 

MOV 

*DSCVCT,R2 

306  000372 

CALL 

STRHEX 

307  000376 

103401 

BCS 

101$ 

308  000400 

RETURN 

309 

310 
311 
312  000402 

;  ERRORS 

ioi$: 

EMSG$R 

M2 

313 

314  000410 

STRHEX: 

SAVRG 

<R3> 

315  000412 

016701 

OOOOOOG 

MOV 

.PSTCN.RI 

316  000416 

022701 

000040 

CMP 

#DSCMX,R1 

317  000422 

103436 

BLO 

40$ 

318  000424 

110112 

MOVB 

R1,(fi2) 

319  000426 

016702 

OOOOOOG 

MOV 

.PSTPT,R2 

320  000432 

012746 

000001 

MOV 

#1,-(SP) 
(R2)+^R5 

#'f,r! 

321  000436 

112203 

10$: 

MOVB 

322  000440 

122703 

000106 

CMP8 

323  000444 

103425 

BLO 

40$ 

324  000446 

122703 

000101 

CMPB 

#'A,R3 

325  000452 

101003 

BHI 

15$ 

326  000454 

162703 

000067 

SUB 

#67, R3 

327  000460 

000402 

BR 

17$ 

328  000462 

162703 

000060 

15$: 

SUB 

#60, R3 

(sp! 

329  000466 

005716 

17$: 

TST 

330  000470 

001003 

BNE 

20$ 

331  000472 

150320 

BJSS 

R3,(R0)*- 

332  000474 

005216 

INC 

(SP) 

333  000476 

000406 

BR 

50$ 

334  000500 

20$: 

ASL$ 

4,R5 
r5,(R0) 

335  000510 

110310 

MOVB 

336  000512 

005316 

DEC 

(SP) 

337  000514 

005501 

50$: 

DEC 

R1 

338  000516 

005547 

BGT 

10$ 

339  000520 

005226 

40$: 

INC 

(SP)  + 

340  000522 

RESRG 

<R5> 

541  000524 

RETURN 

342 

POINT  TO  CALL  DATA  MASK  STORAGE 

POINT  TO  CALL  DATA  MASK  COUNT 

STORE  THE  HEX  VALUE 

BR  IF  ILLEGAL  VALUE 


ILLEGAL  C  ,lL  DATA  MASK 


POINT  TO  CALL  DATA  VALUE  STORAGE 

POINT  TO  CALL  DATA  VALUE  COUNT 

STORE  THE  HEX  VALUE 

BR  IF  ILLEGAL  VALUE 


ILLEGAL  CALL  DATA  VALUE 

SAVE  R5 

GET  NUMBER  OF  CHARACTERS 

TOO  MANY  CHARACTERS? 

BR  IF  YES 

STORE  HEX  DIGIT  COUNT 

GET  ADDRESS  OF  SPECIFIED  STRING 

INIT  FLAG  (0-LOW  BITS,1-HIGH  BITS) 

GET  CHARACTER 

IS  IT  A  LEGAL  HEX  VALUE? 

BR  IF  NO 

IS  IT  A  NUMBER? 

BR  IF  YES 

CONVERT  ASCII  HEX  ALPHA  TO  BINARY 

CONTINUE 

CONVERT  ASCII  NUMBER  TO  BINARY 

STORE  IN  LOU  BITS? 

BR  IF  NO 

ELSE    STORE    IN  LOW   FOUR  BITS   OF   BYTE 

SET   FLAG   TO  STORE    IN  HIGH  BITS 

CONTINUE 

MOVE  TO  HIGH  FOUR  BITS 

STORE  HEX  VALUE 

SET  FLAG  TO  STORE  IN  LOW  BITS 

MORE  TO  GET? 

BR  IF  YES 

CLEAN  UP  STACK 

RESTORE  R5 
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Parse  table  for  DSNSDF 
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120 

121 

122  000054 

123 

124  000054 

125  000054 

126  000054 

127  000054 
128 

129  000054 

130  000054 

131  000054 

132  000054 
133 

134  000054 

135  000054 

136  000054 

137  000054 

138  000054 
139 

140  000054 

141  000054 

142  000054 

143  000054 

144  000054 
145 

146  000054 

147  000054 

148  000054 

149  000054 

150  000054 
151 

152  000054 

153  00005A 
154 

155 
156 

157  000054 

158  000054 

159  000054 

160  000054 

161  000054 

162  000054 

163  000054 

164  000054 
165 

166  000054 

167  000054 

168  000054 
169 

170  000054 

171  000054 

172  000054 


.SBTTL 
ISTAT$ 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 


Parse  table  for  DSNSDF 

DSNST.DSNKW 

DSNDF 
ISKIPSP 

/(DSNS[)FX,,,1,SYNERR 


ISKIPSP 
$RAD50,,[)SNN0D 


lEND,  SEXIT 
lOPSEP 

ISTRINCDSNUSR 


lEND,  SEXIT 
iOPSEP 

:STRING,,DSNPAS 


lEND,  SEXIT 
lOPSEP 

ISTRINCDSNACT 


!END, SEXIT 

Parser  subexpressions 

STATES  OPSEP 
TRANS   ISKIPSP 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 


COMMA 

!SKIPSP 

SLAMDA, SEXIT 

SKJPSP 

SSLANtC.SKIPSP 
SLAMDA, SEXIT 

END 

SEOS, SEXIT 
COMENT, SEXIT 


Skip  leading  spaces 
Flag  DSNSDF  recognised 

Skip  leading  spaces 
Parse  node  name 


Check  for  end 

Skip  operand  separator 

Parse  user 


Check  for  end 

Skip  operand  separator 

Parse  password 


Check  for  end 

Skip  operand  separator 

Parse  account 

Ensure  correct  termination 

Skip  separators  between  operands 
Skip  trai ling  spaces 

Ensure  separating  comma 

Skip  leading  spaces 

RETURN 

Skip  leading  spaces  and  tabs 

RETURN 

End-of-line  test 
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VFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85  02:55 
Table  of  contents 


5- 
6- 
7- 
8- 
9- 
10- 
13- 


16- 
17- 
18- 
19- 
20- 


56 
78 
92 
107 
139 
186 
252 


14-  292 

15-  328 


361 
422 
491 
525 
550 


21-  577 

22-  606 

23-  637 


MACRO  DEFINITIONS 

LOCAL  SYMBOL  DEFINITIONS 

ERROR  MESSAGES 

LOOK  FOR  DSTSDF  MACRO 

TPARS  STATE  TABLES 

DSTSDF  ACTION  ROUTINES 

DSTEND  -  END  OF  DESTINATION  DESCRIPTOR  BLOCK  MACROS 

CKDSNO  -  Check  destination  name  is  unique  [new  format] 

CKDSNl  -  Check  destination  name  is  unique  Cold  format] 

ALDSTO  -  Allocate/fill  destination  descriptor  Lnew  format] 

ALDSTl  -  AUocate/fiU  destination  descriptor  [old  format] 

DSTINS  -  INSERT  DESTINATION  DESCRIPTOR  BLOCK  INTO  LIST 

fNDLEN  -  Find  total  length  of  variable  byte  fields 

BCDLEN  -  Find  total  length  of  variable  BCD  fields 

MOVAR  -  Move  variable-Length  byte  fields 

MOVBCD  -  Move  variable-length  BCD  fields 

MOVLEN  -  Move  length  fields 


;CTD001] 


;CTD001] 
;[TD001] 
.■CTDOOl] 
;[TD00n 

;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
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VFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:35  Page  16 
ALDSTO  -  Allocate/till  destination  descriptor  [new  formatJ 


361 
362 
363 
36^ 
365 
366 
367 
368 
369 
370 
371 
372 
373 


.SBTTL  ALDSTO  -  Allocate/fiU  destination  descriptor  [new  format] 
I- 
*♦»   ALDSTO  -  AUocate/fiU  destination  descriptor  [new  format] 

INPUTS:  .   _   , 

All  parsed  fields  for  destination  block 

OUTPUTS: 

CARRY  CLEAR  -  ALLOCATION  SUCCESSFUL 
CARRY  SET  -  UNSUCCESSFUL  ALLOCATION 
All  registers  preserved 


374  000654 

ALD 

;tO:  call 

375  000660 

SAVMAP 

376  00066A 

012701 

000032 

MOV 

377  000670 

012700 

0000006 

MOV 

378  000674 

CALL 

379  000700 

012700 

OOOOOOG 

MOV 

380  000704 

CALL 

381  000710 

CALL 

382  000714 

103513 

BCS 

383  000716 

010005 

MOV 

384  000720 

CEACCS 

385  000730 

SAVRG 

386  000734 

012702 

OOOOOOG 

MOV 

387  000740 

105022 

13$ 

:    CLRB 

388  000742 

005301 

DEC 

389  000744 

003375 

BGT 

390  000746 

116767 

OOOCT^G  000002G 

Move 

391  000754 

116767 

OOOOOOG  000003G 

MOVB 

392  000762 

016767 

OOOOOOG  00001 6G 

MOV 

393  000770 

016767 

OOOOOOG  000020G 

MOV 

394  000776 

012700 

00001 OG 

MOV 

395  001002 

012701 

000006 

MOV 

396  001006 

CALL 

397  001012 

116701 

OOOOOOG 

MOVB 

398  001016 

012702 

00001 OG 

MOV 

399  001022 

012700 

OOOOOOG 

MOV 

400  001C26 

CALL 

401  001032 

012700 

OOOOOOG 

MOV 

402  001036 

012701 

0OOO32G 

MOV 

403  001042 

CALL 

404  001046 

012700 

OOOOOOG 

MOV 

405  001052 

CALL 

406  001056 

012700 

OOOOOOG 

MOV 

407  001062 

012701 

000022G 

MOV 

408  001066 

CALL 

409  001072 

116767 

OOOOOOG  000031 G 

MOVB 

410  001100 

116703 

OOOOOOG 

MOVB 

411  001104 

006203 

ASR 

412  001106 

005503 

ADC 

413  001110 

110367 

000030G 

MOVB 

414  001114 

RESRG 

415  001120 

PUTAD 

416  001134 

010501 

MOV 

417  001136 

CALL 

SSAVAL 

#D$GLEN,R1 

#DSTVRO,RO 

FNDLEN 

#DSTVR1,R0 

BCDLEN 

SALPOL 

100$ 

R0,R5 

RO 

<R0,fi1> 

#$BFR,R2 

(R2)  + 

R1 

15$ 

DSTPRI,D$PRI+$BFR 

0STOBJ,D$OBJ+$BFR 

DSASLO,D$SLO+$BFR 

DSASHI,D$SHI+$BFR 

*$BFR+D$NOD,RO 

#MXN0ID,R1 

SPFILL 

RNNL.RI 

#$BFR+D$N0D,R2 

#RNNODE,R0 

MOVE 

#DSTVRO.R0 

#$BFR+D$GVBL,R1 

MOVAR 

#DSTVR1,R0 

MOVBCD 

#DSTVRO,RO 

*$BFR+D$DSL,R1 

MOVLEN 

DSARCT,$BFRtD$DTEL 

DSCMCT,R3 

R3 

R3 

R3,$8FR+D$DATL 

<R1,R0> 

RO.RI 

R5,R1 

DSTINS 


Save  all  registers 

Saue  current  mapping 

Fixed  length  of  block 

Get  table  of  variable  byte  fields 

Add  length  of  variable  bvte  fields 

Get  table  of  variable  BCD  fields 

Add  length  of  variable  BCD  fields 

Allocate  block  from  network  pool 

Branch  if  unsuccessful  allocation 

Save  unmapped  address  of  allocation 

Convert  to  mapped  address 

Save  address  and  length  of  allocation 

Get  address  of  destination  block 

Initialize  block 


Set  destination  priority 

Set  object  number 

Set  low  subaddress 

Set  high  subaddress 

Address  of  node  name  location 

Max  node  length 

Set  node  name  to  blanks 

Actual  node  length 

Target  area  for  node  name 

Source  of  node  name 

Move  node  name 

Get  table  of  variable  byte  fields 

Target  area  for  variable  fields 

Move  byte  fields 

Get  table  of  variable  BCD-fields 

Move  BCD  fields 

Get  table  of  variable  byte  fields 

Target  area  for  lengths  of  fields 

Set  various  field  Lengths 

Move  number  of  DTE  digits 

Get  number  of  digits  in  call  mask 

Convert  to  number  of  bytes 

Move  number  of  bytes  to  block 
Restore  address  and  length  of  block 
Write  block  back  to  image 
Get  unmapped  address  of  block 
Insert  block  into  list 


;[TD001] 
;[TD001] 
;[TD001] 
;CTD0013 
;[TD001] 
;[TD00n 
;[TD001] 
;**-10 


;CTD001] 
;[TD001] 
;CTD0013 
;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD00n 
;[TD001] 
;CTD001] 
;CT0001] 
.-[TDOOID 
;[TD001] 
;[TD001] 
.-CTDOOI] 
;[TD001] 
; CTDOOI] 
;[TD001] 
.-CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
;CTD001] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
;  CTDOOI] 
;[TD001] 


n 


VFPDST  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:35 

SYMBOL    CROSS  REFERENCE 


SYMBOL  VALUE 


L$VBL 

EMTIO 

FMT8 

FM.10 

FM.8 

FNDLEN 

f  .RSIZ 

HSDST 

H$D29 

MAXIO 

MOVAR 

MOVBCD 

MOVE 

HOVLEN 

MXNOID 

N$$VCT 

PF.XDF 

RNAL 

RNNL 

kNNODE 

RNPL 

RNUL 

RTSPC 

SPACE 

SPFILL 

STORIO 

SYNERR 

SYSFDB 

S$$BAS 

SALPHA 

salpol 

$ANY 
$BFR 


SSLANK 

SCATSB 

SCEACC 

$DBG$ 

SDIGIT 

SDNUMB 

SEOS 

$ERRM7 

$ERRM9 

SERRNA 

$ERRN5 

$ERRN6 

$ERRN7 

SERRIT 

$ERR6M 


GX 


000032 

000000 
000000 
001626 

****** 

000012 
OOOOU 
000020 
001662 
001 70A 
****** 

001732  R 
000006 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

****** 

OOOOAO 

******  GX 

******  GX 

»♦*»**  GX 

*»**.*  GX 

:  ****** 

000022 

;  ******    GX 

:  000020 

:  ******    GX 


GX 


000006 
****** 


GX 
GX 


00002A 

OOOOU 

000012 

000204 

000236 

000000 

000032 

000062  R 

000110  R 

»*♦♦**  G 

000132  R 


GX 


REFERENCES 

17-475 

7-95 

7-101 
#7-95 
#7-101 

16-378 

•  U-309 
13-263 
13-265 

#6-88 

16-^03 

16-405 

16-400 

16-408 
#6-89 

14-313 

13-266 
♦10-200 
*10-197 

16-399 
*10-199 
*10-198 

7-95 
#6-84 

16-396 

10-193 
*8-127 
»14-309 

7-95 

7-99 
#9-143 

16-381 
#9-143 

14-310 
♦16-393 
♦17-450 

♦  17-478 
#9-143 

17-464 

14-313 

13-257 
#9-143 
#9-143 
#9-143 
#7-100 
#7-101 
#7-95 
#7-96 
#7-97 
#7-98 

8-137 
#7-99 


7-96 
#7-96 

#19-541 

♦14-314 
18-506 
18-509 
14-314 

#21-594 
17-477 
17-459 

#23-654 
16-395 
15-348 


16-397 


7-96 

17-455 
12-244 
♦8-130 
♦14-314 
7-95 
7-100 

17-440 

14-315 

16-394 

♦17-451 

♦17-482 


15-348 


13-288 
13-289 
10-210 
11-234 
11-235 
12-250 

15-290 


7-97 
#7-97 


♦15-344 
18-509 


#22-623 
17-474 


16-384 


7-97 
17-470 


♦15-344 
7-96 
7-100 


14-318 

16-398 

♦17-452 

18-513 


16-384 


H 

12 

PAGE   2 

CREF       04. 

00 

7-98 

7-99 

7-100 

#7-98 

#7-99 

#7-100 

♦15-349 

♦16-415 

♦17-484 

♦18-510 

♦18-516 

17-443 

18-515 

7-98 

/-99 

7-100 

7-101 

♦15-349 

♦16-415 

♦17-484 

♦18-510 

♦18-516 

7-96 

7-97 

7-97 

7-98 

7-98 

7-99 

7-101 

7-101 

15-345 

15-350 

16-386 

♦16-390 

♦16-5V1 

♦16-392 

16-402 

16-407 

♦6-409 

♦  6-413 

17-445 

♦17-449 

17-453 

17-457 

■7-460 

17-468 

17-472 

17-475 

18-517 

17-443 

18-515 

H  13 

VFPDTE   -   INITIAL   CONFIG  FILE   SC   MACRO  V05.03b  Saturday   29-Jun-85   02:36     Page   12 
DTESDF    ACTION   ROUTINES 


241 
242 
243 
244 
245  000052 

.SBTTL 

DTE$DF  ACTION  ROl 

•  START 

OF  DTE 

ADDRESS 

005067 

OOOOOOG 

5tEAST: 

CLR 

DTEFLG 

246  000056 

012700 

000017 

l*IOV 

#DTEALN,RO 

247  000062 

012701 

000000' 

MOV 

*DTEADD,R1 

248  000066 

105021 

10$: 

CLR8 

(R1)  + 

249  000070 

005300 

DEC 

?2. 

250  000072 

003375 

BGT 

10$ 

251  000074 

105067 

OOOOOOG 

CLRB 

COUNT 

252  000100 

012767 

000000'  OOOOOOG 

MOV 

#DTEADD,NEXT 

255  000106 

CALL 

STRNXT 

254  000112 

RETURN 

^55 

.56 
257 
258 
259  000114 

•  PROCESS  DTE  ADDRESS  DIGIT 

026727 

OOOOOOG  000016' 

DTEDIG: 

CMP 

NEXT,#DTEND 

260  000122 

101003 

BHI 

101$ 

261  000124 

CALL 

STRNXT 

262  000130 

RETURN 

263 

264 
265 
266  000132 

!■  ERRORS 

101$: 

EMSG$R 

03 

267 

268 

269 

•  END  Of  DTE  ADDRESS 

270 

271  000140 

004567 

OOOOOOG 

DTEAEN: 

JSR 

R5,$SAVRG 

272  000144 

012700 

000010 

MOV 

#<DTEALN+1>/2,R0 

273  000150 

012704 

000000' 

MOV 

#DTEADD,R4 

274  000154 

012705 

000017' 

MOV 

#DrEPCK,R5 

275  000160 

276 

277  000164 

CALL 

PCKBCD 

012700 

000027' 

MOV 

#DTNTNM,RO 

278  000170 

012701 

000006 

MOV 

#DTNMMX,R1 

279  000174 

CALL 

SPFILL 

280  000200 

032767 

OOOOOOG  OOOOOOG 

BIT 

#PF.XDF,$PFLAG 

281  000206 

001022 

BNE 

20$ 

282 

283  000210 

016700 

OOOOOOG 

MOV 

$PSIPT,RO 

284  000214 

GETRV 

RO,*H$LEN 

285  000232 

012700 

000024G 

MOV 

#$BFR+H$NETW,RO 

286  000236 

012701 

000027' 

MOV 

*DTNTNM,R1 

287  000242 

012702 

000006 

MOV 

#DTNMMX,R2 

288  000246 

112021 

10$: 

MOVB 

(R0)+,(R1)+ 

289  000250 

005302 

DEC 

R2 

290  000252 

003375 

BGT 

10$ 

291 

292  000254 

20$: 

RETURN 

INITIALISE   FLAGS    (ON/OFf    BITS) 

GET  LENGTH  OF   DTE  ADDRESS 

GET  ADDRESS  OF  BUFFER 

INITIALIZE  BUFFER 

MORE    TO    INITIALIZE? 

BR   IF    YES 

INITIALIZE  DfE  DIGIT  COUNT 

START  STORING  AT  BEGINNING  OF  BUFFER 

STORE  CHARACTER 


IS  ADDRESS  TOO  MANY  CHARACTERS? 

BR  IF  YES 

STORE  NEXT  DIGIT 


ILLEGAL  DTE  ADDRESS 


SAVE  R3-R5 

GET  LENGTH  OF  PACKED  ADDRESS 

GET  ADDRESS  OF  DTE  ADDRESS  BUFFER 

GET  ADDRESS  OF  PACKED  ADDRESS  BUFFER 

PACK  ADDRESS  IN  BCD  FORMAT 

Clear  DTE  name  to  spaces 


Check  for  extended  data  format 

If  extended,  cannot  default  DTE  name 

POINT  TO  HOME  BLOCK 

READ  IN  HOME  BLOCK 

POINT  TO  DEFAULT  NET  NAME 

POINT  TO  LOCAL  STORAGE  OF  NAME 

GET  SIZE  OF  NAME 

SET  UP  DEFAULT  FOR  DTE 

MORE  TO  SET  UP? 

YES,  SET  AWAY 

ELSE  COMPLETED 


;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;I:TD001] 


iCTOOOl] 
;[;T0001] 


VFPDTE  CREATED  BV     MACRO     0^J  29-JUN-85   AT   02:37 

SYMBOL  CROSS  REFERENCE 


SYMBOL 

$ERR07 

tERRlT 

tEXIT 

SFAIL 

SGETAD 

SGETRV 

SGPRM 

SLAMDA 

SLLCTA 

$NUMBR 

SPFLAG 

SPSIPT 

SPUTAO 

SQDTE 

SRADDR 

$RAD50 

SRBLCK 

$R0NLY 

$SAVAL 

SSAVRG 

SSLTMA 

SSLTNM 

SSTRNG 

SSUBXP 

$$$FLG 

$$$KEY 

.PNUMR 

.PNUMH 

.PSTCN 

.PSTPT 

.TPARS 


VALUE 

000120  R 


=  ****** 
=  000000 
=   177777 

=   ****** 

=   ****** 

-  ****** 

=  000000 

:  ****** 

=  000002 

-  ****** 

z:  ****** 

~    ****** 

000000  RG 

=   ****** 

=  000016 

-  ****** 
=  ****** 
=  ****** 

r  ****** 
r  ****** 


GX 


=  OOOOOA 

=  000010 

=  177777 

=  177777 

r  ****  ** 

=  ****** 

-  ****** 

-  ****** 


GX 
GX 
GX 
GX 
GX 


REFERENCES 


#8-1 
9-1 
#10- 
#10- 
16- 
12- 
10 
#10 
15' 
#10- 
12 
12-, 
15-' 
#9-1 
«12- 
#10' 
15' 
10 
15- 
12- 
17- 
17- 
#10- 
#10- 
#10- 
#10- 
13- 
13- 
U- 
U- 
9-1 


2/ 

64 

170 

170 

457 

284 

170 

170 

397 

170 

280 

283 

416 

48 

284 

170 

370 

170 

366 

271 

504 

503 

170 

170 

170 

170 

299 

297 

331 

334 

55 


15-427 


16-449 


15-362 
15-417 


•15-416 

»15-421 
10-170 
16-446 


13-319 
13-317 


H  U 

PAGE   4 

CREF        04.00 


15-409 
16-447 


♦16-449 


*16-457 


16-450         ♦16-467 

10-170 

17-492 


H  15 

VFPPSN  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:37 
PSNtDF  ACTION  ROUTINES 


Page  12 


269 
270 
271 

!•  LOW  END  OF  SUBADDRESS  RANGE 

272 

273  000552 

f'SNSLO:  CALL 

CHKSUB 

27A  000356 

103410 

g§§ 

101$ 

275  000560 

010167 

000002" 

RI.PSNLO 

276  000364 

010167 

000004' 

MOV 

RI.PSNHI 

277  000370 

052767 

000002  OOOOOO' 

BIS 

#HF$DLM,PSNFLG 

278  000376 

RETURN 

279 

280 
281 
282  000400 

;  ERRORS 

101$:   EMSG$R 

D1 

285 
284 
285 
286 

287  000406 

;  CHECK  FOR  VALID  SUBADDRESS  V 

005767 

OOOOOOG 

CHKSUB:  TST 

.PNUMH 

288  000412 

001010 

BNE 

10$ 

289  000414 

016701 

OOOOOOG 

MOV 

.PNUMB,R1 

290  000420 

002405 

BLT 

10$ 

291  000422 

020127 

OOOOOOG 

CMP 

R1,#SUBAMX 

loi 

292  000426 

101002 

BHI 

293  000430 

000241 

CLC 

294  000432 

000401 

BR 

20$ 

295  000434 

000261 

10$:    SEC 

296  000436 

20$:    RETURN 

CHECK  FOR  VALID  SUBADDRESS  VALUE 

BR  IF  INVALID  VALUE 

SAVE  SUBADDRESS  VALUE 

DEFAULT  IF  HIGH  OMITTED 

INDICATE  SUBADDRESS  WAS  SPECIFIED 


INVALID  LOW  SUBADDRESS  VALUE 


LEGAL    VALUE 

BR    IF    ILLEGAL   VALUE 

GET    SUBADDRESS   VALUE 

BR    IF    ILLEGAL   VALUE 

LEGAL    VALUE? 

BR    IF    NO 

INDICATE  LEGAL  VALUE 

AND  EXIT 

INDICATE  ILLEGAL  VALUE 


_J 


VFPPVf  - 
MACRO  DE 

56 

57 

58 

59 

60 

61 

62 

6? 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 


H  16 

INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:38  Page  5 
FINITIONS 

.SBTTL  MACRU  DEFINITIONS 


LIBRARV  MACROS 


000000 
000000 
000000 


.MCALL  EMSG$R,SAVRG,RESRG,PVCDF$,XCBDF$.GETAD,PUTAD,CEACC$ 
.MCALL  PH8DF$,NTLER$, STATES, TRANS, I  STATS, GETRV 
.MCALL  VNPD8G 


PSI  HOME  BLOCK  OFFSETS 
PVC  NAME  BLOCK  OFFSETS 
X25  CIRCUIT  CONTROL  BLOCKS 


;CTD001] 


;  LIBRARY  SYMBOLS 

PHBDFS 
PVCDFS 
XCBDFS 

;  LOCAL  MACRO  DEFINITIONS 

.MACRO 

MOV 

.ENDM 

SAVMAP 
SRBLCK, 

-(SP) 

.MACRO 

MOV 

.ENDM 

RESMAP 
(SP)t, SRBLCK 

;  SET 

UP  APR5  MAPPING 

.MACRO 

MOV 

.ENDM 

MAP     BIAS 
BIAS, SRBLCK 

;  SET 

UP  APRS  BIAS 

.MACRO 

BIC 

BIS 

.ENDM 

BIAS 

#160000 

#120000 

REG 
,REG 
,RF6 

CLEAR  CURRENT  MAPPING  BITS 
SET  UP  APR5  MAPPING 


VFGSVC 

CREATED  BY 

MACRO     ON  29 

-JUN-85   AT 

02:31 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

LF.UNL 

=  020000 

#5-65 

LF.X2P 

=  000000 

#5-65 

LN.CLO 

=  000000 

#5-65 

LN.DUM 

=  000005 

#5-65 

LN.LOA 

=  000004 

#5-65 

LN.LOO 

=  000003 

#5-65 

LN.OAU 

=  000003 

#5-65 

LN.OFF 

=  000001 

#5-65 

LN.ON 

=  V.00000 

#5-65 

LN.OOP 

=  000004 

#5-65 

LN.OPE 

=  000001 

#5-65 

LN.REF 

=  000002 

#5-65 

LN.SER 

=  000002 

#5-65 

LN.STA 

=  000017 

#5-65 

LN.SUB 

=  000360 

#5-65 

LN.TR! 

=  000006 

#5-65 

LTIMR 

000004  R 

#6-119 

M3-433 

15-591 

L.COST 

000015 

#5-65 

L.CTL 

000012 

#5-65 

10-283 

L.CVA 

177776 

#5-65 

L.DDM 

000002 

#5-65 

L.DDS 

000004 

#5-65 

L.DLC 

000003 

#5-65 

L.DLM 

000006 

#5-65 

L.DLS 

000010 

#5-65 

L.FLG 

000000 

#5-65 

L.'-.RBA 

000016 

#5-65 

L      :N 

=  000022 

#5-65 

L.ri.'F 

000022 

#5-65 

L.NHST 

000020 

#5-65 

L.NSTA 

000014 

#5-65 

L.OWNR 

000021 

#5-65 

L.UNT 

000013 

#5-65 

MAXWND 

=  000007 

#6-110 

11-324 

NEXT 

000000  R 

#6-117 

•12-390 

12-397 

NODTE 

000420  R 

#12-374 

N$TLC 

000100 

15-569 

15-370 

15-571 

NSXLEN 

000124 

15-568 

N$$VCT 

=      *♦*♦*♦ 

13-445 

13-474 

OWNSVC 

000020  R 

#6-125 

13-467 

*14-524 

I   1 

PAGE  2 

CREF        04.00 


PCKBCD 
PKTSVC 
PXSDLM 
PXSSVC 
RCLSWI 
RTMSVC 
RTSPC 


001566  R 
000006  R 
=  000200 
-:  000100 
000023  fi 
000012  R 


GX 


R$$EIS  =   «.♦..» 

R$$11D  -    »♦»•»* 
SETTLC  WMn  R 

SFSINC  =   000002 


12-413 
#6-120 
15-582 
15-582 
#6-128 
#6-122 
7-140 
7-149 
16-623 
16-623 
13-482 
12-374 


#16-612 
♦10-270 


»11-352 

♦12-364 

7-141 


#15-545 


♦11-312 


13-456 
13-457 
7-142 


17-651         ♦17-652 

15-561 
13-454 


13-458 
7-143 


7-144 


7-145 


7-146 


7-147 


7-148 


rDCATCn     DV        NlATDn        HM     :3Q-I1IM-R^     AT     O?-"^! 


PARF    3 


J       1 


VFGX2P   - 

CONFIG   FILE 

SCAN  ACTIO  MAC 

X2PtDF    STATE    TABLE 

132 

133 

13^ 

135 

136 

000216 

137 

138 

139 

140 

000216 

HI 

000216 

U2 

U3 

000216 

U4 

000216 

U5 

146 

000216 

147 

000216 

148 

149 

000216 

150 

000216 

151 

152 

000216 

153 

000216 

154 

000216 

155 

156 

000216 

157 

000216 

158 

159 

000216 

•■60 

000216 

161 

162 

000216 

163 

000216 

164 

165 

000216 

166 

000216 

167 

168 

C00216 

169 

000216 

170 

171 
172 

000216 
000216 

173 

174  000216 

175  000216 
176 

177  000216 

178  000216 
179 

180  000216 

181  0002^6 
182 

183  000216 

184  000216 
185 

186  000216 

187  000216 
188 


CRO  V05.03b  Saturday 

29-Jun-85  02:31     Page  10 

.SBTTL 

X2PSDF   STATE   TABLE 

•    TPARS   STATE    TABLES 

ISTATS 

X2PST,X2PKW 

;    X2P$DF 

STATES 
TRANS 

X2PDF 
XX2PSDFX,,,1,SYNERR 

STATES 
TRANS 

$RAD50,,X2.DEV 

;    DEVICE  NAME 

STATES 
TRANS 

<'-> 

STATES 
TRANS 

SNUMBR,,X2.CTL 

;    CONTROLLER  NUMBER 

STATES 
TRANS 
TRANS 

<',>,X2PRM,CHKDEV 

STATES 
TRANS 

SNUMBR,,X2.UNT    ;    UNIT 

NUMBER 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

X2PRM 
$NUMBR,,X2.MWS 

;    MAXIMUM  WINDOW  SIZE 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,X2.MBS 

;    MAXIMUM  BLOCK  SIZE 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMeR,,X2.MRT 

;    MAXIMUM  RETRANSMIT    COUNT 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,X2.RTR 

;    RETRANSMIT   TIMER 

STATES 
TRANS 

<'  ,■> 

STATES 
TRANS 

SNUMBR,,X2.HLD 

;    HOLDBACK    TIMER 

J    2 


I  3 
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3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


VFGX3P  -  CONFIG  FILE  SCAN  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 


IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 


THE  INFORMATION  IN  THIS  SOFTWARE 
AND   SHOULD  NOT  BE   CONSTRUED 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  04-MAR-82 

DECNET-11M/S  V3.1 
DECNET-11M-PLUS  VI. 1 

3.00  16-APR-82 

DECNET-llM  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-llM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI  .0 


OF  ITS 


J  1. 


•  *FILE»MD«»VFIND 
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VFIND 


CREATED  BY  MACRO  ON  29-JUN-85  AT  02:33 


SYMBOL  CROSS  REFERENCE 
SYMBOL  VALUE 


I  5 

PAGE  3 

CREF   04.00 


REFERENCES 


LS.TST 

=  000010 

#5-66 

.S.UNF 

=  020000 

#5-66 

LS.XIT 

=  000011 

#5-66 

.X.ALI 

=  000017 

#5-66 

LX.CEX 

=  000004 

#5-66 

.X.CIR 

=  000034 

#5-66 

_X.L1N 

=  000006 

#5-66 

.X.LOG 

=  000021 

#5-66 

LX.NOD 

=  000015 

#5-66 

LX.OBJ 

=  000023 

#5-66 

LX.PRO 

=  000005 

#5-66 

M$$VCT 

r  ****** 

7-98 

OFSINS 

=  000001 

#5-66 

OFSLOG 

=  000100 

#5-66 

OFSOFF 

=  000002 

#5-66 

OF$0N 

=  000000 

#5-66 

GFSSMC 

=  000200 

#5-66 

OPSADD 

=  000200 

#5-66 

OPSALL 

=  000200 

#5-66 

OPSCCS 

=  000004 

#5-66 

OPSCIE 

=  004000 

#5-66 

OPSCON 

=  000400 

#5-66 

OPSCOP 

=  000001 

#5-66 

OPSCOS 

=  000100 

#5-66 

OPSDST 

=  000200 

#5-66 

OPSDTE 

=  000040 

#5-66 

OPSDUP 

=  000002 

#5-66 

OPSEST 

=  000100 

#5-66 

OPSEVE 

=  010000 

#5-66 

OPSFIL 

=  000200 

#5-66 

OPSGRP 

=  000100 

#5-66 

OPSHOS 

=  000001 

#5-66 

ul'SHTM 

=  000002 

#5-66 

OPilNA 

=  004000 

#5-66 

OPSINC 

=  001000 

#5-66 

OPSKDS 

=  002000 

#5-66 

OPSKDT 

=  000400 

#5-66 

OPtKEV 

=  001000 

#5-66 

OPSKGR 

=  001000 

#5-66 

OPSKNT 

=  010000 

#5-66 

OPSKSK 

-  002000 

#5-66 

OPSLCT 

=  000200 

#5-66 

OPSLNE 

=  000040 

#5-66 

OPSLOC 

=  000001 

#5-66 

OPSLST 

=  000002 

#5-66 

OPSLTM 

=  000001 

#5-66 

OPSLVL 

=  000010 

#5-66 

OPSMAC 

=  000010 

#5-66 

OPSMCO 

=  000002 

#5-66 

OPSMDE 

=  000400 

#5-66 

OP$ML I 

=  000004 

#5-66 

OPSMON 

=  000100 

#5-66 

8-140 


9-1  £ 


10-226 


#5-66 
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VFPCUG  -  INITIAL  CONFIG 

FILE  SC 

MACRO  V05.03b  Saturday 

29-Jun-85  02:. 

CUGSDF  ACTION  ROUTINES 

188 

.SBTTL 

CU6$DF  ACTIOr 

189 

190 

191 

;  CUG  NAME 

192 

193  000052 

CUNAM: 

19A  000052 

012700 

000000' 

MOV 

#CUGNML,RO 

195  000056 

012701 

000006 

MOV 

#CUNMMX,R1 

196  000062 

CALL 

STORID 

197  000066 

103403 

BCS 

101$ 

198  000070 

105067 

000032' 

CLRB 

CUGFLG 

199  000074 

RETURN 

200 

201 
202 
203  000076 

;  ERRORS 

101$:   EMSG$R 

N2 

204 
205 
206 
207 
208  000104 

;  START  OF  CUG 

NUMBER 

012700 

000004 

CUNBST:  MOV 

#CUGNLN,RO 

209  000110 

012701 

000024' 

MOV 

#CUGNUM,R1 

210  000114 

105021 

10$:    CLRB 

(R1)  + 

211  000116 

005300 

DEC 

RO 

212  000120 

003375 

BGT 

10$ 

213  000122 

105067 

OOOOOOG 

CLRB 

COUNT 

214  000126 

012767 

000024' 

OOOOOOG        MOV 

#CUGNUM,NEXT 

215  000134 

CALL 

STRNXT 

216  000140 
217 

RETURN 

218 
219 
220 
221  000142 

;  PROCESS  CUG  NUMBER  DIGIT 

026727 

OOOOOOG 

000027'  CUGDIG:  CMP 

NEXT,*CUGEND 

222  000150 

101003 

BHI 

101$ 

223  000152 

CALL 

STRNXT 

224  000156 

RETURN 

225 

226 
227 

228  000160 

;  ERRORS 

101$:   EMSG$R 

N3 

>3  Page  11 


Get  address  of  CUG  buffer 

Get  maximum  length  for  old  systems 

Check  CUG  name  and  store  in  buffer 

Carry  set  if  name  illegal 

Set  up  default  for  flags  byte 


I  ILLEGAL  CUG  NAME 


GET  LENGTH  OF  DTE  ADDRESS 
POINT  TO  START  OF  BUFFER 
INITIALIZE  BUFFER 
MORE  TO  INITIALIZE? 
Dp  ]p  YPS 

INITIALIZE  COUNT  FIELD 

START  STORING  AT  BEGINNING  OF  BUFFER 

STORE  NEXT  CHARACTER 


IS  ADDRESS  TOO  MANY  CHARACTERS? 

BR  IF  YES 

STORE  NEXT  CHARACTER 


ILLEGAL  CUG  ADDRESS 


.-CTDOOID 
;CTD001] 
;[TD0013 
;[TD00n 
;[TD001] 
.•[TD0013 
;**-14 


J.  6, 


I     7 


■♦FILE«MD**VFPDSA 
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VFPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
DSC$DF  ACTION  ROUTINES 


l2:i 


Page  11-1 


!A5 


000001 


.END 


n 


J  8 


VFPDSN  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
Parse  table  for  D5NSDF 


02:34 


Page  10 


174 
175 
176 
177 
178 
179 
180 
181 

182  00005^. 

183  00005A 

184  000054 

185  000054 
186 

187  000054 

188  000054 

189  000054 

190  000054 

191  000054 

192  000054 

193  000054 

194  000054 

195  000054 

196  000054 

197  000054 
198 

199  000054 

200  000054 

201  000054 

202  000054 

203  000054 

204  000054 
205 

206  000054 

207  000054 

208  000054 

209  000054 
210 

211  000054 


Parse  a  string 

String  can  be  sequence  of  alphanumeric  characters  terminated  by  non  alphan. 

or  sequence  of  characters  in  quotes  (...) 

or  sequence  of  characters  in  angle  brackets  (<...>) 

or  sequence  of  characters  in  quotes  and  angle  brackets  (<  ...  >) 


STATES  STRING 

TRANS   BRA.BRAST.CLRSTR 
TRANS   DQUOTE,QST,CLRSTR 
TRANS   SLAMDA,NQST,CLRSTR 


STATES 

BRAST 

TRANS 

DQUOTE.QBRAST 

TRANS 

SLAMDA 

STATES 

BNQST 

TRANS 

KET.SEXIT 

TRANS 

SEOS.SEXIT 

TRANS 

SANY, BNQST, STORCH 

STATES 

QBRAST 

TRANS 

IQST 

STATES 

TRANS 

KET.SEXIT 

STATES 

QST 

TRANS 

DQUOTE.DBLQT 

TRANS 

SANY, QST, STORCH 

STATES 

D8LQT 

TRANS 

DQUOTE, QST, STORCH 

TRANS 

SLAMDA,SEXIT 

STATES 

NQST 

TRANS 

SALPHA,NQST, STORCH 

TRANS 

SDIGIT, NQST, STORCH 

TRANS 

SLAMDA,SEXIT 

STATES 


;  Parse  quoted/unquoted  string 

;  Check  Tor  bracketed  string 

;  Check  for  quoted  string 

;  Must  be  unbracketed,  unquoted 

;  String  in  brackets 

;  Check  for  quoted,  bracketed 

;  Bracketed  unquoted  string 

;  Exit  en  end  bracket 

;  Exit  at  end-of-string 

;  Accept  any  other  character 

;  Quoted,  bracketed  string 

;  Get  quoted  string 

;  Ensure  closing  bracket 

;  Quoted  string 

;  If  quote,  check  for  double  quote 

;  Accept  any  other  character 

;  Recognise  two  quotes  as  quote  char 

;  Exit  on  sinqle  quote 

;  Unquoted  string 

;  Accept  alpha-numerics  only 

;  Exit  on  anything  else 

;  End  of  state  tables 
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1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE  VFPDST  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 
.ENASL  LC 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  02-MAR-82 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-N0V-83 

DECNET-lIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-PLus  V3.0 
DECnet-Micro/RSX  VI. 0 


;CTD001D 
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VFPDST  -  INITIAL  CONfIG  MLE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
AlDSTO  -  AUocate/fUl  destination  descriptor  [new  format] 


I  11 

02:3 


35  Page  16-1 


418  001U?  000241 

419  001144 

420  001150 


100$: 


CLC 

RESMAP 

RETURN 


Indicate  block  allocated 
Restore  previous  mapping 


.•[TDOOn 
;[TD001] 
.-CTDOOI] 
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VFPDST     CREATED  BY 
SYMBOL  CROSS  REFERENCE 


MACRO  ON  29-JUN-85  AT  02:36 


PAGE 
CREF 


I  12 


OA.OO 


SYMBOL 

VALUE 

REFERENCES 

$EXIT 

- 

000000 

*9-U3 

$FAIL 

= 

177777 

#9-U3 

SGETAD 

- 

»»*»** 

GX 

14-3U 

15-349 

18-516 

tGETRV 

r 

****** 

GX 

H-309 

15-344 

18-510 

SGPRM 

:; 

****** 

9-U3 

SLAMDA 

r 

000000 

#9-U3 

SNUMBR 

r 

000002 

#9-143 

SPFLAG 

- 

****** 

GX 

13-266 

UPSIPT 

r 

****** 

GX 

13-260 

18-505 

SPUTAD 

r 

****** 

GX 

16-415 

17-484 

SQDST 

000000 

RG 

#8-120 

SRADOR 

= 

****** 

GX 

♦14-309 

*14-314 

♦15-344 

♦15-349 

♦16-415 

♦17-484 

♦18-510 

♦18-516 

$RAD50 

- 

000016 

#9-143 

SRBLCK 

~ 

****** 

GX 

14-308 

»14-325 

15-343 

♦15-358 

16-375 

♦16-419 

17-436 

♦17-488 

SRONLY 

- 

****** 

9-143 

9-143 

9-143 

SSAVAL 

- 

****** 

GX 

15-342 

16-374 

17-435 

SSTRNG 

= 

OOOOOA 

#9-143 

SSUBXP 

r 

000010 

#9-143 

$XLIN< 

- 

****** 

GX 

18-522 

$$$FLG 

- 

177777 

#9-143 

$$$KEY 

r 

^77777 

#9-143 

.PNUMB 

- 

****** 

GX 

11-225 

11-227 

.PNUMH 

:; 

****** 

GX 

11-223 

.TPARS 

= 

**  t-**  * 

GX 

8-128 

r' 
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VFPDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
DTEJDF  ACTION  ROUTINES 


{  1? 

D2:36     Page  13 


29A 

295 
296 
297  000256 

;  HASH  TABLE  SIZE 

005767 

OOOOOOG 

iHSHTBL:  TST 

.PNUMH 

298  000262 

001016 

BNE 

101$ 

299  00026A 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

300  000270 

012701 

000040 

MOV 

#HSHMN,R1 

301  000274 

020001 

10$:    CMP 

RO.fil 
^0$ 

302  000276 

00U05 

BEQ 

303  000300 

006301 

ASL 

Rl 

304  000302 

020127 

001000 

CMP 

R1,*HSHMX 
10l$ 

305  000306 

101004 

BHI 

306  000310 

000771 

BR 

10$ 

307  000312 

010067 

OOOOOOG 

20$:    MOV 

RO.HSHSZ 

308  000316 

RETURN 

309 

310 
311 
312  000320 

;  ERRORS 

101$:   EMSG$R 

04 

313 

3U 

• 

315 

316 

317  000326 

;  COUNTER  TIMER 

VALUE 

005767 

OOOOOOG 

CNTTIM:  TST 

.PNUMH 

318  000332 

001004 

BNE 

101$ 

319  00033A 

016767 

OOOOOOG 

OOOOOOG        MOV 

.PNUMB.CTIM 

320  0003A2 

RETURN 

321 

322 
323 

324  0003A4 

;  ERRORS 

101$:   EMSG$R 

05 

325 

LEGAL   HASH  TABLE   SIZE  VALUE? 

BR   IF   NO 

GET  HASH  TABLE  SIZE 

GET  MINIMUM  SIZE  OF  HASH  TABLE 

IS  THIS  A  LEGAL  SIZE? 

BR  IF  YES 

HASH  TABLE  SIZE  MUST  BE  POWER  OF  TWO 

IS  THIS  A  LEGAL  SIZE? 

BR  IF  NO 

CHECK  FOR  LEGAL  VALUE 

SAVE  HASH  TABLE  SIZE 


ILLEGAL  HASH  TABLE  SIZE 


LEGAL  COUNTER  TIMER  VALUE? 

F^   IF  NO 

LAVE    COUNTER    TIMER   VALUE 


ILLEGAL    COUNTER    TIMER  VALUE 


I  u 

IvFPDIE           CREATED  BY     MACRO     ON  29-JUN-85   AT   02:57  PAGE   5 

MACRO  CROSS  REFERENCE  CREF        OA.OO 
MACRO  NAME              REFERENCES 

CALL                          9-155  12-253  12-261           12-275           12-279           12-28'i           15-350           15-355           15-366           15-367 

'■^'-^                           15-372  15-A13  15-416           15-'.20           16-446           16-449           16-456           16-457           17-492           17-497 

DBGTPS                    #10-170  #10-^82  #10-20l'        #10-205         #10-209        #10-216         #11-234 

EMSGSR                     #5-61  i-tw  12-266           13-312           13-324           14-344            15-426           15-427           15-428           15-429 

GET  AD  #5-61  16-457 

GETRi                        #5-62  12-284  16-449 

ISTATS  #5-62  10-170 

NTLERS                    #5-62^°  8-125  8-126            8-127            8-128            8-129             8-130 

PHBDFS  #5-52  5-68 

RANd'^                       #12-284  12-284  #15-416           15-416         #16-449           16-449         #16-457           16-457 

RESMAP                     #5-77  15-421  16-467 

llr^nn                    *9-l'59  12-254  12-262           12-292           13-308           13-320           15-422           16-469           17-521           18-542 

SAVMAP                    #5-73  15-370  16-450 
SAVRG                       #5-61 

STATES                     #5-62  10-?74  #10-177         #10-180         #10-184         #10-187         #10-190         #10-193         #10-196         *10-199 

#10-203  #10-207  #10-211         #10-214           11-223        #11-226         #11-229         #11-232         #11-236         *11-239 

TRANS                      #5-62  #10-175  #10-178         #10-181         #10-182         #10-185         #10-188         #10-191         #10-194         *  0-197 

#10-200  #10-201  #10-204         #10-205         #10-208        #10-209         #10-212         #10-215         #10-216         #11-224 

#11-227  #11-230  #11-233        #11-234         #11-237 

VNPDBG  #5-63  9-148 


VFPPSN  -  INITIAL  LONFIG  FILE  SC  MArRO  V05.05b  Saturday  29-Jun-85 
PSNttlF  ACTION  ROUTINES 


I  15 

02:37 
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298 

299 

•  HIGH 

END  OF  5UBADDRESS  RANGE 

300 

301 

.ENARL 

LSB 

302  000440 

PSNSHI 

CALL 

CHKSUB 

303  000444 

103530 

!i^^ 
m 

101$                ; 

304  000446 

020167 

000002' 

RI.PSNLO             ; 
10i$ 

305  000452 

002525 

306  000454 

010167 

000004- 

MOV 

RI.PSNHI 

307  000460 

308 

309 

310 

311  000466 

052767 

000002 

000000' 

BJS 

*HF$DLM,PSNFLG 

•  End  of  PSNSDF 

-  allocate  homeblock 

PSNEND 

CALL 

$SAVAL 

312  000472 

012701 

000042 

MOV 

#H$LEN,R1 

313  000476 

032767 

OOOOOOG 

OOOOOOG 

BIT 

*PF.XDF,$PFLAG 

314  000504 

001007 

BNE 

5$ 

315  000506 

032767 

000004 

000000' 

BIT 

#HF$HOS,PSNFLG 

316  000514 

001405 

BEO 

10$ 

317  000516 

012701 

000044 

MOV 

#H$HLEN,R1 

318  000522 

000402 

BR 

10$ 

319  000524 

012701 

000104 

5$: 

MOV 

#H$GLEN,R1 

320  000530 

10$: 

CALL 

$ALL16 

321  000534 

103477 

BCS 

102$ 

322  000536 

SAVRG 

<R0,R1> 

323  000542 

012702 

OOOOOOG 

MOV 

#$6FR,R2 

324  000546 

105022 

20$: 

CLRB 

(R2)  + 

325  000550 

005301 

(EC 

R1 

326  000552 

003375 

I6T 

20$ 

327  000551. 

012700 

000007' 

10V 

*PSNNAM,RO 

328  000560 

012701 

000006 

MOV 

#PNAMMX,R1 
#$6FR+H$NETW,R2 

329  000564 

012702 

000024G 

MOV 

330  000570 

032767 

OOOOOOG 

OOOOOOG 

BIT 

#PF.XDF,$PFLAG 

331  000576 

001404 

BEQ 

50$ 

332  000600 

012701 

000020 

MOV 

*MAX1D,R1 

333  000604 

012702 

000050G 

MOV 

#$8FRtH$GNAM,R2 

334  000610 

112022 

30$: 

M0V8 

(fiO)+,(R2)+ 

335  000612 

005301 

DEC 

R1 

336  000614 

003375 

BGT 

50$ 

337  000616 

016767 

OOOOOOG 

000022G 

MOV 

PORTNO,$BFRtH$NPT 

338  000624 

016767 

000000' 

OOOOOOG 

MOV 

PSNFLG,$BFRtH$FLG 

339  000632 

032767 

000002 

000000' 

BIT 

#HF$DLM,PSNFLG 

340  000640 

016767 

000002' 

000032G 

MOV 

PSNLO,$BFRtH$LOTS 

341  000646 

016767 

000004' 

000034G 

MOV 

PSNHI,$BFRtH$HITS 
<R1,R0> 

342  000654 

40$: 

RESRG 

343  000660 

PUTRC 

RO.fil 

344  000674 

345 

346 

010067 

OOOOOOG 

MOV 

RO,$PSIPT 

;  Allocate  Port 

Table 

347 

348  000700 

CALL 

ALLPRT 

349  000704 

105416 

BCS 

105$ 

350 
351 
352 
353  000706 

•  Allocate  PSV 

mapping  tables 

052767 

OOOOOOG 

OOOOOOG 

BIT 

#PF.PSV,$PfLAG 

354  000714 

001405 

BEQ 

70$ 

CHECK  FOR  VALID  SUBADDRESS  VALUE 

BR  IF  INVALID  VALUE 

HIGH  MUST  NOT  BE  LESS  THAN  LOW 

BR  If  ERROR 

SAVE  SUBADDRESS  VALUE 

INDICATE  SUBADDRESS  WAS  SPECIFIED 


Save  registers 

Get  length  of  V2.0  PSI  home  block 

Check  for  extended  data 

Branch  if  extended 

Check  for  non-extended  host 

Branch  if  not  host 

Length  of  host  PSI  home  block 

Length  of  gateway/extended  PHB 

Allocate  home  block  from  DSR 

Branch  if  unable  to  allocate  it 

Save  home  block  address  and  length 

Get  address  of  home  block 

Initialize  home  block 

More  to  initialize? 

Branch  if  yes 

Source  of  PSN  name 

Length  of  old-style  PSN  name 

Target  for  old-style  PSN  name 

Check  for  extended  format 

Use  old-style  values  if  not  extended 

Length  of  extended  PSN  name 

Target  for  extended  PSN  name 

Copy  PSN  name 


Copy  number  of  ports 

Copy  homeblock  flags 

If  DLM,  copy  subaddress  range 

Low  end  of  range 

High  end  of  range 

Restore  allocation  length/address 

Write  homeblock  to  system  image 

Set  pointer  to  homeblock 


Attempt  to  allocate  table 
Branch  if  allocation  error 


Check  for  PSV  module 
Branch  if  not  present 


;[TD001D 
;[TD001] 
;CTD001] 
;[TD001] 
.-CTDOOI] 
;[TD001] 
;[TD001] 
;[TD001J 
;CTD001] 
.-CTDOOI] 
;[TD001] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.■CTDOOI] 
.-CTDOOI] 
.■CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
.■CTDOOI] 
; CTDOOI] 
.■CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
;CTD001] 
; CTDOOI] 
.•CTDOOI] 
.■CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.■CTDOOI] 
; CTDOOI] 
;CTD001] 
; CTDOOI] 
;CTD001] 
; CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
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QA 

95 

96 

97 

98 

99 

000040 

100 

000006 

101 

000020 

.SBTIL  LOCAL  SVMBOL  DEFINITIONS 
LOCAL  SYMBOL  DEFINITIONS 


SPACE  =  40 
PVNAMX  =  6 
MAXID  =  16. 


;  ASCII  SPACE 

;  Maximum  length  of  circuit  id  Cold  formatJ 

;  Max  length  of  net.  mgmt.  'id-stn'ng' 


;C'D00i: 
;[TD001] 


"1 


VfoSVC  CREATED  BY     MACRO     ON  29-JUN-85   AT  02:31 

■'MBOL    CROSS   REFERENCE 
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PAGE   3 

CREF       04.00 


lYMBOL      jALUE 


SF.ACT 

SF.ENA 

SF.LPB 

SF.MFL 

SF.PAC 

SF.REA 

SF.SER 

SF.SVC 

SF.UNL 

SLTA 

STASVC 

STRNXT 

SVCDF 

SVCKW 

SVCST 

SVCTL 

SVOTED 

SVDTEE 

SVDTES 

SVFLAG 

SVNAM 

SVOWNR 

SVPKT 

SVRCLL 

SVRRTil 

SVSTA 

SVWND 

SYNERR 

SYSFDB 

SSADSZ 

5$CTL 

SSDTE 

SSFLG 

3$LEN 

SSOWNR 

SSPKSZ 

SSRCL 

S$STA 

S$TI^ 

SSTMR 

S$WND 

S$$BAS 


S.COST 

S.FLG 

S.LE^' 

S.NMST 

S.OWNR 

TSFLAG 

TSLIF 

r$LlFL 


000200 
000100 
OOOOOA 
OOOOAO 
000020 
000010 
000001 
000002 
000040 
000016  R 
00001 A  R 
001 6A6  R 
000000  R 
000000  RG 
000000  RG 
0001 U  R 
000A76  R 
000522  R 
OOOA40  RG 
000316  R 
000052  R 
000550  R 
000236  R 
000342  R 
00037A  R 
000164  R 
000262 


000007 
000002 
000020 
000010 
000032 
000030 
000004 
000013 
000003 
000014 
000016 
000006 


OOOOC 

OOOOGO 

000004 

000002 

000003 

000044 

000013 

000013 


GX 
GX 


REFERENCES 

#5-65 

#5-65 

#5-65 

#5-65 

#5-65 

#5-65 

#5-65 

#5-65 

#5-65 

#6-124 

#6-123 

12-391 

8-167 

8-169 
#9-187 
#10-277 
#12-397 
#12-409 
#12-384 
#11-336 
#10-263 
#13-419 
#11-310 
#11-348 
#12-362 
#10-291 
#11-322 
♦8-172 
♦13-468 
♦13-460 
♦13-452 

13-462 
♦13-455 

13-439 
♦13-467 
♦13-454 
♦  13-456 
♦13-453 
♦13-457 
♦13-458 
♦13-459 

7-140 

7-144 

7-149 
#5-65 
#5-65 
#5-65 
#5-65 
#5-65 
#5-62 
#5-62 
#5-62 


♦13-429 

♦10-295 

12-399 

#9-187 


15-546 

13-430 

#17-648 


13-453 


15-553 


♦8-175 
♦  13-470 


13-468 


7-140 
7-145 
7-149 


•15-582 


♦10-285 
♦13-475 


♦10-298 
♦15-568 


♦15-573 


7-141 
7-145 


7-141 
7-146 


7-142 
7-146 


7-142 
7-147 


7-143 
7-147 


7-143 
7-148 


7-144 
7-148 


K     1 
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VFGX2P  -  CONFIG  FILE   SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85   02:31 
X2P$DF    STATE    TABLE 


Page  10-1 


189  000216 

190  000216 

191  000216 
192 

193  000216 


STATES 
TRANS 
TRANS 

STATES 


<';>,SEXIT 
$EOS,$EXIT 


1 


<     ?, 


VFGX3P  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.0?b  Saturday  29-Jun-85 

MACRO  DEFINITIONS 


55 
56 
57 
58 
59 
60 


02:32  Page  5 
.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 

.MCALL   I  STATS, STATES, TRANS, EMSG$R,NTLER$ 


K  3 
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VFIND  -  VNP  FIND  ENTITY  ROUTINE  MACRO  V05.03b  Saturday  29-Jun-85  02:35 
Table  of  contents 


s- 

54 

MACRO  DEFINTIONS 

6- 

10 

LOCAL  DATA 

f- 

/t 

SFNOBJ  -  FIND  OBJECT 

8- 

109 

SFNALI  -  FIND  ALIAS 

9- 

161 

SFNADD  -  FIND  REMOTE  BY  ADDRESS 

10- 

197 

SFNNAM  -  FIND  REMOTE  BY  NAME 

1 


K  4 


VFIND 

CREATED 

BY 

MACRO  ON  29 

-JUN-85  AT 

02:33 

J 

PAGE  A 

SYMBOL 

CROSS  REFERENCE 

CREF   OA. 

SYMBOL 

VALUE 

REFERENCES 

DPSMST 

=  000020 

#5-66 

OPSNAM 

=  OOOOOA 

#5-66 

#5-66 

#5-66 

OPSNET 

=  OOAOOO 

#5-66 

OPSNLI 

=  000002 

#5-66 

OPtNOD 

=  000020 

#5-66 

OPSOUT 

=  002000 

#5-66 

OP$OUN 

=  000020 

#5-66 

OPSPAR 

=  000010 

#5-66 

OPSPRI 

=  000010 

#5-66 

OPSRET 

=  010000 

#5-66 

OPSRPA 

=  000010 

#5-66 

OPSSCO 

=  000001 

#5-66 

OPSSEG 

=  OOO'iOO 

#5-66 

OPSSER 

=  000400 

#5-66 

OPSSIN 

=  000010 

#5-66 

OPSSTA 

=  OOOOOA 

#5-66 

OP$TPA 

=  000020 

#5-66 

OPSTRI 

=  OOOOAO 

#5-66 

OPSUCS 

=  000020 

#5-66 

OPSUSE 

=  000002 

#5-66 

OPSVEC 

=  000010 

#5-66 

OPSVER 

=  OOOOAO 

#5-66 

OPSXAC 

=  000001 

#5-66 

OPSXPR 

=  000002 

#5-66 

0P$X5S 

=  OOOOOA 

#5-66 

0P$X9S 

=  000010 

#5-66 

O.LEN 

000012 

7-99 

O.TYP 

000002 

7-102 

QFSACT 

=  000001 

#5-66 

QFSALL 

=  000002 

#5-66 

8-1A2 

QFSKNO 

=  OOOOOA 

#5-66 

7-100 

8-1AA 

QFSLOO 

=  000010 

#5-66 

RF.LOO 

=  100000 

#5-6A 

RQB 

=  ****** 

GX 

8-153 

R.ADD 

000010 

#5-6A 

9-190 

R.FLAG 

000012 

#5-6A 

R.LEN 

00001A 

#5-6A 

9-189 

10-227 

R.LNK 

000000 

#5-6A 

R.NAM 

000002 

#5-6A 

10-229 

10-231 

10-233 

5YSFDB 

-  ****** 

GX 

•  7-99 

*8-127 

*8-128 

•8-129 

•10-213 

♦10-21A 

•10-215 

•10-227 

♦8-1A1 


•9-175 


•9-176 


♦9-177 


•9-189 


TYSCHA 
TYSEVE 
TYSSTA 
TYSSUM 
WC.CNT 
WC.EVE 
WC.TRI 
WC.UNT 
$BFR 


OOOAOO 
001000 
002000 
000000 
OOOAOO 
OOAOOO 
002000 
001000 


GX 


#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

#5-66 

•  7-91 
8-153 
10-231 


7-95 

7-102 

8-129 

•8-133 

8-137 

8-1A7 

8-1A9 

8-151 

9-177 

•9-181 

9-185 

9-190 

10-215 

•10-219 

10-223 

10-229 

1     10-233 

K     5 


VFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:53  Page  12 
CUGtDF  ACTION  ROUTINES 


ADDRESS 


230 

231 
232 
233  000166 

;  END  OF  CUG  A 

004567 

OOOOOOG        CUNBEN:  JSR 

234  000172 

012700 

000002               MOV 

235  000176 

116704 

OOOOOOG              MOVB 

236  000202 

062704 

000020'              ADD 

237  000206 

012705 

000030'              MOV 

238  000212 

112767 

000004  OOOOOOG        MOVB 

239  000220 

CALL 

2A0  000224 

RETURN 

R5,$SAVRG 

#<CUGNLN/2>,R0 

COUNT, R4 

#CUGNUM-4,R4 

#CUGPCK,R5 

#4, COUNT 

PCK8CD 


SAVE  R3-R5 

GET  LENGTH  OF  PACKED  CUG  ADDRESS 

GET  COUNT 

POINT  TO  NUMBER  TO  CONVERT 

POINT  TO  BUFFER  TO  STORE  BCD  ADDRESS 

ALWAYS  CONVERT  FOUR  DIGITS 

PACK  CUG  ADDRESS  IN  BCD  FORMAT 


"1 


K  6- 
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VfPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  VO5.05b  Saturday  29-Jun-85  02:34 
Table  of  contents 

MACRO  DEFINITIONS 
LOCAL  SYMBOL  DEFINITIONS 
ERROR  MESSAGES 
LOOK  FOR  DSASDF  MACRO 
TPAR5  STATE  TABLES 
DSCSDF  STATE  TABLES 
DSASDF  ACTION  ROUTINES 
DSC$DF  ACTION  ROUTINES 


s- 

S6 

ft- 

M 

/- 

tf 

H- 

«H 

9- 

V4 

10- 

Iftft 

n- 

191 

1A- 

286 

K  7 
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VFPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:34 
Symbol  table 


Page  K-2 


A$$CH<= 

A$tCPS= 

A$$PR1  = 

At$TRP= 

CALVAL 

CERR  = 

CFGBF  = 

CFGSZ  = 

CFLIN  = 

CHKSB 

COUNT  = 

CUNMMX= 

C$$CKP= 

C$$ORE= 

C$SRSH= 

DACUG 

DACUNM 

OARDEN= 

DARDND 

DARDNO 

DARDNX 

OARDST 

DARMLN= 

DASSHI 

DASSLO 

DCMSK 

DCVAL 

DSACGL= 

.  ABS. 

DATA 
SSTATE 
SKTAB 
$KSTR 


000000 
000000 
000000 
000000 
0001 52R 
*«•»*«  GX 
******  GX 
******  GX 
******  GX 
OO025AR 
******  GX 
000006 
000000 
000400 
177564 
0001 22R 
000306R 
******  GX 
000142R 
0001 16R 
000032R 
000060R 
******  GX 
000224R 
0001 76R 
000334R 
000362R 
******  GX 

000000 
000526 
000216 
000170 
000004 
000016 


DSADF 
DSAKU 
DSARCT= 
DSARDP= 

003  DSARD'- 
DSASH1= 
DSASLO= 
DSAST 
DSCDF 
DSCMCT= 
OSCMSK= 
DSCMX  = 
DSCVAL= 
DSCVCT= 
D$$BUG= 

003  D$$ISK= 
D$$L11= 
D$$YNC= 
D$$YNM= 
END 

003  E$$XPR= 
FMT10  = 
FM.10  = 
F$SLVL= 
G$$TPP= 
G$$TSS= 
G$$TTK= 


OOOOOOR 

OOOOOORG 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

OOOOOORG 

0001 30R 

******  GX 

******  GX 

000040 

****** 

****** 

177514 

000000 

000001 

000000 

000000 

0001 60R 

000000 

******  GX 

000000 

000001 

000000 

000000 

000000 


GX 
GX 


003  G$$WRD= 

004  I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 

003  LDSLP  = 
003  L$$ASG= 
LS$DRV= 
L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
NEXT  = 
003  N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$HLL= 
N$$MOV= 
N$$NCT= 
N$$PEM= 


000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

******  GX 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 


Errors  detected: 


000 
001 
002 
003 
004 
005 
0 


(RW,I,GBL,ABS,0VR) 
(RW,1,LCL,REL,C0N) 
(RW,D,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 


PCK8CD= 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RTSPC  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SHI 

SLO 

STORID= 

STRHEX 

STRNXT= 

SUBAMX= 

SYNERR= 

S$$WRG= 

S$$YSZ= 

T$$KMG= 

T$$MJN= 

V$$CTR= 

X$$DBT= 

$ALPHA= 

$ANY  = 

$BLANK= 

$DIG1T= 

$DNUMB= 


******  GX 

000000 

000000 

000010 

******  GX 

000000 

000001 

000000 

000000 

000102R 

000062R 

******  GX 

00041  OR 

******  GX 

******  GX 

******  GX 

000000 

007600 

000000 

000000 

001000 

000000 

000022 

000020 

000006 

000024 

000014 


$EOS  = 
SERRMO 
$ERRM2 
$ERRM3 
$ERRN2 
$ERRN8 
$ERRN9 
$ERR1T= 
$EXIT  = 
003  SFAIL  = 
003  $LAHDA= 
$NUMBR= 
$QDSA 
SQDSC 
$RAD50= 
$SAVRG= 
$STRNG= 
$$UBXP= 
$$$FLG= 
$$$KEY= 
$$$STA= 
$$$TMP= 
.PNUMB= 
.PNUMH= 
.PSTCN= 
.PSTPT= 
.TPARS= 


000012 

000106R 

0001 36R 

000166R 

OOOOOOR 

000022R 

000056R 

******  GX 

000000 

\mn 

000000 

000002 

OOOOOORG 

000006RG 

000016 

****** 

000004 

000010 

177777 

000001 

000000 

000007R 

GX 
GX 
GX 
GX 
GX 


GX 


****** 
****** 
****** 
****** 
****** 


«♦•  Assembler  statistics 

Work   file  reads:  0 

Work   f i  le  writes:  0 

Size  of  work  file:  12592  Words 

Size  of  care  pool:  14440  Words 

Operating  system:  RSX-11M/PLUS 

Svf  VFPDSA  !v2;  [132,1 34]  VFPDSA/CR/-SP=SY:[1,nRSXMCM.SML/ML,[1 30, 110]NETLI8/Ml,[1 30, 10]RSXMCM/PA:1,[1  32, 10]VFPDSA 


(  50  Pages) 
(  55  Pages) 


002 
002 
002 
002 
002 
002 


005 
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VFPDSN  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:3^ 
Syntax  action  routines 


Page  11 


215 
2U 
215 
216 
217 
218 
219 
220 
221 
222 
223 
22A 
225 
226 
227 
228 
229 
230 
251 
252 
255 
23A 
235 
236 


000054 

00005A  016701  OOOOOOG 

000060  020127  000006 

00006';  101011 

000066  110167  OOOOOOG 

000072  016700  OOOOOOG 

000076  012702  0000006 

000102 

000106 

000110 


.SBTTL  Syntax  action  routines 

h 

***  OSNNOD  -  Check  node  name 

INPUTS 

.PSTPT  -  Pointer  to  parsed  string 
.PSTCN  -  Number  of  characters  in  string 

OUTPUTS 

Node  name  checked  and  stored 

Error  condition  if  invalid  node  name 


DSNNOD 

MOV 

. PSTCN, Rl 

CMP 

R1,#MXN01D 

BHJ 

101$ 

MOVB 

R1,RNNL 

MOV 

. PSTPT, RO 

MOV 

#RNN0DE,R2 

CALL 

MOVE 

RETURN 

101$: 

EMSGSR 

MC 

Check  if  node  name  too  long 
Branch  if  error 
Moue  node  length  to  data  area 
Move  node  name  to  data  area 


Illegal  destination  access  data 


K  9 
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VFPDST  - 
MACRO  OE 

56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
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INITIAL  COMFIG  FILE  SC  MACRO  V05.05b  Saturday  29-Jun-85  02:35  Page  5 
FIMMONS 


.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 


.MCALL  EMSG$R,DSTDF$,SAVRG,RESRG,PHBDF$,NTLER$ 
.MCALL   I  STATS, STATES, TRANS, CEACCi,GE TAD, GETRV.PUTAD 
.MCALL  VNPD8G 


.-[TDOOn 


000000 
000000 


DSTDFS 
PHBDFS 

;  LOCAL  MACRO  DEFjNITIONS 

.MACRO  SAVMAP 

MOV     $RBLCK,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)t,SRBLCK 

.ENDM 


DESTINATION  DESCRIPTOR  BLOCK  OFFSETS 
PSI  HOME  BLOCK  OFFSETS 
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VFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:35  Page  17 
ALDST1  -  AUocate/tiU  destination  descriptor  [old  format] 


A22 
A23 
A2A 
425 
426 
427 
428 
429 
430 
451 
432 
433 
434 

435  001152 

436  001156 

437  001162 

438  001166 

439  001172 

440  001176 

441  001202 

442  001204 

443  001206 

444  001216 

445  001222 

446  001226 

447  001230 

448  001232 

449  001234 

450  001242 

451  001250 

452  001256 

453  001264 

454  001270 

455  001274 

456  001300 

457  001304 

458  001310 

459  001314 

460  001320 

461  001324 

462  001330 

463  001334 

464  001340 

465  001344 

466  001346 

467  001352 

468  001354 

469  001360 

470  001364 

471  001370 

472  001374 

473  001400 

474  001404 

475  001410 

476  001414 

477  001420 

478  001424 


.S8TTL  ALDST1  -  ALlocate/tiU  destination  descriptor  Cold  format] 
**♦   ALDST1  -  AUocate/fill  destination  descriptor  [old  format] 

INPUTS; 

All  parsed  fields  for  destination  block 

OUTPUTS: 

CARRY  CLEAR  -  ALLOCATION  SUCCESSFUL 
CARRY  SET  -  UNSUCCESSFUL  ALLOCATION 
All  registers  preserved 


ALDST1: 


012701  000032 
012700  OOOOOOG 


103535 
010005 


012702 
105022 
005301 
003375 
116767 
116767 
016767 
016767 
012700 
012701 

116701 
012702 
012700 

012703 
116704 
012700 
012701 

010123 
162704 
003370 
012700 
012701 

116701 
012702 
012700 

012701 
012700 


OOOOOOG 


15$: 


OOOOOOG  000002G 
OOOOOOG  000003G 
0000006  00001 6G 
OOOOOOG  000020G 
00001 OG 
000006 

OOOOOOG 
OOOOIOG 
OOOOOOG 

000004G 
OOOOOOG 
OOOOOOG 
000001 


000003 

000022G 
000006 

OOOOOOG 
000022G 
OOOOOOG 

000032G 
OOOOOOG 


25$: 


116767  OOOOOOG  000031G 


CALL  $SAVAL 

SAVMAP 

MOV  #D$FLEN,R1 

MOV  #DSTVR1,R0 

CALL  BCDLEN 

CALL  $ALP0L 

BCS  100$ 

MOV  R0,R5 

CEACC$  RO 

SAVRG  <R0,R1> 

MOV  #$8FR,R2 

CLRB  (R2)+ 

DEC  R1 

BGT  15$ 

MOVB  DSTPRI,D$PRI+$BFR 

M0V8  DST0aj,D$0BJ+$BFR 

MOV  DSASL0,D$SL0+$BFR 

MOV  OSASHI,D$SHI+$BFR 

MOV  #$BFR+D$DST,R0 

MOV  #DSNAMX,R1 

CALL  SPFILL 

MOVB  DSTNML.RI 

MOV  #$6FR+D$DST,R2 

MOV  #DSTNAM,RO 

CALL  MOVE 

MOV  #$BFR+D$NAM,R3 

MOVB  DSTTKL,R4 

MOV  #DSTTSK,RO 

MOV  #1,R1 

CALL  $CAT5B 

MOV  R1,(R3)+ 

SUB  #3,R4 

BGT  25$ 

MOV  #$8FR+D$CUGN,R0 

MOV  #CUNMMX,R1 

CALL  SPFILL 

MOVB  DSACGL.RI 

MOV  #$BFRtO$CUGN,R2 

MOV  #DSACUG,RO 

CALL  MOVE 

MOV  *$8FR+D$VBL,R1 

MOV  #DSTVR1,R0 

CALL  MOVBCD 

MOVB  DSARCT,$BFR*D$DTEL 


Save  all  registers 

Save  current  mapping 

Fixed  length  of  block 

Get  table  of  variable  BCD  fields 

Add  length  of  variable  BCD  fields 

Allocate  block  from  network  pool 

Branch  if  unsuccessful  allocation 

Save  unmapped  address  of  allocation 

Convert  to  mapped  address 

Save  address  and  length  of  allocation 

Get  address  of  destination  block 

Initialize  block 


Set  destination  priority 

Set  object  number 

Set  low  subaddress 

Set  high  subaddress 

Address  of  destination  name  location 

Max  destination  length 

Set  destination  name  to  blanks 

Actual  destination  length 

Target  area  for  destination  name 

Source  of  destination  name 

Move  destination  name 

Address  target  for  task  name 

Get  length  of  task  name 

Address  space-filled  task  name 

Allow  periods  in  task  name 

Convert  name  to  RAD50 

Store  task  name 

Check  if  any  more  conversion  needed 


Space-f i II  CUG  name 


Actual  length  of  CUG  name 

Target  for  CUG  name 

Source  of  CUG  name 

Move  CUG  name 

Target  area  for  variable  fields 

Get  table  of  variable  BCD-fields 

Move  BCD  fields 

Move  number  of  DTE  digits 


;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
.-CTDOOI] 
;[TD001] 
; CTDOOI] 
; CTDOOI] 
;[TD001] 
; CTDOOI] 
;[TD001] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.■CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.■CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;CTD001] 
; CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
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VFPDST  CREATED  BV     MACRO     ON  29-JUN-85   AT   02:36  PAGE   4 

MACRO  CROSS  REFERENCE  CREF       04.00 


MACRO  NAME 

REFERENCES 

CALL 

8-128 

10-193 

12-244 

13-271 

15-342 

15-344 

15-348 

15-349 

16-400 

16-403 

16-405 

16-408 

17-455 

17-459 

17-464 

17-470 

18-516 

18-522 

CEACCS 

#5-62 

14-313 

15-348 

16-384 

DBGTP$ 

#9-143 

#9-153 

#9-175 

#9-182 

DSTDFt 

#5-61 

5-65 

EMSG$R 

#5-61 

8-137 

10-210 

11-234 

GETAD 

#5-62 

14-314 

15-349 

18-516 

GETRV 

#5-62 

14-309 

15-344 

18-510 

ISTATS 

#5-62 

9-143 

MTRANt 

#9-143 

NTLERS 

#5-61 

7-95 

7-96 

7-97 

PHBDFt 

#5-61 

5-66 

PUTAD 

#5-62 

16-415 

17-484 

RAND 

#14-309 

14-309 

#14-314 

14-314 

#17-484 

17-484 

#18-510 

18-510 

RESMAP 

#5-74 

14-325 

15-358 

16-419 

RESRG 

#5-61 

16-414 

17-483 

RETURN 

8-132 

10-206 

11-228 

12-246 

19-548 

20-575 

21-604 

22-635 

SAVMAP 

#5-70 

•4-308 

15-343 

16-375 

SAVRG 

#5-61 

•  6-385 

17-444 

STATES 

#5-62 

9-148 

#9-151 

#9-155 

#9-177 

#9-180 

#9-184 

TRANS 

#5-62 

#9-149 

#9-152 

#9-153 

#9-174 

#9-175 

#9-178 

#9-181 

VNPDBG 

#5-63 

13-257 

13-273  13-279  13-281  14-309  14-313  14-314 

16-374  16-378  16-380  16-381  16-384  16-396 

16-415  16-417  17-435  17-439  17-440  7-443 

17-474  17-477  17-484  17-486  18-510  18-515 

17-^43  18-515 

11-235  12-250  13-288  13-289  13-290 


7-98  7-99  7-100  7-101 

#15-344  15-344         #15-349  15-349         #16-415  16-415 

#18-516  18-516 

17-488 

13-284  14-326  15-359  16-420  17-489  18-523 

23-660 

17-436 

#9-158  #9-161  #9-164  #9-167  #9-170  #9-173 

#9-156  #9-159  #9-162  #9-165  #9-168  #9-171 

#9-182 


VFPDTE  -   INITUL   CONFIG  fILE    SC   MACRO  V05.0^b  Saturday  29-Jun-85 
DTEtDF    ACTION   ROUTINES 

«8 
129 
330 

331  000352  016700  OOOOOOG 

332  000356  020027  000006 
353  000362  101010 
35A  000364  016701  OOOOOOG 
355  000370  012702  000027' 

336  00037A  112122 

337  000576  005500 

558  OOOAOO  005575 

559  000402  000405 
540 
541 
342 
545 

344  000404 
345 


h'-l 
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;  NETWORK.  NAME 

6tENET;  MOV 

.PSTCN,R0 

CMP 

RO.flDTNHMX 
101$ 

BHl 

MOV 

.PSTPT.Rl 

MOV 

#DTNTNM,R2 

10$:    MOVB 

(R1)+,(R2)t 

DEC 

RO 

BGT 

10$ 

BR 

DTEEND 

■  ERRORS 

101$:   EMSGSR 

00 

GET  SIZE  OF  SUPPLIED  NAME 

BIGGER  THAN  MAXIMUM? 

BR  IF  YES,  ERROR 

POINT  TO  NAME 

POINT  TO  LOCAL  COPY 

COPY  NAME 

MORE  TO  COPY? 

BR  IF  VES 

ELSE  MERGE  INTO  END  PROCESSING 


ILLEGAL  NETWORK  NAME  PARAMETER 


~1 


•F  1lE<MD>«VFPPSN 


J  u 


v\/ 

vv   F 

FFFfFFFFF 

PPPPPPPP 

PPPPPPPP 

ssssssss 

NN      NN 

vv 

vv   F 

FFFFFi-FFF 

PPPPPPPP 

PPPPPPPP 

ssssssss 

NN      NN 

vv 

vv   F 

PP 

=P 

PP        PP 

ss 

NN      NN 

vv 

vv   F 

PP 

DP 

PP        PP 

ss 

NN      NN 

vv 

vv   F 

PP 

op 

PP        PP 

ss 

NNNN    NN 

vv 

VV   F 

PP 

DP 

PP        PP 

ss 

NNNN    NN 

vv 

vv   F 

FFFFFFF 

PPPPPPPP 
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vv 
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vv 
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PP 

PP 

ss 
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vv 
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PP 
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vv 
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PP 

PP 

ss 
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\l\l 
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PP 

PP 

ss 
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PP 

PP 
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NN      NN 

VV       F 

PP 

PP 

ssssssss 

NN      NN 

ssssssss 

TTTTT 

TTTTT 
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TTTTT 
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ss 
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VFPPSN  -  INITIAL  CONFIG  FILE  SC  MACRO  V05,05b  Saturday  29-Jun-85 
PSNSDF  ACTION  ROUTINES 


i   15 

02:37 
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355  000716 

356  000722 
357 

358  000724 

359 

360 

361 

362  000726 

363  000734 

364  000742 

365  000750 
366 

367 


103412 


CALL 
BCS 

ALLPSV 
104$ 

70$: 

RETURN 

;  ERROR 

MESSAGES 

101$: 
102$: 
103$: 
104$: 

EMSG$R 
EMSGSR 
EMSGSR 
EMSG$R 

D2 
P5 
P6 
PA 

.DSA8L 

LS8 

Attempt  to  allocate  tables 
Brancn  it  allocation  error 


ERROR  -  INVALID  HIGH  SUBADDRESS  VALUE 
ERROR  -  HOME  BLOCK  ALLOCATION  FAILURE 
ERROR  -  PORT  TABLE  ALLOCATION  FAILURE 
Error  -  PSV  mapping  tables  alocn. 


;[TD001] 
;[TD001J 
;[TD001] 
;[TD001] 
;»*-49 


iCTDOOIj 

iCTDOon 

:[TD001] 


J 


VFPPVC  -  INITIAL  CONFIG  NLE  SC  MACRO  VO5.03b  Saturday  29-Jun-85 
LOCAL  DATA 


i2^A 


8  Page  7 


105 

104 

105 

106 

107 

108 

109  000000 

110 

111 

112 

113 

114 

115 

116  000000 

1-7  000002 

118  000004 

119  000006 

120  000010 

121  000012 

122  000014 

123  000016 

124  000020 

125  000022 
126 

127  000024 

128  000025 

129  000026 

130  000027 

131  000047 

132  000050 

133  000051 

134  000052 
135 

136 

137 

138 

139 

140  000054 

141 


000001 


000 


000003 


.SBTTL  LOCAL  DATA 


;  LOCAL 

DATA 

.PSECT 

DATA.D 

.NLJST 

BEX 

•  LOCAL 

DATA  FOR  PVCSDF 

MACRO 

PRTADD 

.QLKW 

^RTBIA 

.BLKW 

^VCLCN 

.BLKW 

^VCCTM 

.8LKW 

^VCPSZ 

.BLKW 

^VCWSZ 

.BLKW 

=VCOWN 

.BLKW 

)LMPDV 

.BLKW 

UMSLT 

.BLKW 

^LAG: 

.8LKW 

PF.DLM 

=  1 

=VCPRT 

.8LK8 

OVCFLG 

.BLKB 

BVCNML 

.BLKB 

PVCNAM 

.BLKB 

MAX  ID 

DLMCFL 

.8LK8 

DLMUNT 

.BYTE 

0 

DLMSIA 

.BLKB 

DLMIND 

.BLKB 
.EVEN 

;  STAT 

:    VALUE 

FOR  "DATA 

TRANSFER 

;  GLOB 

^L  PATCHABLE  JUST 

IN  CASE 

ADDRESS  OF  ENTRY  IN  PORT  TABLE 

BIAS  OF  PORT  TABLE 

LOGICAL  CHANNEL  NUMBER 

COUNTER   TlflER 

MAXIMUM  BLOCK  SIZE 

WINDOW  SIZE 

OWNER  PROCESS 

ADDRESS  OF  DLM  PDV 

ADDRESS  OF  DLM  SLT 

LOCAL  FLAGS  WORD 

PVC  IS  A  DLM  CIRCUIT 

PORT  NUMBER  OF  FREE  ENTRY 

PVC  FLAGS  BYTE 

Length  of  circuit  identification 

Circuit  identification 

DLM'S  CONTROLLER  NUMBER 

DLM'S  UNIT  NUMBER  (ALWAYS  0,  MUST  BE  MTP) 

DLM'S  STATION  NUMBER 

DLM'S  PDV  INDEX 


FOR   XCB 


CTDOOl] 
[TD001] 

**-1 


;rTD001] 


SP$P4::     .WORD 


VALUE   FOR   DATA   TRANSFER   STATE 


VFGSVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:31 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


TSLIFO 

TSLIFS 

T$L!N 

TSLIPS 

T$LLD 

TSLLDC 

TSLLDL 

TSLLDO 

TSLLDS 

TSLLEN 

TSLOPR 

TSLTCL 

TtLTIM 

TSLTPR 

TSLTPS 

TSNAPL 

TSNFE 

TSNLEN 

TSNNUL 

TSNOPL 

TSNRNl 

TSNRPL 

TSNRUL 

T$NVR 

TSRPRI 

TSSVC 

T$T5 

T$T6 

UNDSVC 

Z.DAT 

2.  MAP 

Z.NAM 

SALPHA 

SALPOL 

$ANY 

SBFR 


SBLANK 

SCATS 

SCDTB 

SCEACC 

SDIGIT 

SDNUMB 

$EOS 

SERRIT 

tERR2I 

$ERR3D 

$ERR3E 

$ERR3F 

$ERR3G 

$ERR3h 


000013 
0O0013 
000000 
000006 
000012 
0000A5 
000012 
000012 
000012 
000046 
000002 
000024 
000026 
000014 
000020 
000004 
000000 
000010 
000002 
000006 
000042 
000005 
000007 
000001 
000040 
000034 
000030 
000032 
000022  R 

-  **■♦**♦ 
=  *♦**+* 
=   ****** 

=  000022 

r  ****** 

=  000020 


GX 
GX 
GX 

GX 

GX 


=  "00006 

r  ♦♦♦♦♦* 


000024 
000014 
000012 


GX 
GX 
GX 


000056  R 


GX 
GX 


000102 
000126 
000152 
0C0202 


REFERENCES 

#5-62 
#5-62 
#5-o2 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#5-62 
#6-127 

15-568 

15-565 

14-515 
#9-187 

13-440 
#9-187 

13-448 
♦13-460 
*15-581 
#9-187 

10-267 

17-650 

13-445 
#9-187 
#9-187 
#9-187 

8-181 

10-303 
#7-140 
#7-141 
#7-142 
#7-143 
#7-144 


15-574 


15-573 


♦15-583 
♦15-590 
♦15-591 
♦10-271 


♦13-452 

13-462 

♦15-582 

13-424 

13-474 


11-317 
11-331 
11-343 
11-357 
12-369 


15-576 


15-578 


K     1 

P.,GE   4 

CREF       04.00 


♦15-581 


♦15-588 


♦11-326 


♦15-589 
13-459 


♦13-453 

♦13-454 

♦13-455 

♦13-456 

♦13-457 

♦13-458 

♦13-459 

♦13-467 

13-472 

15-569 

15-570 

15-571 

15-574 

15-576 

♦15-583 

♦15-588 

♦15-589 

♦15-590 

♦15-591 
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VFGX2P  -  CONFIG  FILE   SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85   02:31 
X2P$DF    ACTION  ROUTINES 
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195 

.SBTTL 

X2P$DF  ACTION  ROUTINES 

196 
197 
198 

■  DEVICE  NAME 

199 
200 

.ENABL 

LS8 

201  000216 

022767 

000003 

OOOOOOG 

X2.DEV: 

CMP 

*3,.PSTCN 
101$ 

VALID  DEVICE  NAME? 

202  000224 

103464 

BLO 

BR  IF  NO 

203  000226 

016700 

OOOOOOG 

MOV 

.PSTPT.RO 

POINT  TO  START  OF  NAME 

204  000232 

CALL 

$CAT5 

CONVERT  TO  RAD50 

205  000236 

010167 

177536 

MOV 

R1,X2DEV 

STORE  DEVICE  NAME 

206  000242 

207 

208 

209 

210  000244 

RETURN 

•  DEVICE  CONTROLLER  NUMBER 

005767 

OOOOOOG 

X2.CTL: 

TST 

.PNUMH 

LEGAL  CONTROLLER  NUMBER? 

211  000250 

001052 

BNE 

101$ 

BR  IF  NO 

212  000252 

105767 

000001 G 

TSTB 

.PNUMBtl 

LEGAL? 

213  000256 

001047 

BNE 

101$ 

BR  IF  NO 

214  000260 

116767 

OOOOOOG 

177514 

Move 

.PNUMB,X2CTL 

SAVE  CONTROLLER  NUMBER 

215  000266 

105067 

177511 

CLRB 

X2UNT 

DEFAULT  UNIT  TO  ZERO 

216  000272 

217 

218 

219 

220  00027', 

RETURN 

;  DEVICE  UNIT  NUMBER 

005767 

OOOOOOG 

X2.UNT: 

TST 

.PNUMH 

LEGAL  UNIT  NUMBER? 

221  000300 

001036 

BNE 

101$ 

BR  IF  NO 

222  000302 

105767 

000001 G 

TSTB 

.PNUMB+1 

LEGAL? 

223  000306 

001033 

BNE 

101$ 

BR  IF  NO 

224  000310 

116767 

OOOOOOG 

177465 

MOVB 

.PNUMB,X2UNT 

SAVE  UNIT  NUMBER 

225  000316 

016700 

OOOOOOG 

CHKDEV: 

MOV 

$SLTA,RO 

GET  SLT  ADDRESS 

226  000322 

116001 

000002 

MOVB 

L.DDM(R0),R1 

GET  DDM'S  PDV  INDEX 

227  000326 

066701 

OOOOOOG 

ADD 

$PDVTA,R1 

INDEX  INTO  PDV  VECTOR  TABLE 

228  000332 

011101 

MOV 

(RD.Rl 

GET  PDV  INDEX 

229  000334 

026167 

000004 

177436 

CMP 

Z.NAM(R1),X2DEV 

IS  THIS  THE  CORRECT  DEVICE? 

230  000342 

001010 

BNE 

10$ 

BR  IF  NO 

231  000344 

126067 

000012 

''7430 

CMPB 

L.CTL(R0),X2CiL 

IS  THIS  THE  CORRECT  CONTROLLER? 

232  000352 

001004 

BNE 

10$ 

BR  IF  NO 

233  000354 

126067 

000013 

'"  -21 

CMPB 

L.UNT(R0),X2UNT 

IS  THIS  THE  CORRECT  UNIT  NUMBER 

234  000362 

001404 

BEQ 

20$ 

BR  IF  YES  -  FOUND  IT 

235  000364 

10$: 

REJ$ 

ELSE  REJECT  THE  TRANSITION 

236  000374 

237 

238  000376 

20$: 

RETURN 

101$: 

EMSG$R 

21 

ILLEGAL  LINE-ID 

239 
240 
241 
242 
243  000404 

.DSA8L 

LS6 

;  MAXIMUM  WINDOW  SIZE 

005767 

OOOOOOG 

X2.MWS 

TST 

.PNUMH 

•  LEGAL  MAXIMUM  WINDOW  SIZE  VALUE 

244  000410 

001013 

BNE 

ion 

■  BR  IF  NO 

245  000412 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

■  GET  MAXIMUM  WINDOW  SIZE 

246  000416 

022700 

000007 

CMP 

#X2WNMX,R0 

•  IS  IT  VALID? 

247  000422 

103406 

BLO 

101$ 

■  BR  IF  NO 

248  000424 

022700 

000001 

CMP 

#X2WNMN,R0 

>  >  • 

249  000430 

101003 

BHI 

101$ 

;  BR  IF  NO 

250  000432 

010067 

OOOOOOG 

MOV 

R0,$X2MWS 

;  STORE  MAXIMUM  WINDOW  SIZE 

251  000436 

RETURN 

,.  L  I. 


VFGX3P  - 

CONFIG 

FILE  SCAN  ACTIO  M 

CONSTANT 

DEFINITIONS 

62 

63 

64 

65 

66 

67 

OOOOAO 

68 

002000 

69 

000177 

70 

000007 

.SBTTL   CONSTANT  DEFINITIONS 
CONSTANT  DEFINITIONS 


BLKSMN  =  32. 
BLKSMX  =  1024. 
WNDSMX  =  127. 
X3TMCT  =  7 


MINIMUM  BLOCK  SIZE  VALUE 

MAXIMUM  BLOCK  SIZE  VALUE 

MAXIMUM  WINDOW  SIZE  VALUE 

NUMBER  OF  TIMER  PARAMETERS  IN  X3P$DF 


L  3 


K  4. 
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1 
2 
3 

5 
6 
7 
8 
9 

10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


.TITLE   VFIND  -  VNP  FIND  ENTITY  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  FIND  ENTITY  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-IIM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V5.0 
DECnet-Micro/RSX  VI  .0 


OF   ITS 


L  4 


1 


VFIND     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:33 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


tCEACC 

SDECPT 

SFNADD 

tFNALI 

tFNNAM 

SFNOBJ 

SGETAD 

SGETRV 

SHUBUF 

SOBJHD 

SQUAL 

SRADDR 


=  *..»»*  GX 
=  ..««»»  GX 
000330  RG 
000116  RG 
00OA7O  RG 
000002  RG 
GX 
GX 
GX 
GX 
GX 
GX 


~      ****** 
=   ****** 


=   ****** 


::  ****** 
-     ****** 


REFERENCES 

7-98 

8-128 
#9-174 
#8-124 
#10-210 
#7-89 

7-99 

8-128 

8-127 

7-90 

7-100 
•  7-99 


8-UO 
9-176 


8-Ul 
9-176 
8-131 

8-U2 
*8-128 


9-188 
10-2U 


9-189 

10-2U 

9-175 

8-U4 

•  8-Ul 
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CREF       04.00 
10-226 


10-227 
9-179 

*9-176 


10-213 
•9-189 


10-217 
•10-214 


•10-227 


n 


L    S 
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VFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:33  Page  13 
CUGSDF  ACTION  ROUTINES 


2^2 
243 
244 
245 

246  000226 

247  000232 

248  000234 

249  000240 

250  000242 

251  000250 

252  000250 

253  000256 
254 

255 
256 

257  000260 

258  000264 

259  000266 

260  000272 

261  000274 
262 

263 
264 

265  000276 

266  000302 

267  000304 

268  000310 
269 

270  000312 

271 

272 

273 

274  000314 

275  000322 

276  000330 
211 


CUG  FLAGS  BYTE 


005767 
001030 
105767 
001025 
116767 

032767 
001407 


103416 

103416 
000406 


103407 
103407 


OOOOOOG 
000001 G 

OOOOOOG  000032" 
OOOOOOG  OOOOOOG 


CUFG: 


CUEND: 


.ENABL 

TST 

BNE 

TST8 

BNE 

MOVB 

BIT 
BEQ 


LS8 

.PNUMH 

101$ 

.PNUHBtl 

101$ 

.PNUMB,CIIGFLG 

#PF.XDF,$PFLAG 
10$ 


Process  extended  CUG  format 


CALL 

BCS 

CALL 

BCS 

BR 


CKCUGO 

102$ 

ALCUGO 

103$ 

70$ 


Process  old  CUG  format 
0$: 


CALL 
BCS 
CALL 
BCS 


70$:    RETURN 
ERRORS 


101$ 
102$ 
105$ 


EMSG$R 
EMSG$R 
EMSG$R 
.DSABL 


CKCUG1 
102$ 
ALCUG1 
103$ 


P4 
N2 
Ml 
LSe 


LEGAL  VALUE? 

BR  IF  NO 

LEGAL  VALUE? 

BR  IF  NO 

SAVE  CUG  FLAGS  BYTE 

Check  for  extended  data  format 


Check  for  valid  CUG  name 

BR  if  error 

Allocate  and  fill  CUG  block 

BR  if  no  store 

exit 


Check  for  valid  CUG  name 
BR  if  error 

Allocate  and  fill  CUG  block 
BR  if  no  store 


ILLEGAL  FLAGS  BYTE  VALUE 

ILLEGAL  CUG  NAME 

CUG  NAME  BLOCK  ALLOCATION  FAILURE 


;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD00n 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
.•[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
.-CTDOOI] 
;[TD001] 
.-CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
;**-37 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
^2 
43 
44 
45 
46 

LI 

48 

a; 

50 
51 
52 
53 
54 


.TITLE  VFPDSA  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 
.ENA8L  LC 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  02-MAR-82 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-HM-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Ptus  V3.0 
DECnet-Micro/RSX  VI. 0 


;CTD001] 

;**-1 


VFPDSA     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:34 
SYMBOL  CROSS  REFERENCE 
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CREF       OA.OO 


SYMBOL 

VALUE 

REFERENCES 

CERR 

=  ****** 

GX 

7-77 

7-78 

7-79 

7-80 

7-81 

7-82 

CFGBF 

r  ****** 

GX 

8-110 

CFGSZ 

=  ****** 

GX 

8-109 

CFLIN 

:r  ****** 

GX 

7-77 

7-78 

7-79 

7-80 

7-81 

7-82 

CHKSB 

000254 

R 

12-232 

12-246 

#12-260 

COUNT 

r  ****** 

GX 

*11-201 

11-226 

CUNMMX 

=  000006 

#6-70 

13-277 

DACUNM 

000306 

R 

#13-275 

DARDEN 

::  ****** 

GX 

11-209 

DARDND 

000U2 

R 

#11-221 

DARDNO 

000116 

R 

#11-209 

DARDST 

000060 

R 

#11-196 

DARMLN 

r  ****** 

GX 

11-196 

11-222 

DASSHI 

000224 

R 

#12-246 

DASSLO 

000176 

R 

#12-232 

DCMSK 

000334 

R 

#14-291 

OCVAL 

000362 

R 

#14-304 

DSACGL 

=   ****** 

GX 

13-276 

DSADF 

000000 

R 

8-102 

D5AKW 

000000 

RG 

8-108 

#9-128 

DSARCT 

-  ****** 

GX 

*11-226 

DSARDP 

3  ****** 

GX 

11-224 

DSARDT 

=  ****** 

GX 

11-197 

11-202 

11-223 

DSASHl 

-  ****** 

GX 

*12-235 

•12-250 

DSASLO 

-  ****** 

GX 

'12-234 

12-248 

DSAST 

000000 

RG 

#9-128 

DSCDF 

000130 

R 

8-105 

DSCMCT 

:::  ****** 

GX 

14-292 

DSCMSK 

r   ****** 

GX 

14-291 

DSCMX 

=  000040 

#6-69 

14-316 

DSCVAL 

-  ****** 

GX 

14-304 

DSCVCT 

-    ****** 

GX 

14-305 

FMT10 

=  ****** 

GX 

7-77 

7-78 

7-79 

7-80 

7-81 

7-82 

FM.10 

=  000000 

D7-77 

#7-78 

#7-79 

#7-80 

#7-81 

#7-82 

I$$AS 

~    ****** 

14-334 

NEXT 

-   ****** 

GX 

*11-202 

11-209 

PCKBCD 

r  ****** 

GX 

11-225 

RTSPC 

-  •**♦*♦ 

GX 

7-77 

7-78 

7-79 

7-80 

7-81 

7-82 

R$$E1S 

-  «♦**♦* 

14-334 

R$$11D 

::  ****** 

14-334 

STORID 

r  ****** 

GX 

13-278 

STRHEX 

000410 

R 

14-293 

14-306 

#14-314 

STRNXT 

:;   ****** 

GX 

11-203 

11-211 

SUBAMX 

r  ****** 

GX 

12-264 

SYNERR 

:r  ****** 

GX 

*8-111 

.8-114 

S$$BAS 

r  ****** 

7-77 
7-81 

7-77 
7-82 

7-78 
7-82 

7-78 

7-79 

7-79 

SAlPHA 

=  000022 

#9-128 

$ANY 

=  000020 

#9-128 

SBLANK 

-  000006 

#9-128 

$DBG$ 

-   ****** 

8-106 

SDIGIT 

=  000024 

#9-128 

7-80 


7-81 


L    a 


VFPDSN  -  INITIAL  CONFIG 

FILE  SC  MACRO  VO 

Syntax  action  r 

out ines 

21.- 

359 

240 

2A1 

242 

243 

244 

245 

246 

247 

248 

249 

250  000116 

251  000116 

116701 

000040' 

252  000122 

020127 

000020 

253  000126 

101011 

254  000130 

110167 

OOOOOOG 

255  000134 

012700 

000041' 

256  000140 

012702 

OOOOOOG 

257  000144 

258  000150 

259 

260  000152 

.? 


4     Page  12 


**♦  DSNUSR  -  Check  userna/ne 

INPUTS  .   ,  .    .... 

STRBUF  -  Contains  parsed  string  (minus  delimiters  etc) 
STRLEN  -  Number  of  characters  in  string 

OUTPUTS 

Username  checked  and  stored 

Error  condition  if  invalid  username 


DSNUSR: 


101$: 


MOVB 

STRLEN, R1 

CMP 

R1,#MXACUS 

BHI 

101$ 

MOVB 

RI.RNUL 

MOV 

#STfiSUF,RO 

MOV 

*RNUSER,R2 

CALL 

MOVE 

RETURN 

EMSGSR 

MC 

Get  length  of  string 

Check  if  username  too  long 

Branch  if  error 

Move  username  length  to  data  area 

Hove  username  to  data  area 


Illegal  destination  access  data 


K  10 

VFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:35 
LOCAL  SYMBOL  DEFINITIONS 


Page  6 


78 

79 

80 

81 

82 

83 

8A 

0000^0 

85 

000006 

86 

000006 

87 

000006 

88 

000C20 

89 

000C06 

90 

.SBTTL  LOCAL  SYMBOL  DEFINITIONS 
LOCAL  SYMBOL  DEFINITIONS 


SPACE  =  40 
DSNAMX  =  6 
OSTKMX  =  6 
CUNMMX  =  6 
MAXID  =  16. 
MXNOID  =  6 


ASCII  SPACE 

Max  length  of  destination  name  [old  format] 

Max  length  of  object  task  name  Cold  format] 

Max  length  of  CUG  name  Cold  format] 

Max  length  of  net.  mgmt.  'id-string' 

Max  length  of  node  name 


;ETD001] 
;CTD001] 
;[TD001] 
;[TD001] 
.-CTDOOI] 
;CTD001] 


K   11 

VFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85  02:35  Page  17-1 
ALDST1  -  AUocate/fiU  destination  descriptor  [old  format] 


479  00U32 

480  0OU56 

481  001440 

482  001442 

483  001446 

484  001452 

485  001466 

486  001470 

487  001474 

488  001476 

489  001502 


116703 
006203 
005503 
110367 


010501 
000241 


OOOOOOG 


000050G 


100$: 


Move 

ASR 
ADC 

Move 

RESRG 

PUTAD 

MOV 

CALL 

CLC 

RESMAP 

RETURN 


DSCMCT,R3 

R3 

R3 

R3,$BFRt()SDATL 

<R1,R0> 

RO.Rl 

R5,R1 

DSTINS 


Get  number  of  digits  in  call  mask 
Convert  to  number  of  bytes 

Move  number  of  bytes  to  block 
Restore  address  and  length  of  block 
Write  block  back  to  image 
Get  unmapped  address  of  block 
Insert  block  into  list 
Indicate  block  allocated 
Restore  previous  mapping 


;CrD001] 
;CTD001] 
;CT0001] 
;CTD001] 
;CTD001] 
;CTD001] 
.-CTDOOl] 
;[TD001] 
; CTDOOl] 
;[TD001] 
; CTDOOl] 


••F1LE>«1D«'VFPDTE 


K  12 


VV      vv   F 

FFFFFFFFF 

PPPPPPPP 

DDDDDDDD 

TTTTT 

TTTTT 

EEEEEEEEEE 

VV      VV   F 

FFFFF^'FFF 

PPPPPPPP 

DDDDDDDD 

TTTTT 

TTTTT 

EEEEEEEEEF 

VV      VV   F 

PP      PP 

DD 

DD 

EE 

VV      VV   F 

PP      PP 

DD 

DD 

EE 

VV      VV   F 

PP      PP 

DD 

DD 

EE 

VV      VV   F 

PP      PP 

DD 

DD 

EE 

VV      VV   F 

FFFFFFF 

PPPPPPPP 

DD 

DD 

EEEEEEEE 

VV      VV   F 

FFfFFFF 

PPPPPPPP 

DD 

DD 

EEEEEEEE 

VV      VV   F 

PP 

DD 

DD 

EE 

VV      VV   F 

PP 

DD 

DD 

EE 

VV   VV     F 

PP 

DD 

DD 

EE 

VV  VV     F 

PP 

DD 

DD 

EE 

VV       F 

PP 

DDDDDDDD 

EEEEEEEEEE 

VV       F 

PP 

DDDDDDDD 

EEEEEEEEEE 

SS55SSSS 

TTTTT 

TTTTT 

SSSSSSSS 

TTTTT 

mil 

SS 

ss 

SS 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

K   13 

VFPDIE  -  INITIAL  CONFIG  FILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85  02:36 
DTESDF  ACTION  ROUTINES 


°age  15 


347 

348 

;  END 

Of  DTE$DF 

MACRO 

349 

350  000412 

DTEEND 

:  CALL 

CHKDTE 

351  000416 

103575 

BCS 

101$ 

352  000420 

020427 

000020 

CMP 

R4,#NUMDTE 
30i 

353  000424 

105402 

BLO 

354  000426 

000167 

000402 

JMP 

104$ 

355  000432 

30$: 

CALL 

CHKDEV 

356  000436 

1035^0 

BCS 

1 02$ 

357 

358  000440 

016701 

OOOOOOG 

MOv 

HSHSZ.Rl 

359  000444 

006301 

ASL 

Rl 

360  000446 

006301 

ASL 

Rl                  ; 

361  000450 

062701 

000122 

ADD 

#L$LEN,R1 

362  000454 

032767 

OOOOOOG  OOOOOOG 

BIT 

#PF.PSV,$PFLAG 

363  000462 

001402 

BEQ 

^51 

364  000464 

365 

366  000470 

062701 

000012 

ADD 

#L$GLf-N-L$LEN,Rl 

55$: 

CALL 

$SAVAL                ; 

367  000474 

CALL 

$ALPOL 

368  000500 

369 

370  000502 

103552 

BCS 

1 03$ 

SAVMAP 

371  000506 

010067 

OOOOOOG 

MOV 

RO.DTEDES            ': 

372  000512 

CEACC$ 

R0,R5  ^ 

373  000522 

012702 

OOOOOOG 

MOV 

#$8FR,R2 

374  000526 

105022 

40$: 

CLRB 

{R2)  + 

375  000530 

005301 

DEC 

Rl 

376  000532 

377 

378  000534 

003375 

BGT 

40$ 

012701 

OOOOOOG 

MOV 

#$BFR,R1 

379  000540 

062701 

000020 

ADD 

#L$DTEA,R1 

380  000544 

012702 

000010 

MOV 

#<DTEALNtl>/2,R2 

381  000550 

012705 

000017' 

MOV 

#DTEPCK,R5 

382  000554 

112521 

45$: 

M0V8 

(R5)+,(R1)t           ; 

383  000556 

005302 

DEC 

R2 

384  000560 

003375 

BGT 

45$ 

385  000562 

386 

387  000570 

116767 

OOOOOOG  00001 7G 

MOVB 

COUNT, L$DTELt$BFR       ; 

012701 

OOOOOOG 

MOV 

#$8FR,R1 

388  000574 

062701 

000114 

ADD 

#L$NETW,R1 

389  000600 

012702 

000006 

MOV 

#DTNMMX,R2 

390  000604 

012705 

000027' 

MOV 

#DTNTNH,R5 

391  000610 

112521 

50$: 

MOVB 

(R5)+,(R1)t 

392  000612 

005302 

DEC 

R2 

393  000614 

394 

395  000616 

003375 

BGT 

50$                 ; 

110467 

000004G 

M0V8 

R4,L$SLNt$BFR 

396  000622 

006304 

ASL 

R4 

397  000624 

016702 

OOOOOOG 

MOV 

$LLCTA,R2 

398  000630 

060204 

ADD 

R2,R4 

399  000632 

111467 

000016G 

MOVB 

(R4),L$LLCH+$BFR 

400  000636 

016767 

OOOOOOG  000040G 

MOV 

CTIM,L$CTIMt$BFR 

401  000644 

005067 

000044G 

CLR 

L$TCLZt$BFR 

402  000650 

112767 

000001  000005G 

MOVB 

*LN$OFF,L$NMST+$BFR 

403  000656 

052767 

0000006  OOOOOOG 

BIT 

*DE.ON,DTEFLG 

CHECK  FOR  VALID  DTE  ADDRESS 
ERROR  -  DUPLICATE  DTE  ADDRESS 
MAXIMUM  DTES  ALREADY  DEFINED? 
No  -  another  one  is  ok 
Yes-  this  one  is  too  many 
CHECK  IF  LINE  EXISTS 
BR  IF  LINE  NOT  IN  SYSTEM 

GET  NUMBER  OF  ENTRIES  IN  HASH 
TIMES  4  TO  GET 
SIZE  IN  BYTES 
PLUS  DTE  SIZE  GETS  TOTAL  SIZE 
Check  if  gateway  extension  present 
Branch  if  not  needed 
Add  on  size  of  extension 

Save  all  registers 

ALLOCATE  BLOCK  FROM  EXTENDED  POOL 

BR  IF  UNSUCCESSFUL  ALLOCATION 

SAVE  CURRENT  MAPPING 

SAVE  DTE  DESCRIPTOR  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

POINT  TO  DTE  DESCRIPTOR  BLOCK 

INITIALIZE  BLOCK 

MORE  TO  INITIALIZE? 

BR  IF  YES 

GET  ADDRESS  OF  DTE  DESCRIPTOR  BLOCK 

POINT  TO  DTE  ADDRESS  FIELD 

GET  LENGTH  OF  ADDRESSS  FIELD 

GET  ADDRESS  OF  SPECIFIED  ADDRESS 

STORE  DTE  ADDRESS 

MORE  TO  STORE? 

BR  IF  YES 

STORE  DTE  ADDRESS  LENGTH 

GET  ADDRESS  OF  BLOCK 

POINT  TO  NETUORK  NAME  FIELD 

GET  LENGTH  OF  NAME 

POINT  TO  SPECIFIED  NAME 

STORE  NETWORK  NAME 

MORE  TO  STORE? 

BR  IF  YES 

STORE  SYSTEM  LINE  NUMBER 

GET  SYSTEM  LINE  NUMBER  X  2 

POINT  TO  REVERSE  MAPPING  TABLE 

INDEX  INTO  REVERSE  MAPPING  TABLE 

STORE  CHANNEL  NUMBER 

STORE  COUNTER  TIMER 

STORE  TIME  COUNTERS  LAST  ZEROED 

STORE  ASSUMED  OFF  STATE 

SET  DTE  STATE  ON? 


;[TD001] 
;[TD001] 
:*«-l 


;[TD001] 
.-CTDOOn 
;[TD001] 
;[TD001] 
;[TD001] 
;**-2 


_J 


K  U 

VFPPSN  -   INITIAL    CONFIG   FILE   SC  MACRO  V05.03b  Saturday  ?9-Jun-85  02:3^ 
Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL    SYMBOLS 

ERROF(  MESSAGES 

LOOK   FOR   PSNIDF   MACRO 

TPARS   STATE    TABLES 

PSNSDF    ACTION  ROUTINES 

ALLPRT   -   Allocate  port    table 

ALLPSV   -   Allocate   PSV  mapping   tables 


s- 

Sft 

h- 

Hr- 

«- 

10^ 

V- 

119 

10- 

ISO 

11- 

m) 

K- 

<fi9 

T)- 

40/ 

;[TD001] 
;[TD00n 
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VFPPSN  -  INITIAL  CONFIG  MLE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:37  Page  U 
ALLPRT  -  Allocate  port  table 


369 

370 
371 
372 
373 
37A 
375 
376 
377 
378 
379 
380 
381 
382 

383  000756 

384  000756 

385  000762 

386  000764 

387  000770 

388  000772 

389  000774 

390  001000 

391  001010 

392  001014 

393  001020 

394  001022 

395  001024 

396  001026 

397  001032 

398  001034 

399  001050 

400  001054 

401  001060 

402  001064 

403  001070 

404  001106 

405  001110 


.S8TTL  ALLPRT  -  Allocate  port  table 

**♦  ALLPRT  -  Allocate  port  table 

INPUTS 

$BFR  -  used  as  work  area 

PORTNO  -  number  of  entries  in  table 

SPSIPT  -  pointer  to  PSI  home  block 


OUTPUTS 

Carry  clear: 
Carry  set: 


016701 
006301 

103447 
010003 


012702 
016701 
005022 
005301 
003375 
016701 
006301 


016700 
062700 
010367 

000241 


OOOOOOG 


OOOOOOG 
OOOOOOG 


OOOOOOG 


OOOOOOG 

000020 

OOOOOOG 


ALLPRT; 


10$: 


99$: 


Port  table  allocated 
Allocation  failed 


MOV 

ASL 

CALL 

BCS 

MOV 

SAVMAP 

CEACC$ 

MOV 

MOV 

CLR 

DEC 

BGT 

MOV 

ASL 

PUTAD 

RESMAP 

MOV 

ADD 

MOV 

PUTRC 

CLC 

RETURN 


PORTNO, R1 

R1 

SALPOL 

99$ 

R0,R3 

RO 

#$eFR,R2 

PORTNO, R1 

(R2)  + 

R1 

10$ 

PORTNO, R1 

R1 

R0,R1 

$PSIPT,RO 
#H$PTB,RO 
R3,$BFR 
R0,#2 


Find  number  of  ports  required 

Calculate  bytes  required 

Attempt  to  allocate 

Error  if  insufficient  store 

Sa./e  port  table  address 

Save  current  mapping 

Map  to  port  table 

Address  port  table 

Get  number  of  words  in  table 

Clear  port  table 


Calculate  size  of  port  table 

Write  updated  port  table 
Restore  mapping 

Get  address  of  PSI  mapping  table 
Get  address  of  Port  Table  pointer 
Store  address  of  Port  Table 
Write  Port  Table  address  to  image 
Indicate  succesful  allocation 


;[TD001] 
;[TD001J 
;[TD00n 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 

.•croooi] 

;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD00n 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD00n 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
.-CTDOOI] 
;CTD001] 
; CTDOOI 3 


K  16 

VfPPvr   -    INITIAL  CONFIG   rUE   SC  MACRO  V05.03b   Saturday  29-Jun-85  02:38     Page  8 
ERROR  MESSAGES 

U3  .SBTTL     ERROR  MESSAGES 

U5  000056  NTlERS     ,N0,10,CEftR,RTSPC,CFI  IN,<circui  t   ident i  f I'cat ion>                                :**-2 

U6  000116  NiLER$      ,N1  ,10,CERR,RTSPC,CFuIN,<process   owner  naTie> 

U7  000152  NTLERS     ,N2, 10,CERR,RTSPC,Cf LIN,<t lags  byte  i/alue> 

148  000204  NTLER$      ,N3,8,CERR,RTSPC,Cf LIN,<Resourc£   aUocation   faUure> 

'^9  ..  1 

150  .EVEN  !**-' 

151  .LIST   BEX 

152  000000  .PSECI 


VFG$>'.     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:31 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


tERRil 

$ERR5j 

$ERR3K 

tERR3M 

$ERR3Z 

SEXIT 

SFAIL 

SGETAD 

IGETRV 

SGPRM 

SlAMDA 

SLLCTA 

INUMBR 

♦OPVNM 

tPCiVTA 

$PSIPT 

SPUTAD 

tQSVC 

SRAODR 

$RAD50 

SRBLCIC 

$RONLY 

SSAvAL 

SSAVRG 

tSLTA 

tSLTMA 

SSTRNG 

SSJBXP 

$TR!B 

$xl:nk 

$$HTIM 
$$LT1M 
i$$FLG 
$$$<EV 

.pruAP 
. PNUMB 


000230  R 
000254  R 
000272  R 
000344  R 
000400  R 
000000 
177777 

**♦*♦♦ 
****** 
****** 

000000 

****** 

000002 


GX 
GX 


GX 


GX 
GX 
GX 
GX 


»♦♦**♦ 
♦*♦♦♦* 
****** 

000000  RG 
••♦•••  GX 

000016 
«••♦••  G" 


««♦♦** 


=  000004 
=  000010 

-    ****** 


****** 
****** 

177777 
177777 


GX 
GX 
GX 

GX 


GX 
GX 
GX 
GX 


GX 
GX 


.PNUHH  =  ••••••  GX 

.PSTCN  =  ......  GX 

.PSTPT  :  ......  GX 

.TPARS  =  ......  GX 


REFERENCES 

#7-145 
#7-146 
#7-147 
#7-148 
#7-149 
#9-187 
#9-187 

13-475 

13-470 

9-187 
#9-187 

15-550 
#9-187 

14-511 

14-510 

13-434 

13-468 
#8-167 
•13-468 
#9-187 

13-443 

9-187 

13-437 

12-409 

10-282 

15-545 
#9-187 
#9-187 

10-296 

13-479 

13-432 

13-433 
#9-187 
#9-187 

17-648 

10-279 

11-338 

10-277 

10-263 

10-265 

8-173 


13-447 
9-187 


13-429 
15-549 


10-281 
11-350 
10-291 
13-419 
13-422 


L  1 
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12-404 
13-489 
13-491 
12-380 
13-490 


15-573 
15-568 


14-522    15-562 
15-592 
»13-470    •13-475 


•13-483 
9-187 


•15-568 
15-567 


•15-573 
•15-569 


•15-593 


10-283 
11-352 
11-510 


10-293  10-295 

12-364 

11-322  11-336 


10-296 
11-348 


11-312 
12-362 


11-324 


11-326 


n    1 


VFGX2P  -  CONFIG  FILE   SCAN  ACTIO  MACRO  V05.03b  Saturday  29-Jun-85  02 
X2P$DF    ACTION  ROUTINES 


:§1 


Page  11-1 


252  000440 

253 

254 

101$:   EMSG$R 

2F 

•  MAXIMUM  BLOCK 

SIZE 

255 

256  000446 

005767 

OOOOOOG 

X2.MBS:  TST 

.PNUMH 

257  000452 

001005 

8NE 

101$ 

258  000454 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

259  000460 

010067 

OOOOOOG 

MOV 

R0,$X2MBS 

260  000464 

RETURN 

261  000466 

262 

263 

101$:   EMSG$R 

2C 

;  MAXIMUM  RETRANSMIT  COUNT 

264 

265  000474 

005767 

OOOOOOG 

X2.MRT:  TST 

.PNUMH 

266  000500 

001007 

BNE 

101$ 

267  000502 

105767 

000001 G 

TSTB 

.PNUMB+I 

268  000506 

001004 

BNE 

101$ 

269  000510 

016767 

OOOOOOG  OOOOOOG 

MOV 

.PNUMB,$X2MRT 

270  000516 

RETURN 

271  000520 

272 

273 

274 

275  000526 

101$:   EMSGSR 

2J 

•  RETRANSMIT  TIMER 

005767 

OOOOOOG 

X2.RTR:  TST 

.PNUMH 

276  000532 

001011 

BNE 

101$ 

277  000534 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

278  000540 

002406 

BLT 

101$ 

279  000542 

022700 

001130 

CMP 

A'X2RTMX,R0 

2S0  000546 

103403 

BLO 

101$ 

281  000550 

010067 

OOOOOOG 

MOV 

R0,$X2RET 

282  000554 

RETURN 

283  000556 

101$:   EMSG$R 

2K 

284 

285 
286 
287  000564 

;  HOLPBACK  TIMER 

005767 

OOOOOOG 

X2.HLD:  TST 

.PNUMH 

288  000570 

001011 

BNE 

101$ 

289  000572 

016700 

OOOOOOG 

MOV 

.PNUMB,RO 

290  000576 

002406 

BLT 

101$ 

291  000600 

022700 

001130 

CMP 

#X2HLMX,R0 

292  000604 

103403 

BLO 

101$ 

293  000606 

010067 

OOOOOOG 

MOV 

R0,$X2HLD 

^94  000612 

RETURN 

295  000614 

101$:   EMSGSR 

2L 

296 

297 

000001 

.END 

ILLEGAL  MAXIMUM  WINDOW  SIZE  VALUE 


LEGAL  MAXIMUM  BLOCK  SIZE  VALUE? 

BR  IF  NO 

GET  MAXIMUM  BLOCK  SIZE 

STORE  MAXIMUM  BLOCK  SIZE 

ILLEGAL  MAXIMUM  BLOCK  SIZE 


LEGAL  RETRANSMIT  COUNT? 
BR  IF  NO 

BR'iF  NO 

STORE  MAXIMUM  RETRANSMIT  COUNT 

ILLEGAL  MAXIMUM  RETRANSMIT  COUNT 


LEGAL  RETRANSMIT  TIMER? 

BR  IF  NO 

CET  RETRANSMIT  TIMER 

BR  IF  ILLEGAL  VALUE 

LEGAL  RETRANSMIT  TIMER  VALUE? 

BR  IF  ILLEGAL  VALUE 

STORE  RETRANSMIT  TIMER 

ILLEGAL  RETRANSMIT  TIMER 


LEGAL  HOLDBACK  TIMER? 

BR  IF  NO 

GET  HOLDBACK  TIMER  VALUE 

BR  IF  ILLEGAL  VALUE 

LEGAL  HOLDBACK  TIMER  VALUE? 

BR  IF  NO 

STORE  HOLDBACK  TIMER  VALUE 

ILLEGAL  HOLDBACK  TIMER  VALUE 


.-  N  2. 


VFGX3P  -  CONFIG  FILE  SCAN  ACTIO  MACRO  V05.03b  Saturday  ?9-Jun-85 
LOCAL  DATA 


^zr. 


2     Page  7 


7? 

73 

7A  000000 

75 

76 

77 

78  000000 

79  000002 

80  OOOOOA 

81  000006 

82  000010 
83 


.SBTTL  LOCAL  DATA 
.PSECT  DATA.D 


;  LOCAL 

DATA 

NEXT: 

.BLKU   1 

X3DEV: 

.BLKW   1 

X3CTL: 

.BLKW   1 

X3UNT: 

.BLKW   1 

TIMRCT: 

.BLK8   1 

.EVEN 

ADDRESS  OF  NEXT  TIMER 

RAD50  DEVICE  NAME 

CONTROLLER  NUMBER 

UNIT  NUMBER 

COUNT  OF  NUMBER  OF  TIMER  PARAMETERS  SEEN 


M  L 


_1 


VFIMD  -  VNP  FIND  ENTITY  ROUTINE  MACRO  V05.03b  Saturday  29-Jun-85 
MACRO  DEFINTIONS 


l52:?3 


Page  5 


5^ 

55 

56 

57 

58 

59 

60 

61 

62 

65  000000 

6A  000000 

65  000000 

66  000000 

67  000000 


.SBTTL  MACRO  DEFINTIONS 


*  *** 
MACRO  CALLS 

.MCALL 
.MCALL 

OBJDFS 
RNBDFS 
ANBDFS 
VNPDFS 
DHBDFS 


OBJDFS, RNBDFS, GETAD, ANBDFS, VNPDFS, CEACC$,GETRV,DHBDF$ 
SWTCHI,SWTCHO 

DEFINE  OBJECT  BLOCK  OFFSETS 

DEFINE  REMOTE  BLOCK  OFFSETS 

DEFINE  ALIAS  BLOCK  OFFSETS 

DEFINE  REQUEST  BLOCK  OFFSETS 

DEFINE  DECNET  HOME  BLOCK  OFFSETS 


1 


M  /« 


L     5 

VFIND  CREATED  BY     MACRO     ON  29-JUN-85   AT  02:33  PAGE  6 

MACRO   CROSS  REFERENCE  CREf       OA.OO 

MACRO  NAME  REFERENCES 

call''*                    *7-98  7-99  8-128  8-UO            8-Ul             9-176            9-188             9-189             10-214           10-226 

CEACCt                    #5-60  7-98  8-KO  9-188            10-226 

DHBDFS                     #5-60  5-67                                            „                 „   ^,, 

GETAD                      #5-60  7-99  8-U1  9-189            10-227 

GETRV                      #5-60  8-128  9-176  10-2U 

rand''*                     #7-99  7-99  #8-128  8-128           #8-U1              8-K1            #9-176             9-176           #9-189             9-189 

#10-21A  10-2U  #10-227  10-227 

RETURN                       7-107  8-159  9-195  10-239 

ITzm                    ttfA  1:127  8-129  9-175            9-177            10-213           10-215 

SWTCHO  #5-61 

VNPDFS                       #5-60  5-66 


H    S 


L  6 

VFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  ^2:'!)l     Page  U 
CKCUGO  -  Check  for  unique  cug  name  (new  format) 


279 
280 
281 
282 
285 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 

294  000336 

295  000342 

296  000346 

297  000352 

298  000370 

299  000374 

300  000400 

301  000402 

302  000404 

303  000414 

304  000432 

305  000440 

306  000442 

307  000446 

308  000452 

309  000454 

310  000460 

311  000464 

312  OOC'66 
3^3  GOO-. 70 

314  000472 

315  000474 

316  000476 

317  000502 


.SBTTL  CKCUGO  -  Check  for  unique  cug  name  (new  format) 


***  CKCUGO  -  Check  for  unique  cug  name  (new  format) 

INPUTS: 

CUGNAM  -  Specified  cug  name 

CUGNML  -  Length  of  CUS  name  specified 

OUTPUTS: 

Carry  clear  -  specified  cug  name  is  unique 
Carry  set  -  specified  cug  name  is  not  unique 


016700 
062700 


016700 
000241 
001435 


026767 
001355 
116702 
120267 
001350 
012701 
012703 
122123 
001342 
005302 
003374 
000261 


OOOOOOG 
000010 


OOOOOOG 


CKCUGO: 


10$: 


00001 2G  OOOOOOG 

000000' 
000015G 

OOOOOT 
00001 6G 


20$: 


25$: 
30$: 


CALL 

MOV 

ADD 

GETRV 

SAVMAP 

MOV 

CLC 

BEQ 

CEACCS 

GETAD 

CMP 

BNE 

MOVB 

CMPB 

BNE 

MOV 

MOV 

CMPB 

BNE 

DEC 

BGT 

SEC 

RESMAP 

RETURN 


$SAVAL 
$PSIPT,RO 
#H$CUG,RO 
R0,*2 

$BFR,RO 

25$ 

RO 

RO,#G$LEN+MAXID 

G$DTE+$BFR,DTEDES 

10$ 

CUGNML, R2 

R2,$8FRtG$NML 

lOi 

#CUGNAM,R1 

#$6FR+G$GNAM,R3 

(R1)+,(R3)+ 

10$ 

is 


Save  at-L  registers 

Get  address  of  PSI  home  bLock 

Point  to  CUG  Listhead 

Get  Listhead 

Save  current  mapping 

Get  address  of  next  block  in  list 

Assume  success 

Branch  if  end  of  list  (name  unique) 

Convert  to  mapped  address 

Read  in  enough  to  contain  CUG  name 

Same  DTE  as  new  block? 

No,  so  don't  check  name 

Get  length  of  CUG  name 

Compare  with  length  in  CUG  block 

NE,  not  same  CUG 

Point  to  CUG  name 

Point  to  CUG  name  block 

Is  the  name  unique? 

Branch  if  yes 

More  to  check? 

Branch  if  yes 

Else  error  -  set  C-bit 

Restore  previous  mapping 


;CTD001] 

;**-1 


;[TD001] 
;[TD001] 
;CTD00i: 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001J 
;[TD001] 
;[TD00n 
.-CTDOOi: 
;CTD001] 
;[TD001] 
;CTD001] 
;[TD001] 
.-CTDOOI] 
;CTD001] 
;[TD001] 
; CTDOOI] 
;[TD001] 
;[TD001] 
; CTDOOI ] 
.■CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
.■CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
; CTDOOI] 


n  6 
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VFPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  ?9-Jun-85  02:34  Page  5 
MACPO  DEFINITIONS 

56  .SBTTL  MACRO  DEFINITIONS 

57 

58  ; 

59  ;  LIBRARY  MACROS 

61  '       .MCALL  EMSG$R,NTLER$,SAVRG,RESRG,ASL$, STATES, TRANS, ISTATS  ^r,^A^•,■, 

62  .MCALL  VNPD8G  ;CTD001J 


L  8 

VFPDSA 

CREATED  BY 

MACRO  ON  29 

-JUN-85  AT 

02:34 

PAGE  2 

SYMBOL 

CROSS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

SDNUMB 

=  OOOOU 

#9-128 

$EOS 

=  000012 

#9-128 

SERRMO 

000106 

R 

#7-80 

12-255 

$ERRM2 

000156 

R 

#7-81 

14-312 

$ERRM3 

000166 

R 

#7-82 

14-299 

$ERRN2 

000000 

R 

#7-77 

13-284 

$ERRN8 

000022 

R 

#7-78 

11-216 

$ERRN9 

000056 

R 

#7-79 

12-240 

SERRIT 

=  ****** 

GX 

8-121 

SEXIT 

=  000000 

#9-128 

$FAIL 

=  \11111 

#9-128 

SGPRM 

~   ****** 

9-128 

SLAMDA 

=  000000 

#9-128 

SNUMBR 

=  000002 

#9-128 

SQDSA 

000000 

RG 

#8-102 

SQDSC 

000006 

RG 

#8-104 

$RAD50 

=  000016 

#9-128 

SRONLY 

-  ** t*** 

9-128 

9-128 

9-128 

SSAVRG 

::   ♦*♦*»♦ 

GX 

11-221 

SSTRNG 

=  000004 

#9-128 

SSUBXP 

=  000010 

#9-128 

$$$FLG 

=  177777 

#9-128 

$$$KEY 

=  Mim 

#9-128 

.PNUMB 

-      ****** 

GX 

12-262 

.PNUMH 

-      ****** 

GX 

12-260 

.PSTCN 

-   ****** 

GX 

U-315 

.PSTPT 

~      ****** 

GX 

14-319 

.TPARS 

r  ****** 

GX 

8-112 

M     S 


L  9 

VFPDSN  -  INITIAL  CONfIG  FILE  SC  MACRO  V05.05b  Saturday  29-Jun-85  O^;;-; 
Syntax  action  routines 


Page  13 


262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
c81 
282 
283 


000160 

000160  116701  000C:0' 

000164  020127  000010 

000170  101011 

000172  110167  OOOOOOG 

000176  012700  000041' 

000202  012702  OOOOOOG 

000206 

000212 

000214 


♦••  DSNPA 
INPUTS 


Check  password 


STRBUF  -  Contains  parsed  string  (minus  delimiters  etc) 
STRLEN  -  Number  of  characters  in  string 

OUTPUTS 

Password  checked  and  stored 

Error  condition  if  invalid  password 


DSNPAS: 


M0V8 

STRLEN, R1 

CMP 

R1,*MXACPA 

BHI 

101$ 

MOVB 

RI.RNPL 

MOV 

#STRBUF,RO 

MOV 

#RNPASS,R2 

CALL 

MOVE 

RETURN 

101$:   EMSG$R  MC 


Get  length  of  string 

Check  if  password  too  long 

Branch  if  error 

Move  password  length  to  data  area 

Moue  password  to  data  area 


Illegal  destination  access  data 


M  Q 


VFPDSl  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
ERROR  MESSAGES 


^2!? 


5  Page  7 


92 

93  000000 

94 

95  000000 

96  000032 

97  000062 

98  000110 

99  000132 

100  000204 

101  000236 
102 

103 
104 
105  000000 


.sBiri 

.PSECT 

NTLERS 
NTLERS 
NTLER$ 
NTLER$ 
NTLER$ 
NTLERS 
NTLERS 

.LJST 
.EVEN 
.PSECT 


ERROR 
DATA, 


MESSAGES 


;[TD001] 
;[TD001] 
.•♦♦-18 


,N4,1 
,N5,1 
,N6,1 
,N7,1 
,6M,1 
,M7,1 
,M9,8 

BEX 


0,  C  F  RR,  RTSPC,  GEL  I  N,<de5ti' nation  name> 
0,ttl(R,RTSPC,CFLIN,<priority  number) 
0,CERR,RTSPC,CFLIN,<obiect  number) 
0,CERR,RTSPC,CFLIN,<task  na(ne> 

0,CERR,RTSPC,CFLlN,<caU  data  mask/value  combination) 
0, CERR, R TSPC, cr L I N,<desti nation  name> 
CERR,RTSPC,CFLlN,<Destination  block  allocation  failure) 


;♦♦-! 


VFPDST  -  INITIAL  CONFIG  FILE  SC  MACRO  VOS.n^b  Saturday  29-Jun-85  02:35  Page  18 


CSTINS  -  INSERT  DESTINATION  Df"-rRlPTOR  Bl  U.K  INTO  LIS 


02:35 


^91 
'i.92 
^93 
49A 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 

505  001504 

506  001510 

507  001514 

508  001522 

509  001524 

510  001530 
511 

512  001546 

513  001550 

514  001554 

515  001556 

516  001566 

517  001604 

518  001612 
519 

520  001614 

521  001616 

522  001620 

523  00162^ 


016702 
062702 
132767 
001402 
062702 


010204 
016702 
001417 


126767 
101755 

010146 
010446 


.SBTIL  DSTINS  -  INSERT  DESTINATION  DESCRIPTOR  SLOCK  INTO  LIST 


DSTINS  -  INSERT  DESTINATION  DESCRIPTOR  BLOCK  INTO  LIST 

INPUTS: 

R1  -  UNMAPPED  ADDRESS  OF  BLOCK  TO  LINK 
DSTPRI  -  SPECIFIED  PRIORITY 

OUTPUTS: 

BLOCK  IS  LINKED  INTO  LIST  BV  PRIORITY 
R2,R3,R4  DESTROYED 


OOOOOOG        DSTINS:  MOV 
000012  ADD 

OOOOOOG  OOOOOOG        BITS 

BEQ 
000002  ADD 

10$:    GETRV 


OOOOOOG 


20$: 


OOOOOOG  000002G 


MOV 

MOV 

8EQ 

CEACC$ 

GETAD 

CMPB 

BLOS 


$PSIPT,R2 

#H$DST,R2 

#DS.X29,DSFLG 

10$ 

*H$D29-H$DST,R2 

R2,#2 

R2,R4 

$8FR,R2 

40$ 

R2,R3 

R3,*D$PRIt1 

DSTPRI, D$PR1+$BFR 

20$ 


40$: 


MOV  R1,-(SP) 

MOV  R4,-(SP) 

CALL  $XL]NK 
RETURN 


GET  ADDRESS  OF  PSI  HOME  BLOCK 

POINT  TO  X25  LISTHEAD 

IS  THIS  AN  X29  DESCRIPTOR  BLOCK? 

NO,  X25  IT  IS 

ELSE,  POINT  TO  X29  LiSTHEAD 

READ  IN  LISTHEAD 

SAVE  UNMAPPED  ADDRESS  OF  PREVIOUS 

GET  UNMAPPED  ADDRESS  OF  NEXT 

BR  IF  END  OF  LIST  -  LINK  HERE 

GET  MAPPED  ADDRESS 

Read  in  dest.  block  link  and  priority  ;[TD001] 

LINK  BLOCK  BEFORE  THIS  ONE?  ;**-1 

BR  IF  NO 

GET  UNMAPPED  ADDR  OF  BLOCK  TO  LINK 
GET  ADDRESS  OF  PREVIOUS  BLOCK 
LINK  BLOCK  INTO  LIST 


V.l. 


VFPDTE  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.05b  Saturday  29-Jun-85  02:56 
Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL  SYMBOL  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

LOOK  FOR  DTESDF  MACRO 

TPARS  STATE  TABLES 

LINE-ID  SUBEXPRESSION 

DTESDF  ACTION  ROUTINES 

CHKDTE  -  CHECK  FOR  VALID  DTE  ADDRESS 

CHKDEV  -  CHECK  VALIDITY  OF  LINE-ID 

BIASX  -  SET  APR6  BIAS  CORRECTLY 


s- 

S6 

(S- 

K1 

7- 

101 

8- 

12^ 

9- 

HS 

10- 

16<S 

11- 

?1H 

V- 

A1 

16- 

A-ll 

V- 

4/1 

18- 

y^i 

VFPDTE  - 

INITIAL  CONflG 

FILE  SC 

MACRO  VO 

DTESDF  ACTION  ROUTINES 

A04 

000664 

001403 

A05 

000666 

112767 

000000 

000003G 

A06 

000674 

116767 

000003G 

000002G 

407 

000702 

010300 

408 

000704 

062700 

000122 

409 

000710 

032767 

OOOOOOG 

OOOOOOG 

410 

000716 

001402 

411 

000720 

062700 

000012 

412 

000724 

010067 

OOOOOOG 

413 

000730 

414 

000734 

010C67 

000030G 

415 

000740 

016767 

OOOOOOG 

000032G 

416 

000746 

417 

000764 

016700 

OOOOOOG 

418 

000770 

062700 

000002 

419 

000774 

016705 

OOOOOOG 

420 

0010CO 

421 

001004 

422 

001 O'O 

423 

424 

425 

426 

001012 

427 

001020 

428 

001026 

429 

001034 

I,  13 

02:3 


36     Page  15-1 


BEQ  60$ 

MOVB  i»LN$0N,L$NMSTt$8FR 

60$:  MOVB  L$NMST+$aFR,L$OMST+$BFR 

MOV  R3,R0 

ADD  #L$LEN,RO 

BIT  #PF.PSV,$PFLAG 

BEQ  65$ 

ADD  #L$GLEN-L$LEN,RO 

65$:    MOV  RO.HSHADD 

CALL  BIASX 

MOV  RO,L$CHTB<-$BfR 

MOV  HSHSZ,L$CTEN+$BFR 

PUTAD  R3,fi$RU2(SP) 

MOV  $PSIPT,RO 

ADD  #H$LDTE,RO 

MOV  DTEDES,R5 

CALL  LNKEND 

RESMAP 

RETURN 


ERRORS 


101$ 
102$ 
103$ 
104$ 


EMSG$R  03 

EMSG$R  07 

EMSG$R  OP 

EMSG$R  00 


BR  IF  NO-  OFF  IT  IS 

STORE  ON  STATE 

SET  PREVIOUS  STATE  AS  WELL 

COPY  DTE  ADDRESS 

OFFSET  TO  START  OF  HASH  TABLE 

Check  if  gateway  extension  present 

Branch  if  not  needed 

Add  on  size  of  extension 

Save  hash  table  address 

SET  CORRECT  BIAS  ON  ADDRESS 

STORE  HASH  TABLE  ADDRESS 

SAVE  NUMBER  OF  ENTRIES 

WRITE  UPDATED  DTE  DESCRIPTOR 

GET  ADDRESS  OF  PSI  HOME  BLOCK 

POINT  TO  DTE  DESCRIPTOR  LISTHEAD 

GET  UNMAPPED  ADDR  OF  BLOCK  TO  LINK 

LINK  BLOCK  AT  END  OF  LIST 

RESTORE  PREVIOUS  MAPPING 


ILLEGAL  DTE  ADDRESS 
LINE  NOT  IN  SYSTEM 
ALLOCATION  FAILURE 
TOO  MANY  DTES  DEFINED 


;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 


VfPPSN  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.0?b  Saturday  29-Jun-8'i  02:57  Page  4 
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1 
2 
? 

5 
6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE   VFPPSN  -  INi 
.IDENT  /V05.00/ 
.ENABL  LC 


•lAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 


;CTD00n 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BV 
OIGITAi  EQUIPMENT  CORPORATION,  MAYNAiiD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  TOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  02-MAR-82 

DECNET-11M/S  V3.G 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micro/RSX  vl.O 


ITS 


VfPPSN  -  INITIAL  C0Nf!6  flLE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
AllPSV  -  Allocate  PSV  mapoing  tables 


V:h 
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A07 

408 

i.09 

410 
411 

41? 

413 

414 

415 

416 

417 

4-8 

419 

420  001112 

421  001112 

012702 

OOOOOOG 

422  001116 

012701 

000400 

423  001122 

005022 

424  001124 

005301 

425  001126 

003375 

426  001130 

012701 

002000 

427  001134 

428  001140 

103456 

429  001142 

010004 

430  001144 

431  001150 

432  001160 

433  001176 

010400 

434  001200 

062700 

001000 

435  001204 

010005 

436  001206 

437  001216 

438  001234 

439  001240 

440  001260 

010467 

000044G 

441  001264 

010567 

000046G 

442  001270 

443  001274 

000241 

444  001276 

445 

446 

000001 

.saiTL  ALLPSV  -  Allocate  PSV  mapping  tables 

K 

«•*  ALLPSV  -  Allocate  PSV  mapping  tables 

INPUTS 

$8FR  -  used  as  work  area 

SPSIPT  -  pointer  to  PSI  homeblock 

OUTPUTS 

Carry  clear:  PSV  mapping  tabler  allocated 
Carry  set:   Insufficient  store 
Registers  destroyed 


ALLPSV: 


10$: 


99$: 


MOV 

*$8fR,R2 

MOV 

#PSVTSZ,R1 

CLR 

(R2)t 

DEC 

R1 

BGT 

10$ 

MOV 

#<4«PSVTSZ>,R1 

CALL 

SALPOL 

BCS 

99$ 

MOV 

R0,R4 

SAVMAP 

CEACC$ 

RO 

PUTAD 

R0,*<2»PSVTSZ> 

MOV 

R4.R0 

ADD 

#<2«PSVTSZ>,R0 

MOV 

R0,R5 

CEACC$ 

RO 

PUTAD 

R0,«<2*PSVTSZ> 

RESMAP 

6ETRV 

$PS1PT,#H$GLEN 

MOV 

R4,$eFRtH$GLT 

MOV 

R5,$8FR+HSGPT 

PUTRC 

CLC 

RETURN 

Clear  table-sized  chunk  of  $BfR 


Length  of  both  tables 

Attempt  to  allocate  both  tables 

Error  if  no  store 

Save  unmapped  allocated  address 

Save  current  mapping 

Map  to  allocation 

Write  first  mapping  table 

Restore  unmapped  allocated  address 

Address  of  second  half  of  allocation 

Save  unmapped  address  of  second  table 

Map  to  second  part  of  allocation 

Write  second  mapping  table 

Restore  mapping 

Read  PSI  homeblock 

Store  address  of  mapping  tables 

Write  out  updated  home  block 
Successful  allocation 


.END 


;[TD00n 
;[TDO0n 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD00n 
.-CTDOOI] 
;[TD001J 
;[TD00n 
; CTDOOI] 
;[T0001] 
; CTDOOI] 
;CTD001] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;CTDOOT] 
; CTDOOI] 
.•CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
;CTD001] 
;  CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;CT0001] 
; CTDOOI] 


VfPPVC    -    INITIAL    CONFIG   FRE 
l00<;   fOR   PVCtDF    MACRO 


SC  MACRO  V05.03b  Saturday  29-Jun-85  02:58     Page  9 


^21^8 


ISA 

.S8TTL 

LOOK  FOR  PVCSDF  ^ 

ACRO 

155 

156 

+ 

157 

SQPVC 

-  LOOK 

FOR  PVCSOF  MACRO 

158 

159 

INPurS; 

160 

161 

NONE 

162 

OUTPUTS: 

16? 

C-8IT:SUCCESS/FAILURE 

164 

R3,R4,R5=:DESTROYED 

165 
166 

* 

;[TD00n 

167  OOOOOO 

tQPVC:: 

VNPD8G 

VFPPVC 

VNP  debugging  break  point 
CLEAR  LOCAL  FLAGS  WORD 

;[T0001] 

168  OOOOOO 

005067 

000022' 

CLR 

FLAG 

;CTD001] 

169  OOOOOA 

012705 

OOOOOO' 

MOV 

#PVCDF,R5 

STATE  TABLE  ADDRESS 

;**-1 

170  000010 

005001 

CLR 

R1 

FULL  KEYWORD  MATCH  LENGTH 

171  000012 

012702 

OOOOOO' 

#PCVKW,R2 

KEYWORD  TABLE  ADDRESS 

172  000016 

016703 

OOOOOOG 

M§V 

CFGSZ,R3 

RECORD  LENGTH 

173  000022 

012704 

OOOOOOG 

#CFG8F,R4 

RECORD  BUFFER  ADDRESS 

17A  000026 

005067 

OOOOOOG 

CLR 

SYNERR 

CLE^R  SYNTAX  ERROR  FLAG 

175  000032 

CALL 

.TPARS 

GO  ilO   THE  PARSE 

176  000036 

103003 

BCC 

20$ 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

177  OOOOAO 

005367 

OOOOOOG 

DEC 

SYNERR 

DID  SYNTAX  ERROR  OCCUR? 

178  00004A 

001401 

BEQ 

101$ 

IF  EQ,  YES 

179  000046 

20$: 

RETURN 

180 

181 
182 
183 
184  000050 

•  ERROR 

CONDITION 

01$: 

EMSG$R 

IT 

SYNTAX  ERROR 

V  f  G  5  V ' 

CREATED   B*      MACRO     ON  <;9- 

•JJN-85   AT   0 

MACSO  CROSS 

REFERENCE 

MACRO   NAME 

REFERENCES 

ASut 

#5-60 

16-623 

BIAS 

#5-102 

CALL 

8-1^3 

10-267 

12-391 

13-468 

13-470 

13-474 

CEACCl 

#5-6C 

13-445 

13-474 

CTRDft 

#5-59 

5-62 

DBG'c$ 

#9- •'87 

#0-214 

#9-221 

EMSGSR 

#5-59 

8-''8i 

10-303 

13-A89 

13-490 

13-491 

GEMD 

#5-60 

13-475 

15-573 

GETRv 

#5-60 

13-470 

15-568 

IS'ATt 

#5-59 

9-187 

MAP 

#5-96 

1 5-569 

MTSANt 

#9-187 

NTlERS 

#5-59 
7-U9 

7-140 

7-141 

PHBOf$ 

#5-60 

5-64 

PLBDFI 

#5-59 

5-67 

PijTAD 

#5-60 

13-468 

15-592 

RAND 

#13-468 

13-468 

#13-470 

#15-592 

15-592 

RE.!$ 

#5-77 

10-285 

10-298 

RESMAP 

#5-90 

13-485 

15-593 

RETURN 

8-177 

10-272 

10-286 

12-392 

12-400 

12-414 

SA/MAP 

#5-84 

13-443 

15-567 

Sl'DCS 

#5-60 

5-65 

SOB 

14-517 

15-579 

5'A-E$ 

#5-59 

9-191 

#9-194 

#9-219 

#9-223 

#9-226 

#9-252 

#9-255 

SV^DfS 

#5-60 

5-66 

'RAN$ 

#5-59 

#9-192 

#9-195 

#9-21'' 

#9-220 

#9-221 

#y-2i5 

#9-246 

#9-249 

KPL[.5t 

#5-59 

5-63 

N     1 

2:31            PAG! 

6 

CREf 

04.00 

12-399 

12-413 

13-424 

13-427 

13-437 

13-440 

13-445 

13-475 

13-479 

13-482 

15-568 

15-573 

15-592 

17-650 

#9-246 

#9-250 

11-317 

11-331 

11-343 

11-357 

12-369 

12-380 

12-404 

7-142 

7-143 

7-144 

7-145 

7-146 

7-147 

7-148 

13-470 

#13-475 

13-475 

#15-568 

15-568 

#15-573 

15-573 

10-299 

11-313 

11-327 

11-339 

11-353 

12-365 

12-376 

13-484 

14-525 

15-594 

16-631 

17-654 

#9-197 

#9-200 

#9-203 

#9-206 

#9-209 

#9-212 

#9-216 

#9-229 

#9-232 

#9-235 

#9-238 

#9-241 

#9-244 

#9-248 

#9-198 

#9-201 

#9-204 

#9-207 

#9-210 

#9-213 

#9-214 

#9-224 

#9-227 

#9-230 

#9-233 

#9-236 

#9-239 

#9-242 

#9-250 

#9-253 

N     1 


VfGX2P  -  CONFIG  fiLE  SCAN  ACTIO  MmCRO  V05.03b  Saturday  29-Jun-85  02 
Symbol  table 


'-:l^ 


Page  11-2 


A$$CHK= 

A$tCPS= 

A$$PRI= 

A$ITRP= 

CERR  = 

CFGBF  = 

CFGSZ  = 

CFLIN  = 

CHKDEV 

C$$CKP= 

C$$ORE= 

C$fRSH= 

D$tBUG= 

D$$ISK= 

0$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

FMT8B  = 

FM.8B  = 

F$$L\/L  = 

G$$TPP= 

G$STSS= 

G$$TTK= 

GS$WRD= 

1$$RAR= 

I$$RDN= 

K$$CNT= 

<$$CSR= 

K$$LDC= 

K$$TPS= 

LD$LP  = 

LF.ACT= 

LF.BRO= 

LF.8UT= 

LF.ENA= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MTP= 

LF.PAr= 

LF.RDV= 


000000 

000000 

000000 

000000 

.»*...  GX 

•»«*••  GX 

.**.«»  GX 

••»•>♦  GX 

00051 6R 

000000 

000400 

177564 

1775U 

000000 

000001 

OOOOOC 

000000 

000000 

***•*«  GX 

000000 

000001 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000000 

100000 

000400 

000007 

002000 

001000 

OOO-'OO 

004000 

000020 

000200 

040000 


'77776 
00062? 
OOC 102 
000002 
000007 
Errors  detected: 


.  ABS. 

SSTATE 

$k:aB 

S'.S'R 


000 
001 
002 
003 
004 
0 


LF.REA= 

LF.SER= 

LF.TIM= 

Lf .UNL= 

LF.X2P= 

LN.CLO= 

LN.DUM= 

LN.LOA= 

LN.LOO= 

LN.OAU= 

LN.OFF= 

LN.ON  = 

LN.OOP= 

LN.OPE= 

LN.REF= 

LN.SER= 

LN.STA= 

LN.SUB= 

LN.TRI= 

L$$ASG= 

LS$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CTL 

L.CVA 

L.DDM 

L.DDS 

L.DLC 

L.DLM 

L.DLS 

L.FLG 

L.KRBA 

L.LEN  = 

L.MPF 

L.NMST 

L.NSTA 

L.OWNR 

L.UNT 

M$$CRB= 

M$$CRX= 

P1$$FCS  = 


010000 
000040 
000010 
020000 
000000 
000000 
000005 
000004 
000003 
000003 
000001 
000000 
000004 
000001 
000002 
000002 
000017 
000360 
000006 
000000 
000000 
000001 
000000 
000015 
000012 
177776 
000002 
000004 
000003 
000006 
000010 
000000 
000016 
000022 
000022 
000020 
000014 
000021 
000013 
000124 
000000 
000000 


(RW,I,GBL,AeS,0VR) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,C0N) 


>*  Assembler  statistics 


Work  file  reads:  0 
work  file  writes:  0 
S'ze  cf  work  file:  '5400  Words 


f  61  Pages) 


»1$$MGE  = 

H$$NET= 

M$$OVR= 

N$$ACC= 

N$$8UF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

Nt$MOV= 

N$$NCT= 

N$$PEM= 

P$$P45= 

P$$Wf;D= 

Q$$OPT= 

RTSPC  = 

R$$DER= 

R$$K11= 

R$$SND= 

R$$11M= 

SF.ACT= 

SF.ENA= 

SF.LPB^ 

SF.HFL= 

SF.PAC= 

SF.REA= 

SF.SER= 

SF.SVC= 

SF.UNL= 

SVNERR= 

S$$URG= 

S$$VSZ= 

S.COST 

S.FLG 

S.LEN 

S.NMST 

S . OWNR 

T$$KMG= 

T$$HIN= 

V$$CTR= 

X$$DBT= 

X2CrL 

X2DEV 


000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000000 

000000 

000010 

»*»«*»  GX 

000000 

000001 

000000 

000000 

000200 

000100 

000004 

000040 

000020 

000010 

000001 

000002 

000040 

******  gx 

000000 

007600 

000001 

000000 

000004 

000002 

000003 

000000 

000000 

001000 

000000 

000002R 

OOOOOOR 


X2HLMX= 

X2PDF 

X2PKW 

X2PRM 

X2PST 

X2RTHX= 

X2UNT 

X2WNMN= 

X2WNMX= 

X2.CTL 

X2.DEV 

X2.HLD 

X2.MBS 

X2.MRT 

X2.MWS 

X2.RTR 

X2.UNT 

ZF.COU= 

ZF.DDM= 

ZF.DIA= 

ZF.DLC= 

ZF.DVP= 

ZF.INI= 

ZF.KMX= 

ZF.LLC= 

ZF.LMC= 

ZF.MAN= 

ZF.MFL-- 

ZF.MTM= 

ZF.MUX= 

ZF.PSE= 

ZF.SLI= 

ZF.TIM= 

ZF.X3P= 

ZS.ASN= 

ZS.BSY= 

Z.AVL 

Z.DAT 

Z.DSP 

:.FLG 

Z.LEN  = 

Z.LLN 


001130 

OOOOOOR 

OOOOOORG 

000036R 

OOOOOORG 

001130 

000003R 

000001 

000007 

000244R 

000216R 

000564R 

000446R 

000474R 

000404R 

000526R 

000274R 

001000 

000001 

004000 

000002 

100000 

040000 

000020 

000004 

000100 

020000 

000010 

000400 

000040 

002000 

010000 

000200 

000000 

100000 

140000 

000014 

000016 

000000 

000010 

000016 

000006 


002 
003 
002 


Z.HAP 
Z.NAM 
Z.PCB 
Z.SCH 
002  $ALPHA= 
$ANY  = 
SBLANK^ 
SCATS  = 
$DIGIT= 
$DNUHB= 
$£0S  = 
$ERR1T= 
$ERR2C= 
$ERR2F= 
$ERR2I= 
$ERR2J 
$ERR2l<: 
$ERR2L 
SEXIT  = 
SFAIL  = 
$LAHDA= 
$NUMBR= 
$PDVTA= 
$QX2P 
$RAD50= 
SSLTA  = 
$STRNG= 
$SUBXP= 
$X2HLD= 
$X2MBS= 
$X2MRT= 
$X2MWS= 
$X2RET= 
$$$fLG= 
$$$KEY= 
$$$STA= 
$$$TMP= 
.PNUHB= 
.PNUMH= 
.PSTCN= 
.PSTPT= 
.TPARS= 


GX 


GX 
GX 


000020 

000004 

000012 

000007 

000022 

000020 

000006 

***+** 

000024 

000014 

000012 

****** 

****** 

******  GX 

******  GX 

000004R 

0C.046R 

000106R 

000000 

177777 

000000 

000002 

******  GX 

000144RG 

000016 

******  GX 

000004 

000010 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

177777 

000000 

000000 

OOOOOOR 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 


004 


N  2 


M  3 

VFGX5P  -  CONfiG  FILE  SCAN  ACTIO  MACRO  VO5.03b  Saturday  29-Jun-85  02:32  Page  8 
ERROR  MES'  ijl  ': 

85  .SBTTL  ERROR  MESSAGES 

86 

87 

88  ;  ERROR  MESSAGES 

89 

90  .ENABL  LC 

91  000012  NTLERS  ,28,8B,CERR,RTSPC,CFLIN,<defauLt  block  size> 

92  0OO0A6  NTLERS  ,2D,8,CERR,RTSPC,CFLIN,<Defaul. t  block  size  exceeds  maximum> 

93  000122  NTLERS  ,2E,88,CFRR,RTSPC ,CFLIN,<default  window  size> 

94  000156  NTLERS  ,2G,8,CERR,RTSPC,CFLIN,<Defaul t  window  size  exceeds  maxinium> 

95  000232  NTLERS  ,2H,8B,CERR,RTSPC,CFLl.N,<timer  value> 

96  .DSABL  LC 
97 
98  000000  .PSECT 


N  3 


M  4 

VFIND  -  VNP  fIND  ENTITV  ROUTINE  MACRO  V05.03b  Saturday  29-Jun-85  02:33  Page  6 
LOCAL  DATA 


70 
71 

72 
73 
Ik   000000 


.SBTTL  LOCAL  DATA 
;  LOCAL  DATA 
CURUNM:  .BLKW   1 


;  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 


N  4 


M     5 


•»FILE«»1D*«VFPCUG 


VV      vv   F 

FFFFFFFFF 

PPPPPPPP 

CCCCCCCC 

uu 

uu 

GGGGGGGG 

VV      VV   F 

FFFFFFFFF 

PPPPP  ^PP 

CCCCCCCC 

uu 

uu 

GGGGGGGG 

VV      VV   F 

PP      PP 

CC 

uu 

uu 

GG 

VV      VV   F 

PP      PP 

CC 

uu 

uu 

GG 

VV      VV   F 

PP      PP 

CC 

uu 

uu 

GG 

VV      VV   F 

PP      PP 

CC 

uu 

uu 

GG 

VV      VV   F 

FFFFFFF 

PPPPPPPP 

CC 

uu 

uu 

GG 

VV      VV   F 

FFFFFFF 

PPPPPPPP 

CC 

uu 

uu 

GG 

VV      VV   F 

PP 

CC 

uu 

uu 

GG 

GGGGGG 

VV      VV   F 

PP 

CC 

uu 

uu 

GG 

GGGGGG 

VV  VV     F 

PP 

CC 

uu 

uu 

GG 

GG 

VV   VV     F 

PP 

CC 

uu 

uu 

GG 

GG 

VV       F 

PP 

CCCCCCCC 

uuuuuuuuuu 

GGGGGG 

VV       F 

PP 

CCCCCCCC 

uuuuuuuuuu 

C 

GGGGG 

SSSSSSSS 

TTTTTTTTTT 

SS5SSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

N  6 

VFPCUG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:33  Page  15 
CKCUGl  -  Check  for  unique  cug  name  (old  format) 


319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
n't   00050A 

335  000510 

336  00051A 

337  000520 

338  000536 

339  0005A2 
3A0  0005ii6 

341  000550 

342  000552 

343  000562 

344  000600 

345  000606 

346  000610 

347  000614 

348  000620 

349  J00624 

350  000626 

351  000630 

352  000632 

353  000634 

354  000636 

355  000642 


.SBTTL  CKCUG1  -  Check  for  unique  cug  name  (old  format) 

y 

***   CKCUG1  -  Check  for  unique  cug  name  (old  format) 

INPUTS: 

CUGNAM  -  Specified  cug  name 

CUGNML  -  Length  of  lUG  name  specified 

OUTPUTS: 

Carry  clear  -  specified  cug  name  is  unique 
Carry  set  -  specified  cug  name  is  not  unique 


016700 
062700 


016700 
000241 
001432 


026767 
001355 
012702 
012701 
012703 
122123 
001345 
005302 
003374 
000261 


OOOOOOG 
000010 


OOOOOOG 


CKCUG1: 


10$: 


00001 2G  OOOOOOG 

000006 
000001 ' 
000002G 


20$: 


25$: 

30$: 


CALL 

MOV 

ADD 

GETRV 

SAVMAP 

MOV 

CLC 

BEQ 

CEACC$ 

GETAD 

CMP 

BNE 

MOV 

MOV 

MOV 

CMP8 

BNE 

DEC 

BGT 

SEC 

RESMAP 

RETURN 


SSAVAL 
$PSIPT,R0 
#H$CUG,R0 
R0,//2 

$BFR,RO 

25$ 

RO 

RO,*G$LFN 

G$DTE+$dFR,DTEDES 

10$ 

#CUNMMX,R2 

#CUGNAM,R1 

#$eFR+G$NAM,R3 

(R1)+,(R3)t 

10$ 

R2 

20$ 


Save  all  registers 

Get  address  of  PSI  home  block 

Point  to  CUG  listhead 

Get  listhead 

Save  current  mapping 

Get  adciress  of  next  block  in  list 

Assume  success 

Branch  if  end  of  list  (name  unique) 

Convert  to  mapped  address 

Read  in  CUG  block 

Same  DTE  as  new  block? 

No,  so  don't  check  name 

Get  length  of  cug  name 

Point  to  CUG  name 

Point  to  CUG  name  block 

Is  the  name  unique? 

Branch  if  yes 

More  to  check? 

Branch  if  yes 

Else  error  -  set  C-bit 

Restore  previous  mapping 


.-CTDOOI] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
jCTDOOl] 
;[TD00n 
;CTD001] 
;[TD001] 
.-CTDOOID 
;CTD001] 
.-[TDOOn 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;CTD001] 
;  CTDOOID 
; CTDOOID 
; CTDOOID 
; CTDOOID 
; CTDOOID 
; CTDOOID 
;  CTDOOID 
.-CTDOOID 
.-CTDOOID 
.-CTDOOID 
;  CTDOOID 
.-CTDOOID 
.-CTDOOID 
.-CTDOOID 
.-CTDOOID 
.-CTDOOID 
,- CTDOOID 
.-CTDOOID 
;  CTDOOID 
;  CTDOOID 


N  6 


M  7 

VFPDSA  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:34  Page  6 

LOCAL  SYMBOL  DEFINITIOIJS 

.SBTTL  LOCAL  SYMBOL  DEFINITIONS 
•  LOCAL  SYMBOLS 


65 

66 

67 

68 

69 

OOOOAO 

70 

000006 

DSCMX  =  32. 
CUNMMX  =  6 


MAXIMUM  NUMBER  OF  DIGITS  FOR  CALL  DATA 
Maximum  length  of  old-format  CUG  name 


;[TDOni] 


M    8 

VFPDSA  CREATED  BY     MACRO     ON  29-JUN-85  AT   02:3A  PAGE   ? 

MACRO  CROSS  REFERENCE  CREF        OA.OO 

MACRO  NAME  REFERENCES 

CALL  's-m  11-203  11-211  11-225  12-232  12-246  13-278  14-293  14-306 

DBGTP1  #9-128  #9-137  #9-138  #9-139  #9-143  #9-144  #9-145  #9-149  #9-153  #9-157 

EMSGSR  #5:6t'  *8-T2l'  *1i:216  12-240  12-255  13-284  14-299  14-312 

ISTATS  #5-61  9-128 

TlT,  Itli'  7-77  7-7,  7-79  7-80  7-81  7-82 

ReS^URN  *8-m  11-204  11-212  11-227  12-236  12-251  12-269  13-280  14-295  14-308 

14-341 

STATES  #5-61  9-T32^  #9-135  #9-141  #9-147  #9-15l  #9-155  #9-159  #9-163  10-171 

#10-174  #10-178  #10-181  #10-184         #10-188  ,  „  ,,,  ^„  ,,^ 

TRANS  #5-61  #9-133  #9-136  #9-137  #9-138  #9-139  #9-142  #9-143  #9-144  *?tM'5, 

#9-148  #9-149  #9-152  #9-153  #9-156  #9-157  #9-160  #9-161  #9-164  #10-172 

#10-175  #10-176  #10-179  #10-182         #10-185         #10-186 

VNPDBG  #5-62  8-106 


n  9 

VFPDSN  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03D  Saturday  29-Jun-85  02:34  Page  U 
Syntax  action  routines 


285 
286 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
299 
300 
301 
302 
303 
30-; 
305 
306 
307 


♦**  DSNACT  -  Check  account 

INPUTS  .         ,  ,  .  . 

STRBUF  -  Contains  parsed  string  (minus  delimiters  etc) 
STRLEN  -  Number  of  characters  in  string 

OUTPUTS 

Account  checked  and  stored 

Error  condition  if  invalid  account 


000222 

000222  116701  OOOOAO' 

C00226  020127  000020 

000232  101011 

00023A  110167  OOOOOOG 

0002^0  012700  000041' 

000244  012702  OOOOOOG 

000250 

000254 

000256 


DSNACT: 


MOVB 

STRLEN, nl 

CMP 

R1,*MXACAC 

BHl 

101$ 

MOVB 

RI.RNAL 

MOV 

#STRBUF,R0 

MOV 

#RNACCT,R2 

CALL 

MOVE 

RETURN 

101$:   EMSG$R  MC 


Get  length  of  string 

Check  if  account  too  long 

Branch  if  error 

Move  account  length  to  data  area 

Move  ace  int  to  data  area 


Illegal  destination  access  data 
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107 
108 
109 
110 
111 
112 
113 
IK 
115 
116 
117 
118 
119 

120  000000 

121  000000 

122  000004 

123  000006 

124  000012 

125  000016 

126  000022 

127  000026 

128  000032 

129  000036 

130  OOOOAO 

131  000044 

132  000046 
133 

134 
135 
136 
137  000050 


.SBTTL  LOOK  FOR  DSTSDF  MACRO 


$QDST  -  LOOK  FOR  DSTSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCE.";^/FAILURE 
R3,R4,R5=DE"^'ROVED 


012705 
005001 
005067 
012702 
016703 
012704 
005067 

103003 
005367 
001401 


000000' 

OOOOOOG 
000000' 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


SQDST: 


MOV 

#DSrDF,R5 

CLR 

R1 

CLR 

DSFLG 

MOV 

#DSTKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFG8F,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

20$: 

RETURN 

;  ERROR 

CONDITION 

lOU: 

EMSG$R 

IT 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

INITIALIZE  FLAGS  WORD 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EO,  YES 


SYNTAX  ERROR 


;[TD001] 
;CTD001] 
.•[TDOOl] 
,♦♦-1 


VFPDST  - 
FNDLEN  - 

525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
5A1 
5A2 
5A3 
544 
545 
546 
547 
548 
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001626 

001626  012002 

001630  001403 

001632  111203 

001634  060301 

001636  000773 

001640 


.SBTIL  fNDLEN  -  Find  total  length  of  i/ariable  byte  fields 

**•   fNDLEN  -  find  total  length  of  variable  byte  fields 

fUNCTION  ,   .   . 

Given  table  pointing  to  counts  (one  byte)  of  variable 
fields,  add  all  lengths  to  R1. 

INPUTS 

RO  -  Address  of  table  of  pointers  to  counts 
R1  -  Length  of  fixed  fields 

OUTPUTS 

R1  -  Total  length  of  all  fields,  fixed  and  variable 
RO,  R2,  R3  destroyed 


fNDLEN: 

5$:     MOV  (r(0)  +  ,R2 

BEQ  20$ 

M0V8  (R2),R3 

ADD  R3,R1 

BR  5$ 


;  get  next  table  entry 

;  zero  entry  at  table  end 

;  get  length  byte 

;  add  to  total  count 

;  loop 


J0$: 


RETURN 


;[TD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD0013 
;CTD001] 
;[TD001] 
;[TD001] 
,-[TD001] 
;[TD001] 
;CT000n 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 


"H 
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1 
2 
3 

5 
6 

7 
8 
9 

10 

11 

12 

13 

H 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

An 

4i 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

55 

54 


.TITLE   VFPDTE  -  INlTIAl  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 
.ENABL  LC 

COPYRIGHT  (C)  1979,  1980,  1981,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

NTL  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  02-MAR-82 

DECNET-IIM/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus   V3.0 
DECnet-Mkro/RSX   Vl.O 


;i:TD00n 
•  ♦.-1 
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Page  16 


^31 

432 

A33 

A  34 

A35 

A36 

A37 

A  38 

A  39 

AAO 

AA1 

AA2 

AA3 

AAA 

AA5 

AA6  001 0A2 

AA7  C010A6 

AA8  001052 

AA9  001056 

A50  00107A 

A51   001100 

A52  001102 

A53  001106 

A5A  001110 

A55  001112 

A56  001 11A 

A57  00112A 

A58  0011A2 

A59  0011A6 

AoO  001152 

A61   001156 

A62  001162 

A63  001 16A 

A6A  001166 

A65  001170 

A66  001172 

A67  00117A 

A68  001200 

A69  001 20A 


.SBTTL      CHKDTE   -   CHECK   FOR   VALID   DTE   ADDRESS 

I- 

CHKDTE  -  CHECK  FOR  VALID  DTE  ADDRESS 

INPUTS: 

NONE 

OUTPUTS: 

CARRY  CLEAR  -  DTE  ADDRESS  IS  UNIQUE 

RA  =  COUNT  OF  DTES  DEFINED  ALREADY 
CARRY  SET  -  DTE  ADDRESS  IS  NOT  UNIQUE 


016700 
062700 


005UL.-. 
016^00 
0002A1 
001A31 
0O52OA 


012701 
012702 
062702 
012703 
122223 
001 3A6 
005301 
00337A 
000261 


OOOOOOG 
000002 


OOOOOOG 


000010 
OOOOOOG 
000020 
000017' 


CHKDTE: 


10$: 


010A66     0O0Ui2 


20$: 


30$: 
A0$: 


CALL 

$SAVAL 

MOV 

$PSIPT,R0 

ADD 

#H$LDTE,RO 

GETRV 

R0,*2 

SAVMAP 

CLR 

RA 

MOV 

$BFR,RO 

CLC 

BEQ 

30$ 

]NC 

RA 

CEACC$ 

RO 

GETAD 

RO,*L$LEN 

MOV 

#<DTEALNt1>/2,R1 

MOV 

#$BFR,R2 

ADD 

#L$DTEA,R2 

MOV 

#DTEPCK,R3 

CMP8 

(R2)+,(R3)t 

BNE 

10$ 

DEC 

Rl 

BGT 

20$ 

SEC 

RESMAP 

MOV 

RA,R$RA(SP) 

RETURN 

SAVE  ALL  REGISTERS 

POINT  TO  PSI  HOME  BLOCK 

POINT  TO  LOCAL  DTE  LISTHEAD 

READ  IN  LISTHEAD 

SAVE  CURRENT  MAPPING 

INITIALISE  DTE  COUNT 

POINT  TO  NEXT  BLOCK  IN  LIST 

ASSUME  SUCCESS 

BR  IF  END  OF  LIST 

ONE  MORE  BLOCK  SEEN 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  DTE  DESCRIPTOR 

GET  DTE  ADDRESS  LENGTH 

GET  ADDRESS  OF  LOCAL  DTE  DESCRIPTOR 

POINT  TO  DTE  ADDRESS 

POINT  TO  SPECIFIED  DTE  ADDRESS 

DO  THE  ADDRESSES  MATCH? 

BR  IF  NO:  UNIQUE  SO  FAR 

MORE  OF  ADDRESS  TO  CHECK? 

BR  IF  YES 

INDICATE  DUPLICATE  ADDRESS 

RESTORE  PREVIOUS  MAPPING 

RETURN  COUNT  IN  TASK  RA 


_J 
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56 

57 

58 

59 

60 

61 

6? 

6? 

6^ 

65 

66 

67 

68  000000 

69 

70 

71 

72 

73 

7A 

75 

76 

77 

78 
79 
80 


.5BTIL  MACRO  DEFINITIONS 

LIBRARV  MACROS 

.MCALL   PH8Df$,EMSG$R,SAVRG,RESRG,NTLER$,PUTRC,GETRV 
.MCALL   I  STATS,  STATES, TRANS, PUTAD.GE TAD, CEACCS 
.MCALL   VNPDQG 


.-nooon 


LIBRARY  SYMBOLS 
PHSDFS 

LOCAL  MACRO  DEFINITIONS 

.MACRO  5AVMAP 

MOV     SR8LC<,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     fSP)',SftBLCK 

.ENDM 


DEFINE  PSI  HOME  BLOCK  OFFSETS 
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Symbol  table 


a.lprt 

ALLPSV 

At$CHI(,: 

AttCPS- 

At$PRl= 

A$$TRP: 

CERR  = 

CFGBF  : 

CFG57  = 

CFLlN  = 

CHKSUB 

CtSCl^P-- 

CtlORE= 

Ct$RSH= 

DttBUG= 

D$$ISK= 

D$$Lli= 

D$$YNC= 

D$$VNM= 

END 

E$$XPR= 

FMT10  = 

FMT8   = 

FM.10  = 

FM.8   = 

=$$LVL= 

F  .RSI2  = 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$tWRD= 

HF$DLM= 

HF$GWV= 

HF$HOS= 

HFtXDF= 

MtCUG 

.  ABS. 

DATA 
$STATE 
tKTAB 
$<STR 


00075bR 

00in2R 

000000 

000000 

000000 

000000 

»•«««•  GX 

•♦••••  GX 

«»«•••  GX 

••••«•  GX 

000A06R 

ooonoo 

000'  00 
177!!6A 
1775'4 
000000 
OOOOl'l 
000000 
000000 
OOOVJAR 

oooroo 


000000 
000000 
000001 

***•*■♦ 

000000 
000000 
000000 
000000 
000002 
000010 
OOOOOA 
000020 
000010 

000104 
001300 
000452 
00011 A 
000002 
000007 


GX 
GX 


GX 


HtDST 
H$D29 
H$FLG 
H$GLEN 
HtGLT 
HSGNAM 
HtGNML= 
H$GPT 
HtHITS 
HSHLEN 
H$L8DA 
H$LBDN 
HlLDTE 
H$LEN 
H$LOTS 
HSNETW 
H$NHL  = 
HINPT 
H$PT8 
003  H$PVC 
HtRDTE 
HSRNW 
H$SVC 
H$TRB 
HSXAVL 
H$X8IA 
H$X29C 
ISSRAR- 
I$tRDN= 
K$$CNr= 
K$$CSR= 
K$$LDC= 
<$$TPS= 
LD$LP  = 
L$$ASG= 
L$$DRV= 


000012 
OOOOK 
000000 
00010A 
0000A4 
000050 
000020 
0000A6 
00005A 
OOOOAA 
000070 
000072 
000002 
0000A2 
000032 
00002A 
000006 
000022 
000020 
000006 
OOOOOA 
00OOA2 
000036 
000016 
000100 
000074 
OOOOAO 
000000 
000000 
1775At 
1775A6 
000000 
000074 
000000 
000000 
000000 


Frrcs  detected: 


000 
001 
002 
003 
004 
005 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REl,CON) 
(RW,D,LCL,REL,CON) 
i'RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


L$tP11= 

L$$11R= 

MAXID  = 

MOVE  = 

M$$CRB= 

M$$CRX= 

M$$FCS= 

Mt$MGE= 

Mt$NET: 

M$$OVR= 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$i'«IOV= 

N$tNCT= 

N$$PEM= 

Pf .PSV= 

PF.XDF= 

PF.XGA= 

PNAMMX= 

PORT 

PORTMX= 

PORTNO= 

PSHI 

PSLO 

PSNDF 

PSNEND 

PSNFG 

PSNFLG 

PSNHI 

PSNKW 

PSNLO 

PSNNAM 

PSNNM 


000001 

000000 

000020 

••••»»  GX 

000124 

000000 

000000 

000000 

000000 

000000 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

•»»«*•  GX 

•«•»*»  GX 

«•*«»•  GX 

000006 

000146R 

000400 

*•••••  GX 

000076R 

000054R 

OOOOOOR 

000466R 

0001 76R 

OOOOOOR 

000004R 

OOOOOORG 

000002R 

000007R 

000052R 


PSNNML 
PSNSHI 
PSNSLO 
PSNST 
PSVTSZ= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
RTSPC  = 
R$$DER= 
R$$K11= 
R$$SND= 
R$$rM= 
SPACE  = 
SPFILL= 
SLI8AMX= 
SYNERR= 
SYSFDB= 
S$$WRG= 
S$$VSZ= 
T$$K;MG= 
T$$MIN= 
V$$CTR= 
X$$D8T= 
$ALL16= 
003  $ALPHA= 
003  $ALPOL= 

003  SANV  = 
tBFR  = 
$BLANK= 

002  $CEACC= 
002  $DIG1T= 

004  $[)NUMB= 
002  $E0S  = 
002  SERRDI 


000006R 

000440R 

000352R 

OOOOOORG 

000400 

000000 

000000 

000010 

•*••••  GX 

000000 

000001 

000000 

000000 

000040 

••»«**  GX 

******  GX 

******  GX 

******  GX 

000000 

007600 

000000 

000000 

001000 

000000 

******  GX 

000022 

******  GX 

000020 

******  GX 

000006 

******  GX 

000024 

000014 

000012 

000366R 


002  $ERRD2 

000424R 

002 

SERRPA 

000310R 

002 

SERRPI 

000030R 

002 

005  $ERRP2 

000066R 

002 

$ERRP3 

000114R 

002 

$ERRP4 

000144R 

002 

$ERRP5 

000170R 

002 

$ERRP6 

000242R 

002 

$ERR1T= 

******  GX 

$EX1T  = 

000000 

$FAIL  = 

\mn 

SGETRV^ 

******  GX 

$LAMDA= 

000000 

$NUMBR= 

000002 

tPFLAG= 

******  GX 

tPSIPT= 

******  GX 

$PUTAD= 

******  GX 

$PUTRr= 

******  GX 

SQPSN 

OOOOOORG 

$RADDR= 

******  GX 

$RAD50= 

000016 

$RBLCK;  = 

******  GX 

$SAVAL= 

******  GX 

$STRNG= 

000004 

$SUBXP= 

000010 

$$$FLG= 

\nm 

$$$KEy= 

000000 

$$$R  = 

000010 

$$$STA= 

000000 

$$$TMP= 

OOOOOOR 

005 

.PNUMB= 

«**«**  GX 

.PNUMH= 

»♦»»♦«  GX 

.PSTCN= 

******  GX 

.PSTPT= 

«.*•»*  GX 

002  .TPARS= 

«**•«»  GX 

•*•  Assembler  statistics 

worK  file  reads:  0 

Jork   file  writes:  0 

Size  of  work  file:  13395  Words  (  53  Pages) 

Size  >:,f  core  coo'-:  14440  Words  !  55  Pages) 

Operating  system:  RSX-i  il^/PLUS 

E'aosed   time:    00:00:40.03 

5V:vfpps\.v?,[l32,i34]\/cPPSN/CR/-SP  =  SV:[1,l]R5XMCM.SML/ML,[130,110]NETL18/ML,[130,10]RSXMrM/PA:1,C132,10]VFPP5N 


vrPPV-  -  INITIAL  CONFIG  MLF 
IPARS  STATE  'ABlES 

186 

187 

188 

189 

190  0OOOS6 

191 

192 

195 

]9h 

195  000056 

196  0000S6 
197 

198  000056 

199  000056 
200 

?01  0000S6 

202  000056 

203  000056 
204 

205  000056 

206  000056 
207 

208  000056 

209  000056 
210 

211  000056 

212  000056 
213 

21',  000056 
215  000056 
216 

217  000056 

218  000056 

219  000056 
220 

221  000056 

222  000056 

223  000056 
221, 

225  000056 

226  000056 

227  000056 
228 

229  000056 

230  000056 
251  000056 
252 
233  000056 

254  000056 

255  000056 
256 

257  000056 

258  C00056 

259  000056 
240 

241  000056 
?42  000056 


SC  MACRO  V05.05b  Saturday 

n  16 

29-Jun-85  02:38  Page 

10 

.SSTTL 

TPARS  STATE  TABLES 

;  TPARS  STATE  TABLES 

ISTATS 

PVCST.PCVKW 

;  PVCSDf  STATE 

TABLES 

STATES 
TRANS 

PVCDF 
!(PVCSDFX,,,1,SVNERR 

STATES 
TRANS 

SRAD50,,PVNAM 

; 

CHANNEL  IDENTIFICATION 

STATES 
TRANS 
TRANS 

ICHKDLM.SEXIT 
<'  ,> 

; 

IGNORE  IF  DLM  CIRCUIT 

STATES 
TRANS 

CHNLNO 
SNUMBR,,PVLCN 

; 

LOGICAL  CHANNEL  NUMBER 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,PVCT 

; 

COUNTER  TIMER 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 
TRANS 

"OFf",PSZ      ;  STATE 
"ON",PSZ 

STATES 
TRANS 
TRANS 

PSZ 
.'END.SExn.PVEND 

STATES 
TRANS 
TRANS 

$NUMBR,WNDSZ,PVPSZ 
SLAMDA 

PACKET  SIZE 

STATES 
TRANS 
TRANS 

WNDSZ 
IEuD,SEXIT,PVEND 
<'  ,> 

STATES 
TRANS 
TRANS 

SNUM8R, OWNER, PVWS7 
SLAMDA 

WINDOW  SIZE 

STATES 
TRANS 
TRANS 

OWNER 

:end,sexit,pvend 

STATES 
TRANS 

SRAD50,PFLAGS,PV0WN 

PROCESS  OWNER 

>.fGX^P 


N     1 


vv    vv  f 

FfFFfFFfF 

GGGGGGGG 

XX      XX 

222222 

PPPPPPPP 

vv    vv  f 

FFFFF^FFF 

GGGGGGGG 

XX      XX 

222222 

PPPPPPPP 

vv      vv   F 

GG 

XX      XX 

22     11 

PP     PP 

vv      vv   F 

GG 

XX      XX 

22     22 

PP     PP 

W      vv   F 

GG 

XX  XX 

22 

PP     PP 

vv      vv   F 

GG 

XX  XX 

22 

PP     PP 

VV      VV   F 

FFFFFFF 

GG 

XX 

2? 

PPPPPPPP 

vv      VV   F 

FFFFFFF 

GG 

XX 

C 

PPPPPPPP 

W      VV   F 

GG 

GGGGGG 

XX   XX 

22 

PP 

VV      VV   F 

GG 

GGGGGG 

XX   XX 

22 

PP 

VV  VV     F 

GG 

GG 

XX      XX 

22 

PP 

VV  VV     F 

GG 

GG 

XX      XX 

22 

PP 

VV       F 

GGGGGG 

XX      XX 

2222222222 

PP 

VV       F 

GGGGGG 

XX      XX 

2222222222 

PP 

S5SSSSSS 

TTTTTTTTTr 

SS5SSSSS 

TTTTTTTTTT 

5S 

SS 

SS 

SS 

SSSSSS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL        SSSSSSSS 


TT 
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Size  of  core  pool:    16552  Words     (  63  Pages) 
Operating     system:   RSX-11M/PLUS 
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tQX3P  -  LOOK  FOR  X3P$DF  MACRO 


100 

101 

102 

103 

10A 

105 

106 

107 

108 

109 

110 

111 

112 

115  000000 
000004 
000006 


1U 
115 


116  000012 


117 
11 


000016 
000022 

119  000026 

120  000032 

121  000034 

122  OOOOAO 

123  000042 
124 

125 
126 
127  000044 


012705  OOOOCO' 
005001 

012702  000000' 

016703  OOOOOOG 

012704  OOOOOOG 

005067  OOOOOOG 

103003 

005367  OOOOO.lG 

001401 


.SBTTL  $QX3P  -  LOOK  FOR  X3P$DF  MACnO 

$QX3P  -  LOOK  FOR  X3P$DF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

ALL  REGISTERS  DESTROYED 


QX3P::  MOV 

#X3PDF,R5 

CLR 

R1 

MOV 

#X3PKU,R2 

MOV 

CFGSZ,R3 

MOV 

#CFG8F,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BED 

101$ 

0$:    RETURrj 

ERRORS 

01$:   :iSG$R 

IT 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  IRROR  FLAG 

GO  DO  THE  PARSE 

IF    CC,   FOUND  WHAT  WE   WERE   LOOKING   FOR 

DID   SYNTAX   ERROR  OCCUR? 

IF    EQ,    YES 


SYNTAX  ERROR 


N  4 
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SFNOBJ  -  FIND  OBJECT 


76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 

89  000002 

90  000002 

91  000006 

92  000012 

93  OOGOU 

94  000020 

95  000024 

96  000032 

97  00003A 

98  000036 

99  000050 

100  000066 

101  00007A 

102  000076 

103  000102 

104  000104 

105  000110 

106  000112 

107  000114 


INPUTS: 


.SBTTL  $FN08J  -  FIND  OBJECT 

SfNOBJ  -  FIND  OBJECT 

S: 
R1  =  OBJECT  TYPE 


OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 

RO  =  UNMAPPED  AJDRESS  OF  OBJECT  BLOCK,  IF  FOUND 

R1  =  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 


SFNOBJ: 

012700  OOOOOOG 

011067  OOOOOOG 
010146 

010067  177760 

016701  177754         10^: 

016767  OOOOOOG  177746 
000261 
001426 


032767  000004  OOOOOOG 

001003 

121667  000002G 

001346 

016700  177670 

000241 

005226 


20$: 


50$: 
40$: 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

SEC 

BEQ 

CEACC$ 

GETAD 

BIT 

8NE 

CMP8 

BNE 

MOV 

CLC 

INC 

RETURN 


#$08JHD,RO 

(RO),$BFR 

R1,-(SP) 

RO.CURUNM 

CURUNM.Rl 

$BfR,CURUNM 

40$ 

CURUNM.RO 

R0,#O.LEN 

#OF$KNO,$QUAL 

30$ 

(SP),$BFR+O.TYP 

10$ 

CURjNM.RO 

(SP)  + 


GET  START  OF  OBJECTS  LIST 

GET  FIRST  OBJECT  IN  LIST 

SAVE  OBJECT  NUMBER  ON  STACK 

SAVE  UNMAPPED  ADDR  OF  CURRENT  BLOCK 

SAVE  ADDRESS  OF  PREVIOUS 

GET  NEXT  OBJECT  IN  LIST 

ASSUME  FAILURE 

IF  EO,  NO  MORE 

CONVERT  TO  MAPPED  ADDRESS 

READ  OBJECT  IN  INTERNAL  BUFFER 

IS  THIS  REQUEST  FOR  KNOWN  OBJECTS  ? 

IF  NE,  YES 

IS  THIS  THE  RIGHT  OBJECT  ? 

IF  NE,  NO 

GET  UNMAPPED  ADDRESS  OF  BLOCK 

ELSE,  INDICATE  SUCCESS 

CLEAN  UP  STACK 


_J 
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VFPCJG  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:33 
Table  of  contents 


s- 

S6 

MACRO  DEFINITIONS 

(S- 

80 

LOCAL  SYMBOL  DEFINITIONS 

l- 

89 

LOCAL  DATA 

H- 

109 

ERROR  MESSAGES 

9- 

vn 

LOOK  FOR  CUGSDF  MACRO 

in- 

151 

CUGSDF  STATE  TABLES 

11- 

188 

CUGSDF  ACTION  ROUTINES 

u- 

■?N 

CKCUGO  -  Check  for  unique  cug  name  (new  format) 

Ti- 

319 

CKCUG1  -  Check  for  unique  cug  name  (old  format) 
ALCUGO  -  Allocate  a  CU(j  name  block  (new  format) 

1(S- 

361 

17- 

380 

ALCLG1  -  Allocate  a  CUG  name  block  (old  format; 

18- 

398 

ALC'uG  -  Allocate  and  fill  a  CUG  name  block  (gen 

;[TD001] 
;CTD001D 
;[TD001] 
;CTD001] 
.■CTDOOn 


VFPCUG  - 
CKCUG1  - 

357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
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.IF  EQ 
.ERROR 
.ENDC 


GSNML 

;  Code  requires  GSNML  to  have  non-zero  offset 


000644 

000644  012700  000015 

000650  012701  000016 

000654  116702  000000" 

000660  062702  000016 

000664 

000670 


.SBTTL  ALCUGO  -  Allocate  a  CUG  name  block  (new  format) 

h 

*»*  ALCUGO  -  Allocate  a  CUG  name  block  inew  format) 

INPUTS 

All  parsed  fields  of  CUGSDF  macro 

OUTPUTS 

Carry  clear  -  CLiG  name  block  allocated  and  linked  into  CUG  chain 
Carry  set  -  Insufficient  store  to  allocate  CUG  name  block 


ALCUGO: 


MOV 
MOV 

Move 

ADD 

CALL 

RETURN 


#G$NML,RO 

#G$GNAM,R1 

CUGNML,R2 

#G$LEN,R2 

ALCUG 


Offset  to  contain  CUG  name  length 
Offset  at  which  to  store  CUG  name 
Length  of  CUG  name  . . . 
*   fixed  length  =  size  of  block 
allocate  and  fill  block 


;[TD001] 
;CTD00n 
;CTD001] 
;CTD001] 
.-CTDOOn 
;[TD001] 
.-CTDOOn 
;CTD00n 
;[TD001] 
;[TD00n 
.■CTDOOn 
.■CTDOOl] 
;[TD001] 
; CTDOOl] 
; CTDOOl D 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
.•CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 


_J 


_\ 


N  7 

VFPDSA  -  INITIAL  CONfIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:31 
ERROR  MESSAGES 


Page  7 


72 

73 

74  000000 

75 

76 

77  000000 

78  000022 

79  000056 

80  000106 

81  000136 

82  000166 
83 

84 
85 
86  000000 


.SBTTL  ERROR  MESSAGES 


PATA.D 
BEX 


.PSECT 
.NLIST 

NTLERS 
ivITLERS 
NTLERS 
NTLERS 
NTLERS 
NTLERS 


.EVEN 

.LIST   BEX 
.PSECT 


:*»-1 


:»*-1 


•FIl.E"MD««\/FPDSN 


N    8 


vv 

vv   F 

FFFFFFFFF 

PPPPPPPP 

DDDDDDDD 

SSSSSSSS 

NN      NN 

vv 

vv   F 

FFFFFI^FFF 

pppppppp 

DDDDDDDD 

SSSSSSSS 

NN      NN 

vv 

vv   F 

PP      PP 

OD 

DD 

SS 

NN      NN 

vv 

VV   F 

PP      PP 

DD 

DD 

SS 

NN      NN 

vv 

VV   F 

PP      PP 

DD 

DD 

SS 

NNNN    NN 

vv 

VV   F 

PP      PP 

DD 

DD 

SS 

NNNN    NN 

vv 

VV   F 

FFFFFFF 

pppppppp 

DD 

DD 

SSSSSS 

NN  NN  NN 

\l\l 

VV   F 

FFFFFFF 

PPPPPPPP 

DD 

DD 

SSSSSS 

NN  NN  NN 

vv 

VV   F 

PP 

DD 

DD 

SS 

NN    NNNN 

vv 

VV   F 

PP 

DD 

O 

SS 

NN    NNNN 

\/v 

VV     F 

PP 

DD 

DD 

SS 

NN      NN 

vv 

VV     F 

PP 

DD 

RD 

SS 

NN      NN 

VV       F 

PP 

DDDDDDDD 

SSSSSSSS 

NN      NN 

VV       F 

PP 

DDDDDDDD 

SSSSSSSS 

NN      NN 

LL 

SSSSSSSS 

TTTTT 

TTTTT 

LL 

SSSSSSSS 

TTTTT 

TTTTT 

-L 

SS 

_L 

SS 

LL 

SS 

-L 

SS 

LL 

SSSSSS 

LL 

SSSSSS 

LL 

SS 

LL 

SS 

LL 

SS 

LL 

SS 

LLlLLLLLLL 

SSSSSSSS 

LLLLuLLLLL 

SSSSSSSS 
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309 
510 
311 
312 
313 
3U 
315 
316 
317 
318 

319  00026A  105C67  000040' 

320  000270 


.S8TTL  Parser  Subexpression  Action  Routines 
+ 
»♦•  CLRSTR  -  Clear  string  length  field 

INPUTS 

None 

OUTPUTS 

STRLEN  cleared 


CLRSTR: 


CLR8 
RETURN 


STRLEN 
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139 

KO 

U1 

K2 

H3  000056 

H^ 

K5 

H6 

U7 

U8  000056 

U9  000056 

150 

151  000056 

152  000056 

153  000056 
15^ 

155  000056 

156  000056 
157 

158  000056 

159  000056 
160 

161  000056 

162  000056 
163 

16^  000056 
165  000056 
166 

167  000056 

168  000056 
169 

170  000056 

171  000056 
172 

173  000056 

174  000056 

175  000056 
176 

177  000056 

178  000056 
179 

180  000056 

181  000056 

182  000056 
!83 

184  000056 


.SBTTL  TPARS  STATE  TABLES 
TPARS  STATE  TABLES 

ISTATS  DSTST.DSTKW 


;  DSTSDF  STATE 

TABLES 

STATES 
TRANS 

DSTDF 
XDSTSl)F%,,,1,SyNERR 

STATES 
TRANS 
TRANS 

"X25",DSNM,,DS.X25,DSFLG 
"X29",,,DS.X29,DSFLG 

STATES 
TRANS 

DSNM 

STATES 
TRANS 

$RAP50,,[)SNAM 

STATES 
TRANS 

<',> 

STATES 
TRANS 

$NUMBR,,DSPRI 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUM8R,,DS0BJ 

STATES 
TRANS 
TRANS 

!END,SEXIT 
<'  ,> 

STATES 
TRANS 

SRAD50,,DSTS< 

STATES 
TRANS 
TRANS 

END 
SEOS,SEXIT 
<';>,SEXIT 

TYPE 


DESTINATION  NAME 


PRIORITY 


;  OBJECT  NUMBER 


;  TASK  NAME 


;CTD001] 

;**-1 


STATES 


I] 


VFPDST  - 
BCDLEN  - 

550 
551 
552 
553 
55A 
555 
556 
55'' 
558 
559 
560 
561 
562 
563 
56A 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
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Mnd  total,  length  of  uan'able  BCD  fields 


0016A2 

001642  012002 

001644  001405 

001646  111203 

001650  006203 

001652  005503 

001654  060301 

001656  000771 

001660 


.SBTTL  BCDLEN  -  Find  total  length  of  variable  BCD  fields 
***   BCDLEN  -  Find  total  length  of  variable  BCD  fields 

FUNCTION  ,    .   V   .    ■  ^, 

Given  table  pointing  to  digit  counts  (one  byte)  of  variable 
BCD  fields,  add  byte  lengtFis  to  R1 . 


INPUTS 


RO  -  Address  of  table  of  pointers  to  countt 
Rl  -  Length  of  fixed  fields 


OUTPUTS 


Rl  -  Total  length  of  all  fields,  fixed  and  variable 
RO,  R2,  R3  destroyed 


BCDLEN: 

5S: 

MOV 

(R0)  +  ,F!2 

BEQ 

20$ 

MOVB 

(fi2),R3 

ASR 

R3 

ADC 

R3 

ADD 

R3,fi1 

BR 

5$ 

;  get  next  table  entry 

;  zero  entry  at  table  end 

;  get  length  byte 

;  convert  from  digit  count  to  byte  count 

;  add  to  total  count 

;  loop 


J0$: 


RETURN 


CTDOOn 
[TD001J 
[TD001] 
CTDOOn 
CTD001] 
CTDOOI] 
[TDOOn 
[TDOOn 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 


VFPOTE  - 
MACRO  DE 

56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 


INIHAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 

FIMITIONS 


N  12 

02:36  Page  5 

.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 


.MCALL  EMSG$R,SLTDF$,SAVRG,RESRG,DTEDF$,GETAD,PUTAD,CEACC$ 
.MCALL  PH8DF$,NTLER$, I  STATS, TRANS, STATES, GETRV 
.MCALL  VNPD8G 


;[TD001] 


000000 
000000 
000000 


LIBRARY  SYMBOLS 

DTEDFS 
PHBDFS 
SLTDFS 

LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV     SRBLCK,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV     (SP)t,SRBLCK 

.ENDM 


LOCAL  DTE  DESCRIPTOR  BLOCK  OFFSETS 
DEFINE  PSI  HOME  BLOCK  OFFSETS 
DEFINE  SLT  OFFSETS 
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471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 


.SBTTL  CHKDEV  -  CHECK  VALIDITY  OF  LINE-ID 

'•*-CHKDEV-CHECK  VALIDITY  OF  LINE-ID 

THIS  ROUTINE  MAKES  SURE  THAT  THE  DEVICE  SPECIFIED  IS  KNOWN  TO  THE  SYSTEM, 
AND  THAT  THE  FIELDS  SPECIFIED  APPLY. 

INPUTS: 

LINNAM  =  DDM  NAME  OF   LINE   IN  RAD50 
LINCTL   =   CONTROLLER  NUMBER 
LINUNT   =  UNIT   NUMBER 

OUTPUTS: 

IF  CC,  LINE  IS  FOUND  AND  IS  LEGAL 

R4  =  SYSTEM  LINE  NUMBER 
ELSE,  UNRECOGNIZED  LINE 


SAVE  ALL  REGISTERS 

DDM 

GET  DDM  NAME  TO  LOOK  FOR 

FIND  IT'S  PDV  ADDRFSS 

IF  CC,  LINE  NOT  IN  SYSTEM 


CALCULATE  SYSTEM  LINE  NUMBER 

GET  NUMBER  OF  SYSTEM  LINES 

GET  ADDRESS  OF  SYSTEM  LINE  INDEX  TABLE 

GET  ADDR  OF  SYSTEM  LINE  TABLE  ENTRY 

UPDATE  SYSTEM  LINE  NUMBER 

DOES  THIS  PROCESS  MATCH  ? 

IF  NE,  NO  -  KEEP  LOOKING 

DOES  THIS  CONTROLLER  NUMBER  MATlH  ? 

IF  NE,  NO  -  KEEP  LOOKING 

DOES  THIS  UNIT  NUMBER  MATCH  ? 

IF  EQ,  FOUND  THE  CORRECT  SLN 

LOOK  THROUGH  ALL  SYSTEM  LINES 

If'hERE,  line  NOT  FOUND 

IS  THIS  A  MULTI-DROP  LINE? 

IF  NE,  YES  -  ERROR 

ELSE  VALID  LINE  ID 

SET  CARRY 

SET  USER  R4  TO  SLN 

AND  RETURN  TO  USER  MODE 


491  001206 

CHKDEV 

492  001206 

493 

494 

495 

496  001212 

CALL 

$SAVAL 

; 

•  MAKE 

SURE  THE 

PROCESS  EXISTS,  AND 

IS  A 

016700 

OOOOOOG 

MOV 

LINNAM.RO 

497  001216 

CALL 

FNDPDV 

498  001222 

103433 

BCS 

80$ 

499 

500 
501 
502  001224 

;  MAKE 

SURE  THE 

LINE  EXISTS 

012704 

177777 

MOV 

#-1,R4 

503  001230 

016700 

OOOOOOG 

MOV 

$SLTNM,RO 

504  001234 

016703 

OOOOOOG 

MOV 

$SLTm,R3 

505  001240 

012302 

10$: 

MOV 

(R3)+,R2 

506  001242 

005204 

INC 

R4 

507  001244 

126201 

000002 

CMPB 

L.DDM(R2),R1 

508  001250 

001010 

BNE 

20$ 

509  001252 

126267 

000012 

OOOOOOG 

CMPB 

L.CTL(R2),LINCn 

510  001260 

001004 

BNE 

20$ 

511  001262 

126267 

000013 

OOOOOOG 

CMPB 

L.UNT(R2), LINUNT 

512  001270 

O01.,03 

BEQ 

30$ 

513  001272 

005300 

20$: 

DEC 

RO 

514  001274 

001361 

BNE 

10$ 

515  001276 

000405 

BR 

80$ 

516  001300 

032762 

000020 

000000 

30$: 

SIT 

#LF.MTP,L.FLG(R2) 

517  001306 

001001 

BNE 

80$ 

518  001310 

0004C1 

BR 

100$ 

519  001312 

000261 

80$: 

SEC 

5^„  001314 

010466 

000012 

100$: 

MOV 

R4,ft$R4(SP) 

521  001320 

110$: 

RETURN 

VFPPSN  -   INITIAL   CONFIG   rUE   SC   MACRO  V05.0?b  Saturday  29-Jun-85 
LOCAL    SYMBOLS 
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.S8TTL  LOCAL  SYMBOLS 


8? 

8A 

000006 

85 

000020 

86 

OOOAOO 

87 

OOOAOO 

88 

OOOOAO 

PNAMMX 

=  6 

MAXID  = 

16. 

PORTMX 

=  2')6 

psvrsz 

=  ^Sb 

SPACE 

=  ^0 

Page  6 


Max  characters  in  network  name  Cold  format]  ;[TD001J 

Max  length  ot  net.  mgmt.  'id-string'  ;[TD001J 

MAXIMUM  NUMBER  OF  PORTS  ;[TD00n 

Number  of  entries  in  each  P5V  mapping  table  ;[TD001J 

ASCII  SPACE  .-CTDOOn 


VfPPSN  CREft'EQ  BV     MACRO     ON  29-JUN-85   AT   02:37 

v'IBOl    cross  PPfERENCE 


SYMBOL      VALUE 


REFERENCES 


ALLPRT 

ALLPSV 

CERR 

CFGBF 

CFGSZ 

CFLIN 

CHKSUB 

EMTIO 

FMT8 

FM.10 

FM.8 

F.RSIZ 

HF$DLM 

HFSGWY 

HFSHOS 

HF$XDF 

HtFLG 

HSGLEN 

HSGLT 

HSGNAM 

H$GPT 

HSHITS 

HSHLEN 

H$LEN 

HSLOTS 

HtNETW 

H$NPT 

H$PTB 

MAX  ID 

MOVE 

N$$vc: 

PF.PSV 

PF.XDF 

PF.XGA 

PNAMMX 

PORT 

PORTMX 

PORTNO 

PSNOF 

PSNEND 

PSNFG 

PSNFLG 

PSNHI 

PSNKW 

PSNLO 

PSNNAM 

P5NNM 

PSNNML 

PSNSHI 

PS\'3lO 

PSNST 


000756  R 
001112  R 


000406 
♦»♦♦♦♦ 

«***♦♦ 
000000 
000000 

♦♦•*•* 

000002 
000010 
00000' 
000020 
000000 
000104 
000044 
000050 
000046 
000034 
00004^ 
000042 
000032 
000024 
000022 
000020 
000020 
****** 
**♦**♦ 


GX 
GX 
GX 
GX 
R 
G» 
GX 


GX 


*♦*♦♦♦ 
000006 
000146 
000400 

000000 
000466  R 
000176  R 
000000  R 


GX 

GX 
GX 
GX 


GY 


000004  R 
000000  RG 
000002  R 
000007  R 
000052  R 
000006  R 
000440  R 
00035?  R 
000000  RG 


13-348 

#14-383 

13-355 

#15-420 

8-105 

8-105 

9-137 

9-135 

8-105 

8-106 

12-273 

#12-287 

8-105 

8-106 

8-109 

8-110 

#8-105 

#8-106 

#8-109 

#8-110 

♦13-343 

♦14-398 

12-277 

13-307 

11-246 

11-243 

13-315 

11-249 

-1-251 

•13-338 

13-319 

'5'439 

♦15-440 

13-333 

♦15-441 

♦13-341 

13-317 

13-312 

♦13-340 

13-329 

♦13-337 

14-401 

#6-85 

7-100 

11-219 

14-390 

15-431 

11-248 

13-353 

11-253 

11-254 

11-245 

#6-84 

11-255 

#11-228 

#6-86 

11-232 

♦11-234 

13-337 

9-133 

#13-311 

#11-239 

#7-96 

♦11-220 

13-315 

13-338 

#7-98 

♦11-222 

9-135 

#10-154 

#7-97 

♦11-221 

#7-100 

13-327 

#11-206 

#7-99 

11-209 

#13-302 

#12-273 

#10-154 

T   02:37 

N  15 
PAGE    1 

CREF       04 

00 

8-107 

8-108 

8-109 

8-110 

8-111 

8-112 

8-115 

8-107 

13-302 

8-107 

8-111 

#8-107 

#8-111 

♦14-403 

13-339 

8-108 

8-108 

#8-108 

♦15-432 

8-109 

8-112 

#8-112 

♦15-457 

8-110 

8-115 

#8-115 

♦  15-459 

8-111 

8-112 

8-115 

11-211 

11-213 

13-532 

15-436 

13-313 

13-330 

13-328 

14-384 

14-392 

14-395 

♦11-241 

13-339 

♦12-276 

11-243 
♦13-506 

11-246 
15-541 

11-249 

11-251 

♦12-277 

♦15-507 

♦12-275 

15-504 

13-540 

11-216 

11-256 

J 


B 

J 

E   10 

^ 

K 

F    10 

h 

L 

G  10 

e 

M 

5      VFPCUG 

H  10 

f 

N 

I    10 

G 

B 

6 

J   10 
K  10 

H 

C 

6 

1 

D 

6 

L   19 

J 

E 

6 

H   10 

K 

r 

6 

N   10 

L 

G 

ft 

8  11 

M 

H 

6 

C    11 

N     1      VFGX2P 

I 

6 

D   11 

B     2 

J 

6 

E    11 

C     2 

K 

6 

f    11 

L 

6 

G   11 

g     1 

M 

6 

H   11 

f    2 

N 

6 

I    11 

G     1 

B 

J    11 

H     i 

C 

K   11 

I     I 

D 

L    11 

E 

M   11 

K     2 

f 

N   11 

L     i 

G 

B   12 

M    2 

H 

C    12 

N    1 

I 

7     VFPDSA 

0   12 

B 

J 

E   12 

C 

K 

F    12 

D 

L 

G   12 

E     : 

M 

H   12 

F     ■ 

N 

I    12 

G     3     VFGX3P 

B 

8 

J    12 

H     3 

C 

8 

K   12 

I     3 

D 

8 

L   12 

J    ; 

E 

8 

H   12 

K 

F 

8 

N  12 

L    ; 

G 

8 

B   13 

M 

H 

8 

C   13 

N    3 

I 

8 

D  13 

B    4 

J 

8 

E   13 

C     A 

K 

8 

F   13 

D     4 

L 

8 

G   13 

E     4 

M 

8 

H  13 

F     4 

N 

8     VFPDSN 

I    13 

G     4 

B 

9 

J   13 

H      ' 

C 

9 

K   13 

I      4      VFIND 

D 

9 

L    13 

J     4 

E 

9 

M   13 

K     4 

F 

9 

N   13 

L     4 

G 

9 

B   14 

M     4 

H 

9 

C    14 

N     4 

I 

9 

D   14 

B     5 

J 

9 

E    14 

C     5 

K 

9 

F    14 

0     5 

L 

9 

G   14 

E     5 

H 

9 

H    14 

F     5 

N 

9 

I    14 

G    5 

B 

10 

J    14 

H     5 

C 

10 

K    14 

I 

5 

0 

10 

L    14 

M  1 


VFPDST 


VFPDTE 


6 

1 

H 

5 

I  ■ 

5 

J 

5 

K  ■ 

' 

i  1 

1 

N  ■ 

5 

R 

(^ 

C 

^ 

1) 

g 

F 

6     VFPPVC 

F 

6 

fi 

6 

H 

6 

I 

6 

J 

6 

K 

6 

1 

6 

M 

6 

VFPPSN 


VFPPVC   -    INITIAL   CONFIG 
TPARS   STATE    TABLES 

2^.3  000056 

245  000056 

246  000056 

247  000056 
24fc 

249  000056 

250  000056 

251  000056 
252 

253  000056 

254  000056 

255  000056 
256 

257 
258 

259  000056 

260  000056 
261 

262  000056 

263  000056 
264 

265  000056 

266  000056 
267 

268  000056 

269  000056 
270 

271  000056 

272  C00056 
273 

2^4  000056 


B  1 

iLE  SC  MACRO  V05.03b  Saturday  29-Jun-35  02:38  Page  10-1 


TRANS   SLAMDA 


STATES 
TRANS 
TRANS 

PFLAGS 
IEND,SEXIT,PVEND 
<'  ,> 

STATES 
TRANS 
TRANS 

SNUMBR.END.PVFG       ;  FLAGS  BVTE 
SLAMDA 

STATES 
TRANS 
TRANS 

END 
SEOS,SEV'T 
<';>,SE)'.IT 

;  CHECK  FOR  DLM 

CIRCUIT  NAME  -  SUBEXPRESSION 

STATES 
TRANS 

CHKDLM 
'-,,PVDLM 

STATES 
TRANS 

SDNUMB,,PVCTL 

STATES 
TRANS 

•. 

STATES 
TRANS 

SDNUMB,,PVSTA,PF. DLM, FLAG 

STATES 
TRANS 

<',>,SE!'IT 

STA'^ES 


C  1 

or  rt 1  .  7o 


B    2 

JFPPVC   -    INITIAL   CONFIG   FILE   SC   MACRO  V05.03b   Saturday   29-Jun-85   02:38     Page  23 
=VDLM  -    CHECK   FOR   DLM   PVC 


792 
793 
79A 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 


002276 
002302 
002306 
002312 

809  0023U 

810 

002316 
002322 
002324 
002330 
00233A 


811 
812 
813 
814 
815 
816 
817 
BV 
319 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 


819  002336 


002344 
002352 
002354 
002362 
002366 
002370 
002374 
0023:'6 


012700 

020127 
001011 
010100 


103405 
110167 
010067 


000027' 
015355 


000052' 
000016' 


.SBTTL  PVDLM  -  CHECK  FOR  DLM  PVC 

F 

PVDLM  -  CHECK  FOR  DLM  PVC 

INPUTS: 

PVCNAM   -   PROCESS   NAME    (ASCII) 

OUTPUTS: 

DLMPDV  -  DLM'S  PDV  ADDRESS 


VFPRDT  - 
ERROR  MES: 

100 
lOl 
102 
103 

104  01 

105  Oi 

106  Oi 
107 
108 
109 

no 

111  0' 


PVDlM: 


10$: 


MOV 

#PVCNAM,R0 

CALL 

SCATS 

CMP 

R1,/»*RDLi1 

BNE 

INVCIR 

MOV 

R1,R0 

CALL 

FNDPDV 

BCS 

INVCIR 

MOVE 

RI.DLMIND 

MOV 

RO, DLMPDV 

RETURN 

POINT  TO  SPECIFIED  PROCESS  NAME 

CONVERT  TO  RAD50 

IS  THIS  DLM? 

BR  IF  NO  -  ILLEGAL  CIRCUIT  ID 

GET  DLM'S  RAD50  PROCESS  NAME 

GET  DLM'S  PDV  INDEX 
BR  IF  NOT  FOUND 
SAVE  PDV  INDEX 
SAVE  DLM'S  PDV  ADDRESS 


ERRORS 
INVCIR:  EMSGSR  NO  ;  ILLEGAL  CIRCUIT  ID 

PVCTL  -  GET  CONTROLLER  NUMBER  FOR  DLM 


M6767 
000403 
11676^ 
005767 
001363 
105767 
001360 


000001 


OOOOOOG  000047'  PVCTL: 


OOOOOOG  000051' 
OOOOOOG 

000001G 


PVSTA: 
10$: 


.ENABL 

MOVB 

BR 

MOVB 

TST 

BNE 

TST6 

BNE 

RETURN 

.DSABL 

.END 


LSB 

.PNUMB.DLMCTL 

10$ 

.PNUMB,OLMSTA 

.PNUMH 

INVCIR 

.PNUMB+1 

INVCIR 

LSB 


SAVE  CONTROLLER  NUMBER 

CHECK  FOR  VALIDITY 

SAVE  STATION  NUMBER 

LEGAL  VALUE? 

BR  IF  NO  -  ERROR 

LEGAL  VALLE? 

BR  IF  NO 


I, AC  r\-7i. 


A-)  .70 


B     3 

VFPROT   -   Ii>JlTlAL   CONFIG  FILE   SC  MACRO  V05.03b   Saturday  29-Jun-85  02:39     Page  8 
ERROR  MESSAGES 


100 
1 01 
102 
103 
IGA  000036 

105  000066 

106  000122 
107 

108 
109 
110 
111    000000 


.S8TTL 

.EMA8L 

NTLERS 
iNlTLERS 
NTLERS 

.DSABL 
.LIST 
.EVEN 
.PSECT 


ERROR  MESSAGES 

LC 

,L0,10,CERR,RTSPC,CFLIN,<remote  dte  name> 
,Ll,10,CERR,RTSPC,CFLIN,<remote  dte  addre3s> 
,L2,8,CERR,RTSPC,CFLIN,<Remote  dte   block   allocation   faUure> 

LC 
BEX 


VFPRNW  - 
Local  Sy 

50 
51 
52 
53 
5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 


wAC   A^k 


C  3 


B  4 

/FPRNW  -  IMITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:';0  Page  5 
.ocal  SymDols 


50 
51 
52 
53 
5A 
55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 


000042 
000054 
000073 
000074 
000076 

000006 
000020 
000C10 
000020 
000020 

000020 


.SSTTL  Local  Symbols 

DQUOTE  =  <'"> 
COMMA  =  <',> 
COMENT  =  <';> 
BRA  =  74 
KET  =  76 

MXNOID  =  6 
MXACUS  =  16. 
MXACPA  =  8. 
MXACAC  ^  16. 
MAXID  =  16. 

MAXilR  =  16. 


String  delimiter 
Operand  separator 
Start-of-ccT.ment  character 
Left  angle  bracket  (<) 
Right  angle  bracket  (>) 

Max  length  of  node  id 

Max  length  ;t  access  cntrl  user 

Max  length  of  access  cntrl  password 

Max  length  or  access  cntrl  account 

Max  length  of  network  name 

Max  length  of  string  seen  I'n  parse 


,AC   A7L   C,^ 


C  A 


B  5 

VFPRNW  -  INITIAL  CONFIG  FIlE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:A0  Page  18 
Syntax  action  routines 


355 
356 
357 
358 
359 

3r^ 

3t; 
362 
363 
36^ 
365 
366 
367 
368 
369 
370 
371 
372 
373 
37^ 
375 
376 
377 


»♦*  RNAACT 
INPUTS 


Check  account 


STRBUF  -  Contair  parsed  string  (minus  delimiters  etc) 
STRLEN  -  NuitiDer  .f  characters  in  string 

OUTPUTS 

Account   checi-ed   and  stored 

Error   condition   if    injao'd  account 


000312 

C00312  116701  00016^' 

000316  020127  000020 

000322  101011 

Cf'03'4  11C167  OOOOOOG 

000330  012700  000165' 

000334  012702  OOOOOOG 

0003A0 

0003AA 

0CO3A6 


R.NAACT: 


M0V8 

STRLEN, R1 

CMP 

R1,#MXACAC 

BHI 

101$ 

Move 

RI.RNAL 

MOV 

#SIRBUF,RO 

MOV 

*RNACCT,R2 

CALL 

MOVE 

RETURN 

101$: 


EMSG$R  RC 


Get  length  of  string 

Check  IT  account  too  long 

Branch  if  error 

Move  account  length  to  data  area 

Move  account  to  data  area 


Illegal  access  data 


wni;  n7k  c  ■, 


C  5 

-S";  n:>,i.n 


♦♦FILE**ID««VFPX29 


B    6 


vv    vv 

FFFFFFFFFF 

PPPPPPPP 

XX      XX 

222222 

999999 

vv    vv 

FFFFFFi-FFF 

PPPPPPPP 

XX      XX 

222222 

999999 

vv     /v 

FF 

PP      PP 

XX      XX 

22     22 

99     99 

vv    vv 

FF 

PP      PP 

XX      XX 

22     22 

99     99 

vv    vv 

Ff 

PP      PP 

XX  XX 

22 

99     99 

vv    vv 

FF 

PP      PP 

XX  XX 

22 

99     99 

vv    vv 

FFFFFFFF 

PPPPPPPP 

XX 

22 

99999999 

vv    vv 

FFFFFFFF 

PPPPPPPP 

XX 

22 

99999999 

vv    vv 

FF 

PP 

XX  XX 

22 

99 

vv    vv 

FF 

PP 

XX  XX 

22 

99 

vv  \ 

FF 

PP 

XX      XX 

22 

99 

vv  MJ 

r  p 

PP 

XX      XX 

22 

99 

vv 

Ff 

PP 

XX      XX 

2222222222 

999999 

vv 

FF 

PP 

XX      XX 

2222222222 

999999 

LL 

ssssssss 

IT 

TTTTTTT 

LL 

ssssssss 

TTTTTT'TTT 

LL 

5S 

LL 

ss 

_L 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

SSSSoSS 

LLLLLLLLLL 

ssssssss 

C     <f 


B     7 


*FlLt«*lD»»vFPX3P 


VFPX3 
Symbo 

Sy:VF 


vv 

vv   F 

FFFFFFFFF 

PPPPPPPP 

XX      XX 

333333 

PPPPPPPP 

vv 

vv   F 

FFFFFFffF 

PPPPPPPP 

XX      XX 

333333^ 

PPPPPPPP 

vv 

vv   F 

PP      PP 

XX      XX 

53     33 

PP     PP 

vv 

VV   f 

PP      PP 

XX      XX 

33     33 

PP     PP 

vv 

vv   F 

PP      PP 

XX   XX 

33 

PP     PP 

vv 

VV   F 

PP      PP 

XX  XX 

33 

PP     PP 

vv 

VV   F 

FFFFFFF 

PPPPPPPP 

XX 

33 

PPPPPPPP 

\|V 

VV   F 

FFFFFFF 

PPPPPPPP 

XX 

^3 

PPPPPPPP 

vv 

VV   F 

PP 

XX  XX 

33 

PP 

vv 

VV   F 

PP 

XX   XX 

33 

PP 

vv 

VV     F 

PP 

XX      XX 

33     33 

PP 

vv 

VV     F 

PP 

XX      XX 

^^    -,5^ 

PP 

VV       F 

PP 

XX      XX 

333333 

PP 

VV       F 

PP 

XX      XX 

333333 

PP 

LL 

ssssssss 

TTTTTTTTTT 

LL 

ssssssss 

TTTTTTTTTT 

LL 

S3 

LL 

S5 

LL 

SS 

LL 

ss 

Ll 

ssssss 

LL 

ssssss 

LL 

ss 

.L 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

SSiSSSSS 

..  i,. 


B  8 

VFPX3P  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:^1  Page  12-3 

Symbol  table 

Sy:VFPX3P.V2,[132,13A]VFPX3P/CR/-SP=SY:[l,1]RSXMCM.SML/ML,[150,-:iO]NETLIB/ML,[130,10]RSXMCM/PA:1,[132,10]VFPX3P 


nr,    riK   Tn_  itiM^OC   AT   m  .  /.  1 


C  8 


VH 


B  9 

ELP  -  HELP  ROUTINE  FOR  VNP    MACRO  V05.0'..  Saturday  29-Jun-85  02:42  Page  5 


55 

56 

57 

58 

59 

60 

61 

62 

65 

64 

65 

66 

67 

68  000000 

69 


■  **** 

•  MACRO  CALLS 


.MCALL   VNPDFS.CALIR 


■  **** 

;  LOCAL  DATA 


VMP   OFFSET    DFFirj.'TIONS 
VNPDFS 


iCi   n    nniiT  r  MC     cno     \/iiiD 


MAron    \jr\^    C\Xh    ^  = 


C     9 


B  10 

VIMI  -  VNP  READ  IN  CEX  IMAGE    MACRO  V05.03b  Saturday  29-Jun-85  02:1^2  Page  5-2 


VIMO 


170  000276 

171  000300 

172  00030A 

173  000310 
17A  000316 
175 

176  000322 

177  000326 

178  000330 

179  000336 

180  000342 
181 

182  0003AA 

183  C00350 
184 

185  000354 

186  000360 

187  00036A 
■88  000366 
189 

190 

191 

192 

193 

194  G00370 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213  000370 

214  000374 

215  000400 

216  000404 

217  000406 

218  000412 

219  000414 

220  000416 
221 

222 

223 

224  000420 

225 

226 


001402 
066716 

066767 
166705 

022705 
OOc'006 
012767 
005267 
000404 

010567 
005067 


005767 
001401 
000735 


OOOOOOG 

OOOOOOG  COOOO':'G 
OOOOOOG 

001000 

001000  0000006 
OOOOOOG 


005067 
016701 
016702 
001002 
000167 
160021 
005302 
003375 


41$: 


14$: 


OOOOOOG        13$: 
OOOOOOG 


BEQ 

ADD 

SWTCHI 

ADD 

SUB 

CMP 
BGE 
MOV 
INC 
BR 

MOV 
CLR 


41$ 

$RSI7E,(SP) 
(SP)  + 

$RSIZE,$RADDR 
$RSIZE,R5 

#512. ,R5 

13$ 

*512.,$RSIZE 

$BIGCT 

16$ 

R5,$RSIZE 
$8IGCT 


OOOOOOG 


16$: 


GEfRV 

rST  $BIGCT 

BEQ  12$ 

BR  40$ 


RELOCATE  THE  SLT  ADDRESSES 


12$: 


OOOOOOG 
OOOOOOG 
OOOOOOG 

0004  54 


15$: 


.IF  DF 

R$$MPL 

MOV 

$CETST,$RADDR 

ADD 

$CETLN,$RADDR 

MOV 

#$CETAB-2,f<5 

ADD 

$CETLN,R5 

CLR 

R2 

M0V8 

{R5),R2 

ADD 

#2,R5 

ASLB 

R2 

MOV 

R2,$RSIZE 

ADD 

R2,$CETLN 

SWTCHI 

R5 

GETRV 

.ENDC 

CLR 

$8!GrT 

MCV 

$$LTMA,R1 

MOV 

$SLTNM,R2 

BME 

15$ 

J  MP 

120$ 

SUB 

R0,(R1M 

DEC 

R2 

BGT 

15$ 

IF  NOT  -  BRANCH 

ADD  SIZE  Of  SECOND  READ 

IS  NEW  DESTINATION  ADDRESS 

ADJUST  SOURCE  ADDRESS 

DETERMINE  REMAINING  CETA6  SIZE 

ONE  TRANSFER  LEFT  ? 

IF  YES  -  BRANCH 

SET   UP   TRANSFER    SIZE 

SET   FLAG  FOR  ANOTHER   TRANSFER 

CONTINUE 

SET  FOR  READ  OF  CETAB  REMAINING 
INlT  CETAB  >  2000  BYTES  FLAG 

AND  READ  IT  IN 
ANY  MORE  LEFT  ? 
IF  NOT  -  BRANCH 
CONTINUE 


GET  ACTUAL  START  OF  CETAB 

CALCULATE  ADDRESS  OF  NEXT  TRANSFER 

GET  START  OF  CETAB-2 

GET  END  OF  CETAB 

INIT  REG 

GET  NUMBER  OF  CONTROLLERS  FOR  LAST 

KR8  TABLE  EXPANSION 

ADJUST  ADDRESS  OF  TRANSFER 

CONVERT  TO  BYTES 

SET  TRANSFER  SIZE 

UPDATE  TOTAL  SIZE  FOR  VIMO 

SET  UP  ADDRESS  OF  TRANSFER 

READ  LAST  KRB  TABLE  INTO  VNP  TEMPLATE 


INIT  LARGE  CETAB  FLAG 

GET  START  ADDRESS  OF  SLT  MAPPING  TABLE 

GET  NUMBER  OF  SLT  ENTRIES 

Branch  if  non-zerc 

IF  EQ,  SOMETHING  SMELLS 

SUBTRACT  SHIFT  BIAS 


[MPOn 

[MPOl] 
[MPOl] 
CMPOl] 
CMPOl] 
CMPOl] 
[MPOl] 
[MPOl] 
[MPOl] 
[MPOl] 
[MPOl] 
[MPOl] 
[MPOl] 
[MPOl] 

CMPOl] 


169 
170 
171 
172 


;[TD001] 
;[TD001] 


LOOP  TILL  DONE 
READ  IN  IM^GE  OF  FIRST  BLOCK  OF  NETWORK  POOL  (  HOME  BLOCK  ) 

SWTCHI  #$NTLHB        ;  ^OINT  AT  BUFFER 
SET  UP  POINTERS  FOR  32. -WORD  BLOCK  MANIPi  ''IONS 


■  c  V  !  M  A  r.  r 


Mflron  wn=;   n^h   <;jfi.rrtav  ?9-j. 


C  10 

n-R5   02:42      Psap    5-3 


B  11 

VIMO  -   VNP  WRITE    IMAGE   OuT   ROUT  MACRO  V05.05b   Saturday  29-Jun-85   02:A5     Page  5-2 

169  0:0500  RETURN 

170 

172  000001  -END 


VIM   ■ 
CONSTy 

2i 
2i 
2! 
2! 
21 
2i 
2' 
2' 
2' 
2' 
2 
2 
2' 
2* 
2' 
2 
3 
3 
3 
3 
5 
3 
3 
3 
5 
3 
3 
3 
3 
3 
3 
3 
3 


\MMn    _     \/MD     I.ID  I  T 


c  n 

F    iMiHF   niiT   BniiT  MirRn  vn'i.n3h   <;aturrisv   ?9-Jun-85   02:^5     Paae  5-5 


VIM  -  VNP  INIUALIZAIION 
CONSTANT  DEFINITIONS 


285 
286 
237 
288 
289 
290 
291 
292 
295 
294 
295 
296 
297 
298 
299 
300 
301 

302  0015^0 

303  001 3AA 
30'i  001346 
305  001350 
306 

307  001352 

308  001354 

309  001356 

310  001362 

311  001364 

312  001370 

313  001372 

314  001374 

315  001400 

316  001402 

317  001404 

318  001406 
319 

320  001410 

321  001412 

322  001414 

323  001416 

324  001420 
525  001422 
326  001426 


327 

528  001430 

329  001432 

330  001454 
531  001440 

332  001442 

333  001444 
534 

355 
336 
537 
338 
559 
540 


B  12 

MACRO  V05.05b  Saturday  29-Jun-85  02:45  Page  9 


**-VSYMB 


OPEN  EXEC   AND   COMEXEC    SYMBOL    TABLES  AND  OEFiNE 
SYMBOLS   NECESSARY    TO  JOB  AT   HAND. 


INPUTS: 

FILE 


012700 
010002 
005502 
010001 

105711 
001415 
121127 
001422 
121127 
001001 
010102 
121127 
001001 
010102 
005201 
000761 

005202 
020200 
001406 
020201 
001004 
012701 
000411 

005202 
105011 
016704 
010201 
112124 
001576 


OOOOOOG 


00)056 
000155 


000072 


OOOOOOG 


OOOOOOG 


CONTAINS  NAME  OF  SYSTEM  IMAGE  FILE  (  ASCIZ  ) 

THIS  NAME  CAN  BE  SPECIFIED  AS  SIMPLY  SY: 
AND  THE  USERS'  CURRENT  UK  WILL  BE  USED 
AS  A  DEFAULT.  RSXII'l  IS  THE  FILENAME 
DEFAULT. 

OUTPUTS: 

ALL   DEFINED   SYMBOLS   ARE   MOVED    TO   THE   ROOT    SECTION  WHERE 
THEY   CAN  BE   REFERENCED   BY   ANY   OVERLAY. 


ADDRESS   OF    USER   RESPONSE 
POINTER    TO  END  OF    DEV:[XX,YY3 

COPY   ADDRESS 

EOS  ? 

YES 

END  OF  FILENAME  ? 

YES,  USER  SPECIFIED  FILENAME 

LAST  CHARACTER  UIC  ? 

NO  ... 

POINT  AT  CHARACTER 

LAST  CHARACTER  DEVICE  NAME 

NO  ... 

POINT  AT  CHARACTER 

INCRMENT  POINTER 

LOOP 

GET  TnUE  DEV/UIC  STRING  POINTER 

WAS  ANY  DEV/UIC  ENTERED  ? 

NO,  THEN  ASSUME  FILENAME 

WAS   FILE-NAME    TiPED    ? 

YES 

USE  DEFAULT  FILE  NAME 


FORM  TRUE  EOS  POINTER 
TERMINATE  STRING  HERE 
DESTINATION  FOR  FILENAME 
COPY  END  OF  DEV/UIC  POINTER 
MOVE  NAME 


POINT  AT  NAME 
POINT  AT  BUFFER 
COPY  FILENAME 
IF  MORE  -  BRANCH 


VSYMB: 

MOV 

#FILE,RO 

MOV 

R0,.R2 

DEC 

R2 

MOV 

RCfil 

10$: 

TSTB 

(R1)          ; 

BEQ 

40$ 

CMP8 

(R1),*'. 

BEQ 

50$ 

CMPB 

(Rl),*'] 

BNE 

20$ 

MOV 

R1  ,R2 

20$: 

CMPB 

(R1),*': 

BNE 

50$ 

MOV 

Rl,R2 

50$: 

INC 

R1 

BR 

10$ 

40$: 

INC 

R2           ; 

CMP 

P2,R0 

BEQ 

60$ 

CMP 

R2,R1 

BNE 

60i 

MOV 

*$RSX,R1 

BR 

80$ 

50$: 

INC 

R2 

60$: 

CLR6 

(Rl) 

MOV 

$CLBUF,R4 

MOV 

R2,R1 

70$: 

MOVB 

(Rl)+,(R4)t 

BNE 

70$            ; 

.IF  DF 

R$$MPL 

MOV 

R2,R1 

MOV 

*$RSX,R4       ; 

75$: 

MOVB 

(R1)+,(R4)+ 

BNE 

75$ 

;[MP01] 


VtWl  -  UMP  INI TI Al  I/ATIHN 
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VLB: 


938 

939 

+ 

«  -VCHECK       -  CHECK  GEN 

PARTITION  BOUNDARY  CONDITIONS 

9A0 
9^1 

ISSSUE 

JARNING  OR  FATAL  ERROR  MESSAGE  DEPENDING  ON  THE 

9^2 

RELATIONSHIP  BETWEEN  THE  GEN  PARTITION  AND  THE  HIGHEST 

9A3 
9AA 

BLOCK  NUMBER  ALLOCATED  IN  THE  SYSTEM  IMAGE  FILE  RSXilM.SVS. 

9^5 
9A6 
9A7  0OA130 

016767 

GOOOOOG 

OOOOOOG  VCHECK: 

MOV 

$PARHD,$BFR 

;  GET  PARTITION  LISTHEAD 

9A8  OCA  136 

016767 

OOOOOOG 

OOOOOOG 

MOv' 

.PLGTH,$RS1ZE 

;  LOAD  PCB  LENGTH  FOR  VIRTUAL  I/O 

9A9  00A1AA 

016767 

GOOOOOG 

OOOOOOG 

0$: 

MOV 

$8FR,$RADDR 

;  GET  ADDRESS  OF  NEXT  PCB 

950  OOA152 

001A50 

BEQ 

101$ 

;  NO  GEN  PARTITION  ! ! 

951  00A15A 

GETRV 

;  READ  IN  PCB 

952  00A160 

026727 

OOOOOAG 

026226 

CMP 

P.NAM+$BFR,#"RGEN 

;  MATCH  BOTH 

953  00A166 

001366 

BNE 

10$ 

;   HALVES  OF 

95A  00A170 

026727 

000006G 

000000 

CMP 

P.NAMt2*-$BFR,#'R 

GEN  PARTITION 

955  00A176 

956 

957 

001362 

BNE 

10$ 

NAME  ? 

CONVERT 

GEN  END  ADDRESS  TO 

3L0CK  NUMBER  (  6'.  .<'TFS  ) 

958 

ALL  COMPARISONS  ARE 

MADE  IN  32.  WORD  BLUC<S 

959 

960  0CA200 

016767 

00001AG 

OOOOOOG 

MOV 

P.REL+$BFR,$GENST 

;  GEN  START  BIAS 

961  0OA206 

016700 

OOOOOOG 

MOV 

$GENST,RO 

962  O0A212 

016767 

00001 6G 

OOOOOOG 

MOV 

P.8LKS+$BFR,$GENND 

;  GEN  SIZE  IN  32.  WORD  BLOCKS 

963  OOA220 

066767 

OOOOOOG 

OOOOOOG 

ADD 

$GENST,$GENND 

;  GEN  ENDING  BIAS 

96A  00A226 

01670A 

OOOOOOG 

MOV 

$GENND,RA 

;  GEN  END  BIAS 

65  00A252 

016702 

OOOOOOG 

MOV 

$SYSIZ,R2 

;  SYSTEM  SIZE  IN  32.  WORD  BLOCKS 

j6  00A236 

010A03 

MOV 

R4,R3 

;  COPY  TO  R3 

967  0OA2A0 

0002A1 

CLC 

;  CLEAR  C-BIT 

968  O0A2A2 

006003 

ROR 

R3 

;   AND  DIVIDE  BY 

969  00A2AA 

006203 

ASR 

R3 

;   8  TO  GET  NUMBER 

970  0OA2A6 

006203 

ASfi 

R3 

;    OF  DISK  BLOCKS. 

971  00A250 

062703 

000002 

ADD 

#2,R3 

;  TWO  BLOCKS  FOR  LABEL  GROUP 

972  00A25A 

010367 

000200G 

MOV 

R3,$8FRt200 

;  STORE  FOR  POSSIBLE  WARNING 

973 

97A  00A260 

020200 

CMP 

R2,R0 

loh 

;  IS  ANY  PART  OF  GEN  IN  SYS  IMAGE 

975  00A262 

976 

977  0OA26A 

101A12 

BLOS 

;  NO 

02020A 

CMP 

R2,RA 
10^$ 

;  DOES  GEN  SPAN  HIBLK  ? 

978  00A266 

103A16 

BLO 

;  YES 

980  00A270 

0002AI 

35$: 

CLC 

;  SUCCESS 

981  00A272 

982 

983 

A0$: 

RETURN 

■  ERROF 

CONDITIONS 

98A 

985  00A27A 

0127A6 

00A270' 

101$: 

MOV 

*35$,-(SP) 

;  FORCE  RETURN  ADDRESS 

986  0OA300 

ERRPTI 

ERR10.$ER0UT 

;  iS'JE  ERROR  MESSAGE 

987  00A310 

0127A6 

0OA3AO' 

102$: 

MOV 

#1035i.-(SP) 
ERR11,$ER0UT 

;  sf;  return  address 

988  00A31A 

ERRPT$ 

;  NO  GEN  PARTITION 

989 

990  00A32A 

012746 

00A3A0' 

103$: 

MOV 

#1033$, -(SP) 

;  SET  RETURN  ADDRESS 

991  00A330 

ERRPT$ 

ERR12,$ER0UT 

992 

993  00^3A0 

1033$: 

ERRPT$ 

ERR1A,$ER0UT 

;  ISSUE  WARNING 

99A 

VMD      I  M  I  T  I  Al    I  7  A  T  I  riM 
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VNCP 


56 

57 

58 

59 

60 

61 

62 

63 

6^ 

65 

66  000000 

67 

68 

69 

70 

71  000000  177777 

72 

73 

74 

75 

76  000002 

77 

78  000000 


LIBRARr  MACROS 

.MCALL  ^ETACGETRV.PUTAD.PUrRCSWTChl.SWTCHO 
.ENABL  LC 

**  * 
LOCAL  DATA 


.PSECT  DATA.D 

;  LIBRARr  BLOCK  BIAS 
'.L8IAS:  :.WORD   -1 

;  32.  WORD  BUFFER  FOR  LIBRARY  BLOCK 
'.LBUFF:  :.BLKW   32. 
.PSECT 
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VNCP 


?51  000272 

252  000312  005767  OOOOU' 

253  000316  001231 
25A  000320 


ERRORS  GETFACWARN 

20$:    TST  E8UF 

BME  It 
EOJ:    RETURN 


Else,  tailed  to  get  command  line 
Did  any  error  occur? 
I f  ne,  yes 
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VNC 


VNCP 
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938  00A052 

939 

940  004060 

941 

942  004052 

943 

944 

945 

946 

947 

948  004102 

949  004102 

950  004106 
951 

952  004110 

953  004116 

954  004136 
955 

956  004144 

957  004150 

958  004154 
959 

960  004160 

961  004164 

962  004166 
>63  004174 
964 

965  00'-.  176 

966  004204 
967 

968  004212 

969  004214 
970 

971 
972 
973 

974  004234 

975  004234 

976  004240 

977  004244 
978 

979 
980 
981 

982  004246 

983  004246 
^84  C04252 
9c 5  004256 
9t5 

987 
988 
989 

990  C04260 

991  004266 

992  r 34270 

993  L'04274 

994  004276 


016767     OOOOOOG  000054G 


101$: 


012702  000002G 
012701  000006 
000523 


012702  000010G 
012701  000006 
000516 


MOV 

RETURN 

ERr(0R$ 


.RNUMB.RQBHO.SEG  ;  STORE  SEGMENT  SIZE 


ULSEG 


005767  000100' 
001024 


016700  000014G 

042700  OOOOOOC 

010067  000100' 

005767  000102' 

001413 

022757  001777     000102' 

002407 

016767  000102'  000010G 

056767  000100'  000010G 


Alias  node  address 
fcSTADD: 


TST 
BNE 

AREAN 
10$ 

5WTCHI 

GETRV 

SWTCHl 

#$HM8UF 
$DECPT,#D$END 

MOV 
BIC 
MOV 

$HM8UF+D$LNUM,R0 
#"CARAMS<,RO 
RO, AREAN 

10$: 

TST 
BEQ 
CMP 
BLT 

ADDRS 
101$ 

#MXADDR, ADDRS 
101$ 

MOV 
BIS 

ADDRS, RQBtLR.DES 
AREAN, RQB+LR.DES 

101$: 

RETURN 
ERROR$ 

ILLNAD 

;  Alias 

nodf.  name 

$STAU: 

'mov 

MOV 
BR 

#RQ8+LR.ALI,R2 

#MXALIN,R1 

FORWR 

;  Destination  node  name 

isTDES 

MOV 
MOV 
BR 

#RQ8+LR.DES,R2 

*MXDSTN,R1 

FORWR 

Executor  node  name 


032767  OOOOOOG  OOOOOOG  $STEND::8IT 
001003  BNE 

012702  000012G  MOV 

000477  BR 

016767  000072'  000012G  10$:    MOV 


#VF.ADD,$VFLAG 

10$ 

#LR.NAMtRQB,R2 

STRNAM 

NODID.LR.ADD+ROB 


Use  area  default  number  ? 
I f  no  -  branch 

Set  up  input  buffer 
Read  decnet  home  block 
Reset  default  buffer 

;  Get  executor  address 
Get  executor  area 
Store  default  area  number 

Check  lower  addres-  limit 
If  illegal  -  branch 
Check  high  address  limit 
If  illegal  -  branch 

;  Store  node  address 
;  Store  area  number 


1 1  legal  node  address 


Get  address  of  output  buffer 

and  length. 
Continue  in  common  code 


Get  address  of  output  buffer 

Size  of  buffer. 

And  continue  in  common  code 


Node  address  specified? 

Br  if  yes 

Get  address  of  node  name  storage 

;  Store  node  address 
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276 

.S8TTL 

PVCSDF    ACTION  ROL 

TINES 

2'7 

278 

279 

;    PVC   CIRCUIT    ID 

280 

• 

281   000056 

PVNAM: 

282  000056 

012700 

000026' 

MOV 

#PVCNML,RO 

Address  PVC   name   buffer 

285  000062 

012701 

000006 

MOV 

*PVNAMX,R1 

Max    length  of   old-format   PVC   name 

28^.  000066 

CALL 

STORID 

Check  and  store  PVC   name 

285  00007' 

103413 

BCS 

101S 

Branch   if  error 

286  00007'. 

016767 

OOOOOOG 

000010' 

MOV 

BLKSZD.PVCPSZ 

SET   UP  DEFAULT  MAXIMUM  BLOCK    SIZE 

287  000102 

016^67 

OOOOOOG 

000012' 

MOV 

WNDSZD,PVCUSZ 

SET   UP  DEFAULT   WINDOW  SIZE 

288  000110 

005067 

000014' 

CLR 

PVCOUN 

INITIALIZE   PROCESS  OWNER 

289  0001 U 

105067 

000025' 

CLRB 

PVCFLG 

INITIALIZE   FLAGS   BVTE 

290  000^20 

RETURN 

291 
2?-^ 

;    ERRORS 

:°i.  000122 

iOIS:        EMSGSR 

NO 

ILLEGAL    CIRCUIT    ID 

295 
296 
297 
298 
"'9  0001  30 

;    LOGICAL    CHANNEL   NUMBER 

005767 

OOOOOOG 

PVLCN:      TST 

.PNUMH 

LEGAL   VALUE? 

iOo  0001 5^; 

001011 

BNE 

101$ 

BR    IF    NO 

-t  yj  yj        \,  \^  \j    '    J    ^ 

301    000136 

016700 

OOOOOOG 

MOV 

.PNUMB.RO 

GET    SPECIFIED   LOGICAL    CHANNEL   NUMER 

502   0001A2 

003406 

BLE 

101$ 

BR    IF    ILLEGAL    VALUE 

303   0O0K4 

020027 

OOOOOOG 

CMP 

RO,#CHNLMX 

LEGAL    VALUE? 

304   000150 

101005 

BHl 

101$ 

BR    IF   NO 

305  000152 

010067 

000004' 

MOV 

RO.PVCLCN 

STORE    LOGICAL    CHANNEL   NUMBER 

306  000156 

RETURN 

307 

302 

;    ERRORS 

309 

310  000160 

511 

512 

iOlS:        EMSGSR 

09 

•    ILLEGAL   LOGICAL    CHANNEL   NUMBER 

313 
314 
315  000166 

;    COUNTER    TIMER 

005767 

OOOOOOG 

PVCT:         TST 

.PNUMH 

;    LEGAL    VALUE? 

316  00C172 

001004 

BNE 

101$ 

;    BR    IF    NO 

317  000174 

016767 

OOOOOOG 

000006' 

MOV 

.PNUMB,P7CCTM 

;    SAVE    COUNTER    TIMER  VALUE 

318  000202 

319 

320 

322  000204 

PETURN 

;    ERRORS 

101$:        EMSGSR 

05 

;    ILLEGAL    COUNTER    TIMER   VALUE 

;[TD001] 
;[TD00n 
;[TD00i: 
;CTD0013 
;[TD001] 
;**-15 
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ALLXCB 

0COA4OR 

G$$TPP= 

000000 

M$$FCS= 

000000 

SYNERR= 

******  GX 

X$ST 

000005 

rt  rt  /H  /*  "•  rt 

ALPVCO 

001 152R 

G$$TSS= 

000000 

M$$riGE  = 

000000 

SYSFDS= 

***«*♦  GX 

XSTCLZ 

000030 

ALPVC1 

0015AAR 

G$$TTK= 

000000 

M$$NET= 

000000 

S$$URG= 

000000 

X$TIMC 

000001 

A$$CH<= 

000000 

G$$URD= 

000000 

M$$0VR= 

000000 

S$$YSZ= 

007600 

xsriMR 

000000 

/v  A  A  4  n  ^ 

At$CPS= 

000000 

HF$OLM= 

000002 

N$$ACC= 

000001 

T$$KMG= 

000000 

X$TXI 

000102 

A$$PRI= 

\j  \j  \j  \j  \,f  \j 

000000 

HF$GUY= 

000010 

n:$buf= 

000001 

T$$MIN= 

000000 

X$TXQ 

000066 

A$$TRP= 

\J  \J  \J  \J  \J  \J 

000000 

HF$H0S= 

OOOOOA 

n$$ldv= 

000001 

V$$CTR= 

001000 

X$TYP 

000015 

3IASX 

002256R 

HF$XDF= 

000020 

N$$MCP= 

000001 

WNDSZ 

000070R 

003  X$USR 

000022 

3L  KSZD  = 

»*,«».  f;x 

HSHAD[)  = 

******  GX 

n$imll= 

000001 

WNDSZD= 

»«***♦  GX 

X$UAO 

000062 

CERR  = 

******  GX 

nSHSZ  = 

***'»■*  GX 

N$$MOV= 

000010 

XA$NC0= 

000020 

XSWSZ 

000020 

CFGBF  = 

******  Gx 

HSCUG 

000010 

N$$NCTi 

000001 

XA$RR  = 

000200 

X$$DBT= 

000000 

CFGSZ  = 

******  Gx 

H$DST 

000012 

n$$pem= 

00C001 

XA$UCL= 

000040 

$ALPHA= 

000022 

CFLIN  = 

******  GX 

H$D29 

OOOOU 

OWNER 

000112R 

003 

XA$URE= 

000100 

$ALPOL= 

****** 

GX 

CF$BLK= 

000102 

H$FLG 

000000 

PCVKU 

OOOOOORG 

OOA 

XF$NCO= 

000020 

SANY  = 

000020 

CHKBLK.= 

******  GX 

HSGLEN 

00010A 

PFLAGS 

00013AR 

003 

XF$0FF= 

000200 

$BFR  = 

****** 

GX 

CHUDLM 

0001 66R 

003 

H$GLT 

OOOOAA 

PF.DLM= 

000001 

XF$ORI= 

000002 

$BLANK= 

000006 

CH<WND= 

******  GX 

HSGNAM 

000050 

PF.PSV= 

******  GX 

XF$OTI= 

000001 

$CAT5  = 

****** 

GX 

CHNLMX- 

******  GX 

H$GNML= 

000020 

PF.XDF= 

*♦*»♦*  GX 

XF$TIL= 

000010 

$CEACC= 

****** 

GX 

fHNLNO 

000022P 

003 

HSGPT 

0000A6 

PORTNO= 

******  GX 

XF$TIR= 

C00004 

$DJGIT= 

000024 

CKPVCO 

0C066AR 

HSHITS 

00003A 

PRTADD 

OOOOOOR 

002 

XT$CHN= 

000100 

$DNUMB= 

000014 

CKPVC1 

001022R 

HSHLEN 

OOOOhA 

PRTBIA 

000002R 

002 

XT$DGR= 

000002 

$EOS  = 

000012 

CSDTE 

000012 

HSLBDA 

000070 

PSZ 

000046R 

003 

XT$FAS.-= 

000200 

SERRNO 

000056F 

002 

CSFLG 

000015 

HSLBDN 

000072 

PVCCTM 

000006R 

002 

XT$INC= 

000004 

SERRNI 

0001 16R 

002 

CSGNAM 

000015 

HSLDTE 

000002 

PVCDF 

OOOOOOR 

nr^■^ 

XT$0UC= 

000010 

$ERRN2 

0001 52F 

002 

CSLCN 

000010 

H$LEN 

OOO0A2 

PVCELG 

O0O025R 

o02 

XF$PVC= 

000001 

$ERRN3 

000204F 

002 

C$LEN 

000016 

HSLOTS 

000032 

pvclcn 

OOOOO'.R 

002 

XIABQ 

000076 

$ERRO0= 

****** 

GX 

CSLNK 

000000 

HSNETW 

00002A 

PVCNAM 

000027R 

002 

X$ALF 

000055 

$ERR05= 

****** 

GX 

CSNAM 

000002 

H$NML  = 

000006 

PVCNML 

000C26R 

002 

X$AUC 

000056 

$ERR09= 

****** 

GX 

r$NML 

000002 

H$NPT 

000022 

PVCOWN 

00001 4R 

002 

X$CLEN= 

000025 

$ERRP8= 

****** 

GX 

CSPORT 

OOOOU 

H$PTB 

000020 

PVCPRT 

00002. R 

002 

XSCTIM 

000060 

$ERR1T= 

****** 

GX 

CSSCKF- 

000000 

HSPVC 

000006 

PVCPSZ 

00001  OR 

002 

XSDIAG 

000003 

$EXIT  = 

000000 

C$$ORF= 

OOOAOO 

HSRDTE 

OOOOOA 

PVCST 

OOOOOORG 

003 

X$DTE 

000024 

$FAIL  = 

177777 

r$$RSH= 

17756A 

H$RNW 

0000A2 

PVCT 

000166R 

X$FLG 

000014 

$GETAD= 

****** 

GX 

DLMCTL 

0000A7R 

002 

H$SVC 

000036 

PVCTL 

0023A4R 

XSGLEN 

000106 

$GETRV= 

****** 

GX 

DLMIND 

000052R 

OO:' 

HSTRB 

000016 

PVCWSZ 

0U0012R 

002 

X$LCN 

000026 

$LAMDA= 

000000 

Dl  MPOV 

00001 6R 

C- 

HSXAVL 

000100 

PVDLM 

002276R 

X$LEN 

000106 

$NUMBR= 

000002 

DLMSLT 

000020R 

002 

H$XBIA 

00007A 

PVEND 

000352R 

XSMOWN 

000023 

$PFLAG= 

*:■**** 

GX 

DLMSTA 

00005 1R 

002 

H$X29C 

OOOOAO 

PVFG 

0003UR 

X$NLRE 

000052 

$PS1PT= 

****** 

G> 

'1LMUNT 

000050R 

002 

iNixce 

001676R 

PVLCN 

000130R 

XSNNRE 

000054 

$PUTAD= 

****** 

GX 

DTEDES= 

******  GX 

INVCIR 

O02336R 

PVNAM 

000056R 

X$NPL 

000006 

$QPVC 

OOOOOORG 

0$$BUG= 

17751A 

I$$RAR= 

000000 

PVNAMX= 

000006 

X$NPR 

000007 

$RAD[)R= 

****** 

GX 

D$$ISK= 

000000 

I$$RDN= 

000000 

PVOUN 

000256R 

XSNRBY 

000032 

$RAD50^ 

000016 

D$tLll= 

000001 

K$$CMT= 

177546 

PVPSZ 

00021 2R 

X$NRP< 

000042 

$RBLCK= 

****** 

GX 

D$$YMC= 

000000 

<$$CSR= 

1775A6 

P\ISU 

00235AR 

X$NRRE 

000053 

$SAVAL= 

****** 

GX 

0$$VW  = 

000000 

K$$LDC= 

000000 

PVWSZ 

00023AR 

XSNTBY 

000036 

$STRNG= 

00C004 

END 

0001 56R 

003 

K$$TPS= 

00007A 

P$$P45= 

000000 

XSNITPK 

000046 

$SUBXP= 

OOoOlO 

E$$XPR= 

000000 

LD$LP  = 

000000 

P$$WRD= 

000000 

XSPKSZ 

000016 

$$$FLG= 

177777 

FLAG 

000022R 

002 

ln<e;mu= 

•*»»♦•  GX 

Q$$OPT= 

000010 

X$PR 

000011 

$$$KEY= 

000002 

EMTIO  = 

****-*  GX 

L$IA5G= 

000000 

RTSPC  = 

******  GX 

X$PRT 

000021 

$$$R  = 

00C010 

Fi  T8  = 

******  GX 

1$$DRV= 

000000 

R$$[)ER  = 

000000 

X$PS 

000010 

$$$STA= 

000000 

FM.IO  = 

000000 

L$$P11= 

000001 

R$$K1  1  = 

000001 

X$RPR 

000013 

$$$TMP= 

00001 3R    00b 

i^M.S  = 

000000 

LS$11R= 

000000 

RtSSNO^ 

cooooo 

X$RPS 

00001. 

.PNUMB= 

****** 

GX 

"^DHSH 

002120R 

MAXII)  = 

00002C 

R$$11i1= 

oc^ooo 

X$RTRY 

000002 

.PNUMH= 

****** 

GX 

FNDPDv= 

******  GX 

MOVE  - 

•  •'•<•  GX 

SPACE  = 

00UO40 

XSRXl 

000104 

.PSTCN:^ 

*<  *** * 

GX 

F^DPRt 

O0'522R 

M$$CRB= 

000124 

SP$PA 

000C5ARG 

002 

XSRXO 

000072 

.PSTPT= 

****** 

GX 

F$$LVL= 

00000' 

M$$CPX= 

000000 

STORID= 

******  GX 

XSSS 

000004 

.TPARS= 

****** 

GX 

''.P'^!7= 

.»«*..  GX 

„.  D     2 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12'. 

125  OCOOOO 

126  OOOOOA 

127  000006 

128  000012 

129  000016 

130  000022 

131  000026 

132  000032 

133  00003A 
13A  000040 
i35  000042 
136 

137 
138 
139 
140  000044 


012705  000000' 
005001 

012702  000000' 

016703  OOOOOOG 

012704  OOOOOOG 

005067  OOOOOOG 

103003 

005367  0000006 

001401 


.SBTTL  LOOK  FOR  RDTSDF  MACRO 


SQRDT  -  LOOK  FOR  RDTSDF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 
R3,R4,R5=i'FSTROYED 

$QRDT: 


MOV 

#RDTDF,R5 

CLR 

R1 

MOV 

#RDTKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CfGBF,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

RETURN 

20$: 

ERROR   CONDITION 
101$:        EMSG$R      IT 


STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  SUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNIAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 


VFPRNW  ■ 
Macro  fj 

66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 


D  3 


C  1 

-  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02;A0  Page  6 
sfefences  and  definitions 


66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 


.SBT'^L  Macro  references  and  definitions 


000000 
000000 


.MCALL 
.MCALL 
.MCALL 

RNWDF$ 
PH8DF$ 


EMSG$R,NTLER$, STATES, TRANS, I  STATS, RNWCF$,PHBDF$ 

GETRV,CEACC$,GETA[),PUTAD,SAVMAP,RESMAP 

VNPDBG 


Remote  network  block  symbol  definitions 
PSI  homeblock  symbol  definitions 


Local  macro  definitions 


.MACRO 

MOV 

.ENDM 

.MACRO 

MOV 

.ENDM 


SAVMAP 
SRBLCK, 


•(SP) 


RESMAP 
(SP)+, SRBLCK 


0  « 
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379 

380 
381 
382 
383 
384 
385 
386 
387 
388 
389 

390  000354 

391  000354 

392  000360  103A04 
39^  000362 

39h  000366  103404 

395  000370 

396 

397  000372 

398  000400 


.SBTTL  End  of  macros  -  check  and  allocate  network  block 

*'*  RNWEMD  -  End  of  macros  -  check  and  allocate  network  block 

INPUTS 

All   parsed   n'elds    for  RNW$DF/RNA$DF 

OUTPUTS 

If  network  name  unique,  block  allocated  and  linked 
into  rv.„ote  network  chain 


Check  network  name  unique 
Error  if  not  unique 
Allocate  new  network  block 
Error  if  no  space 


VFPX29 
Table 

5 
6 

7 
8 
q 


RNWEMD: 

CALL 

CKNET 

BCS 

101$ 

CALL 

ALNET 

BCS 

102$ 

RETURN 

101$: 

EMSG$R 

RA 

102$: 

EMSG$R 

RX 

;   Bad  network   name 
;    Allocation   failure 


0     5 
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VFPX29  -  CONFiG  FILE  ACIION  ROU  MACRO  V05.03D  Saturday  29-Jun-85  02:^1 

Table  ot  contents 

5-  52    MACRO  DEFINITIONS 

6-  61-  LOCAL  DATA  STORAGE  AND  ERROR  MESSAGES 

7-  90    LOOK  FOR  X29$DF  MACRO 

8-  120    TPARS  STATE  TABLES 

9-  151    X29$0F  /.CTION  ROUTINES 


fPX3P 
Table  0 

5- 

b- 

7- 

8- 

9- 

10- 

11- 

12- 


D  6 


V^PX^P   -    INITIAL   CONFIG   TILE    SC    MACRO   V05.03b   Saturday   29-jMn- 
labie  of   contents 

MACRO  DEFINITIONS 
lUCAL    SYMBOL    DEFINITIONS 
LOCAL    DATA 

LOOK   FOR   ••♦SDF   MACRO 
TPARS    STATE    TABLES 
CHN$DF    STATE    TABLE 
X3P$DF    ACTION   ROUTINES 
CHNSDf    ACTION    ROUTINES 


§2:41 


s- 

SS 

h- 

f-H 

/- 

HS 

R- 

lOR 

<)- 

HA 

in- 

Uf 

11- 

20A 

12- 

26U 

D     7 

o  c    r  1  .  '  1 


VFPX5P  CREATED   Bv      MACRO     ON  29-JUM-85   AT   02:^1 

SYMBOL    CROSS  REFERENCE 


SYMBOL      VALUE 


REFERENCES 


B!  '<DEF 

000060 

R 

#11-209 

Bl'MAX 

000102 

R 

*11-221 

BLKSZD 

-      »«;**** 

GX 

•11-211 

11-223 

BLKSZM 

r     *♦*♦*+ 

GX 

*11-225 

CERR 

-    ****** 

GX 

7-100 

CFGBF 

r     ****** 

GX 

8-1?2 

CFGSZ 

-     ****** 

GX 

8-128 

CFLIN 

r     ****** 

GX 

7-100 

CHEND 

000302 

R 

#12-286 

CHHI 

00025A 

R 

#12-279 

CHKBLK 

3      ****** 

GX 

11-209 

11-221 

CHKWND 

-      ****** 

GX 

11-236 

11-248 

CHLO 

000220 

R 

#12-266 

CHNDF 

000036 

R 

8-124 

CHNLHi 

000002 

R 

#7-93 

•12-273 

CHNLLO 

000000 

R 

#7-92 

•12-272 

CHNLMN 

=  000001 

#6-83 

CHNLMX 

-      ****** 

GX 

12-270 

12-283 

DTEDES 

r     *  *** A  * 

GX 

12-296 

FMT8 

=     ****** 

GX 

7-100 

FM.8 

=  OUuOOO 

#7-100 

F.RSIZ 

-    ****** 

GX 

•12-294 

•12-298 

KSKIC 

OOOOCA 

•12-293 

K$LEN 

000006 

12-286 

12-294 

KSLOC 

000002 

•12-292 

LSCHLS 

000034 

12-209 

12-302 

L$LEN 

000122 

12-298 

12-316 

LSMCHN 

000036 

'12-317 

N$$VCT 

r     ****** 

12-296 

RTSPC 

=     ****** 

GX 

7-100 

SVNERR 

-     ****** 

GX 

•8-130 

•8-133 

SYSFDB 

:r      ****** 

GX 

•12-294 

"12-298 

S$$BAS 

r     ****** 

7-100 

7-100 

WNDDFF 

OOOKO 

R 

#11-236 

UNDMAX 

000162 

R 

#11-248 

WNDSZD 

-   ****** 

GX 

•11-238 

11-250 

UNDSZM 

-z       ****** 

GX 

•11-252 

X3PDF 

000000 

R 

8-122 

X3PKU 

oocooo 

RG 

8-127 

#9-148 

X3PST 

000000 

RG 

#9-148 

$ALL16 

r      ****** 

GX 

12-289 

$ALPHA 

=  000022 

#9-148 

$ANY 

=  000020 

#9-148 

$BFR 

-      ****** 

GX 

•12-291 
•12-317 

•12-292 

$BLAN< 

=  000006 

#9-148 

SCEACf 

3      ****** 

GX 

12-296 

SDIGIT 

=  00002'i 

#9-148 

$DNJMB 

=  000014 

#9-148 

$EOS 

-  000012 

#9-148 

SERROO 

r     *♦♦**♦ 

GX 

11-257 

$£RRC1 

r     ...»*• 

GX 

11-231 

C     8 

PAGE    1 

CREF        04.00 


•12-285 
12-292 


•12-303 
12-305 


•12-303 


12-2'/:- 
12-312 


•12-305 


12-311 


•12-316 


VHELP  - 
tVHELP 

71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 


12-305 


•12-316 


•12-293 


12-299 


•12-299 


•12-301 


12-305 


12-506 


•12-508 


D     8 
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SVHEIP  -  PROCESS  HELP  COMMAND 


71 
72 
73 

.S8TTL  SVHELP  -  PROC 
«»•  -  $VHELP  -  PROCESS  HELP 

74 
75 
76 

INPUTS: 

NONE 

78 

79 

OUTPUTS: 

HELP  TEXT  PRINTED 

80 

81 

82 

83  000000 

8-'.  000000 

85  C00004 

- 

016704 

000002G 

EVHELP:: 

MOV     RQ8+LR.HLP,R4 
CALLR   SHELP 

POINT  AT  LINE  AFTER  "HELP' 
PRINT  HELP  INFO 


87 


000001 


.END 


,/A':  A7k  C- 


D  9 


VIMI 


VNP  READ  IN  CEX  IMAGE 
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22? 

228  000A26 

229  000432 

230  0C045A 

231  000^42 

232  000450 

233  000456 

234  000460 
235 

236  000462 

237  000470 

238  000476 
239 

240  000504 

241  000510 

242  000516 
243 

244  000520 

24  5 

246 

247 

248 

249  000532 

250  000536 

251  C00542 
252 

253  000544 

254  000546 

255  000550 

256  000552 

257  000556 

258  000560 

259  000562 
260 

261 
262 

263  000564 

264  000570 

265  0005/4 

266  000600 

267  C00602 

268  000604 

269  000606 

270  000612 

271  000616 

272  000622 

273  000624 

274  000626 
275 

276 
777 
27fi 
279 
280 
28^   000630 

282  000636 

283  000644 


005767 
100413 
012767 
012767 
012767 
000412 
000554 

CI2767 
012767 
01276? 

005077 
0''6777 
001405 


OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000001   OOOOOOG 

35$: 

OOOOOOG  OOOOOOG  17$: 
OOOOOOG  OOOOOOG 
000100  OOOOOOG 

OOOOOOG       18$: 
OOOOOOG  OCOOOOG 


rsT 

.MGMGE 

BMI 

17$ 

MOV 

#$RADDR,$ADRZ 

MOV 

»$R8LC<,$ADRX 

MOV 

#1.$UNSSZ 

3R 

18i 

BR 

110$ 

MOV 

#$RADDR,$ADRX 

MOV 

*$RBLCK,$ADRZ 

MOV 

#64.,$UNBSZ 

CLR 

a$ADRZ 

MOV 

$NTI.PT,a$ADRX 

BEQ 

19$ 

GETAD 


,#64. 


MEMORY  MANAGEMENT  SYSTEM  ' 
NO 

THIS  HALF  SHOULD  BE  ZEROED 
AND  THIS  HALF  USED 
SIZE  OF  BLOCKS  WHEN  CALLING  $ALN1f 
CONTINUE 
CONTINUE 

THIS  HALF  SHOULD  BE  USED 
AND  THIS  HALF  ZEROED 
SIZE  OF  BLOCKS  JHEN  CALLING  $ALNU 

ZERO  HALF 

AND  USE  HALF 

DON'T  READ  IF  NOT  SET  UP 

READ  IN  IMAGE  OF  HOME  BLOCK 


BIAS  MULTIPOINT  REVERSE  MAPPING  TABLE  POINTERS  (  IF  ANY  ) 


016702  OOOOOOG 
016701  OCOOOOG 
006200 


005712 
100003 
160012 
052712 
005722 
005301 
003370 


100000 


OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 


19$: 


115 


21$: 


MOV 
MOV 
ASR 

TST 
BPL 
SUB 
BIS 
TST 
DEC 
BGT 


$LLCTA,R2 
$SLTNM,R1 
RO 

(R2) 

21$ 

R0,(R2) 

#160000, (R2) 

(R2)  + 

R1 

11$ 


GET  ADDRESS  OF  $LLCTB 

GET  NUMBER  OF  SYSTEM  LINES 

DIVIDE  ADDRESSING  BIAS  BY  2 

IS  THIS  A  MULTIPOINT  LINE 

IF  PL,  NO 

BIAS  ADDRESS 

MAKE  SURE  SIGN  BIT  SET 

POINT  AT  NEXT  ENTRY 

AND  LOOP  TILL  DONE 


016700 
016701 
022067 
101522 
005301 
001373 
016700 
016701 
02206? 
101511 
005301 
001373 


016767  OOOOOOG  OOOOOOG 
0C2767  M777t     00000C3 


VERIFy  THAT  IMAGE  IS  WHAT  IS  EXPECTED 


20$: 


30$: 


MOV 

MOV 

CMP 

BLOS 

DEC 

BNE 

MOV 

MOV 

CMP 

BLOS 

DEC 

8NE 


$SLTMA,RO 

$SLTNM,R1 

(RO)+,$SLTMA 

120$ 

Rl 

20$ 

$PDVTA,RO 

$PDVNM,R1 

(RO)+,$LLCTA 

120$ 

Rl 

30$ 


.IF  NDF  R$$MPL 

READ  IN  POOL  LISTHEAD 

SWTCHI  #$CEAVL-2 
MOV     .CEAVl ,$RADDR 
ADD     #-2,$RADDR 


POINT  AT  5LTMB 

NUMBER  OF  SLT  ENTRIES 

SET'S  ADDRESS  MUST  BE  >  #$SLTMA 

IF  LOS,  NO  -  INCONSISTENT 

LOOP  ON  ALL  SETS 
ADDRESS  OF  PDV  ADDRESS  TABLE 
NUMBER  OF  PDVS  IN  SYSTEM 
PDV'S  ADDRESS  MUST  BE  >  #$LLCTB 
WHAT  ?? 

LOOP  ON  ALL  PDVS 


SET  ADDRESS  OF  CEX  POOL 

ADJUST  TO  POINT  AT  ROUNDING  FACTOR 


; [HP01 ] 


I  juin  nt:  A  r  T  M  rCu 


urc,    n'^K  <;al-i, rHju 


D  10 

in-«S  nP:42   Psap  5-4 


C  11 

VIMO  -  VNP  WRITE    IMAGE   OUT   ROUT   MACRO  V05.0?b   Saturday  29-Jun-85   02:^13 
Symbol    table 


Page  5-3 


A$$CHK= 
A$$CPS= 
A$SPRI= 
AS$TRP= 

cuck;p= 

Ct$ORE= 
C$$RSH= 
D$$BUG= 
D$$1SK-- 
0$SL11= 
D$$YNC= 
D$$YNM= 
E$1XPR= 
FE.rE)(  = 
F$t.VL= 
F.NR8D- 
F.RSIZ= 


000000 
000000 
000000 
000000 
000000 
OOOAOO 

•;775U 

000000 

000001 

000000 

000000 

000000 

♦*»»«*  GX 

noOOOl 

...*..  GX 

»*»«.»  GX 


G$$TPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$SCSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$SASG= 
L$$DRV= 
L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 


000000 
000000 
000000 
000000 
000000 
000000 
177546 
177546 
000000 

00007; 

000000 
000000 
Oi'OOOO 
000001 
000000 
000124 
000000 


M$$FCS= 
M$$MCF= 
MI$NET= 
M$$OVR= 
N$$ACC= 
N$S8UF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MOV= 
N$$NCT- 
N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$OPT= 
R$$DER= 
R$$K11= 


000000 

R$$SMD= 

000000 

$LLCTA= 

******  GX 

000000 

R$$11M= 

000000 

$NTLHB= 

•  <•»♦•*  GX 

000000 

SYSFD8= 

****** 

GX 

$NTLPT= 

******  GX 

000000 

S$$URG= 

000000 

$PDVNM= 

******  GX 

000001 

S$$YSZ= 

007600 

$PDVTA= 

•***•*  GX 

000001 

T$$KMG= 

000000 

$PUTAD= 

******  GX 

000001 

T$$MIN= 

000000 

$PUTRC= 

******  GX 

000001 

V$$CTR= 

001000 

SRADDR^ 

******   GX 

000001 

X$$D8T- 

000000 

$R8LCK= 

******  GX 

000010 

$8FR  = 

****** 

GX 

$SAVAL= 

******  GX 

000001 

$BIGCT= 

****** 

GX 

$SLTMA= 

*•**.<■  GX 

000001 

$CEAVL= 

****** 

GX 

$SLTNM= 

******  GX 

000000 

$CETAB= 

****** 

GX 

$VIMO 

OOOOOORG 

000000 

$CETDF= 

****** 

GX 

.CEAVL  = 

*♦**♦♦  GX 

000010 

$CETLN= 

****** 

GX 

.MGMGE= 

******  GX 

000000 

$CEXND= 

****** 

GX 

.PDVTA= 

******  GX 

000001 

$FMASK= 

****** 

GX 

.  ABS.   000000 
000502 
Errors  detected: 


000 
001 

0 


(RW,I,G8L,A9S,0VR) 
(RW,I,LCL,REL,C0N) 


•*•   Assembler   statisticf 

Work      tile      reads:  0 

Work      f I le  writes  :  0 

Size  ot   work   file:  9775  Words      (   39  Pages) 

Size  of    core  pool:  14440  Words      (    55   Pages) 

Ooerating     system:  RSX-HM/PLUS 

SV:VIMO/52?[132?i34ilv?MO/CR/-SP=S':[l,nRSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:l,[132,101VIMO 


rDCATFH   nv 


nw    7Q-  lilM-Sr    AT    n?:43 
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341 
3A2 

3A3  00K46 

3'^A 

545 

3A6 

3A7  OOU52 

348  001456 

34°  001460 

3-.0  001462 

351  001464 

552  001466 

355  001470 

554  001472 

355  001476 

356  001500 
557 

358 
559 
560  001504 

361  001510 

362  001514 

363  001520 
564  001524 
365   001530 

566  001552 

567  001536 
368 

569 
370 
371 
572 
575 
374 
575 
576 
577 
378 
579 
580 
58^ 
582 
583 
584 
385 
586 
587 
588 
589 
590 
391 
592 
593 

394  001536 

395  001544 

396  001552 

397  001554 


.ENDC 


;[MP01] 


016701  OOOOOOG 


MOV     $CL8UF,R1       ;  POINT  AT  NAME 
MOV:  DEVICE  AND/OR  UK  TO  ROOT  FOR  FUTURE  REFERENCES 


012704 
160002 
001433 
112024 
005302 
001575 
105024 
105767 
001002 


tiOOOOOG 


OOOOOOG 


80$: 


901: 


100$: 


MOV 

SUB 

BEQ 

M0V8 

DEC 

BNE 

CLRB 

TSTB 

BNE 

CALL 


#$DFU]C,R4 

R0,R2 

106$ 

(R0)*,(R4)+ 

R2 

90$ 

(R4)  + 

$DFUIC 

110$ 

GTDUIC 


LOOK  UF  EXEC  SYMBOLS 


012700  OOOOOOG 

012702  OOOOOOG 

012700  003276' 

105002 


110$: 
120$: 


122$: 


130$: 


140$: 


150$: 


0167t7  002302 
C22767  177777 
001521 


OOOOOOG 
OOOOOOG 


MOV 

MOV 

CALL 

MOV 

CALL 

BCC 

CALLR 

.IF  DF 

TST 

BEQ 

MOV 

SWTCHI 

GETRV 

SWTCHJ 

BIS 

MOV 

ADD 

GETRV 

BIT 

BNE 

BIC 

BIT 
BEQ 
BIS 

MOV 

GETRV 

MOV 

.ENDC 

MOV 
CMP 
BEQ 
GETRV 


#$DFUIC,RO 

#$STB,R2 

$AZFS 

#EX?T8,R0 

$SVMBL 

122$ 

180$ 

R$$MPL 

KDAS+SB.DEF 

130$ 


STORAGE  AREA  FOR  DEFAULT  DEV  &  UK 
NUMBER  OF  CHARACTERS  TO  MOVE 
NULL  STRING 
MOVE  STRING  INTO  PLACE 

LOOP  TILL  DONE 
TERMINATE  STRING 
WAS  UK  SPECIFIED' 
BR  K  YES 
GET  DEFAULT  UK 


USE  SUPPLIED  DEVICE  AND  UK 
USE  ST8  EXTENSION 
ASSEMBLE  FILENAME 
ADDRESS  OF  SYMBOL  TABLE 
DEFINE  SYMBOLS 
IF  SUCCESS  -  BRANCH 
ERROR  IN  $SYMBL 


D-SPACE  ENABLED 
IF  NO  BRANCH 


SCMOF+SB.VAL,.SCMOF  ;  COPY  ADDRESS  FOR  END  OF  RO  MEM 


#  D8IAS 
.SCM0F,*2 

#DF.DAS,$DFLAG 

FMASK+SB.VAL.RO 

#2,R0 

R0,#2 

#F2.DAS,$BFR 

140$ 

*CF.DAS,$DFLAG 

#F2.P0L,$BFR 

150$ 

#DF.P0L,$DFLAG 


SET  INPUT  ADDRESS 

READ  D-SPACE  BIAS 

RESTORE  DEFAULT  INPUT  BUFFER 

ASSUME  D-SPACE  ENABLED  ? 

COPY  ADDRESS 

GET  ADDRESS  OF  $FMASK+2 

READ  SYSTEM  FEATURES  WORD 

D-SPACE  ENABLED  ? 

IF  YES  -  BRANCH 

IF  NO  -  DISABLE  D-SPACE 

SECONDARY  POOL  SUPPORTED  ' 

IF  NO  -  BRANCH 

IF  YES  -  ENABLE  SEC.  POOL  SUPPORT 


S8.VAL+CTLST,.CTLST 
.CTLST,*2       ; 
$8FR,$CTLST 


GET  VALUE  OF  SCTLST 


;[MPOn 


iCMPOl] 
;EMP01] 
;CMP01] 

;CMP01] 
jEMPOl] 
;CMP01] 
;[MP013 
;[MP01] 
.-CMPOI] 
; CMP01 ] 
; [MP01 ] 
;[MP01] 
;[MP01] 
; [MP01 ] 

;EMP01] 
;[MP01] 
;[MP01] 

;[MP01] 
;[MP01] 
;[MP01] 

;[MP01] 


SB.VALtNTUK 
«-1,.NTUK 
200$ 
.NTUIC,#2 


.NTUIC  ;  GET  VALUE  OF  $NTUIC 
IS  $NTUIC  DEFINED? 
BR  IF  NO 
READ  !N  NETWORK  UK 


\;IMI  -  \;WP  IMITIAl  I7ATinM 
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VIM  -  VNO  INITIALIZATION 
ONSTANT  DEFINITIONS 

995 
996 
99V 
998 
999  004350 

1000  00AA30 

1001  00AA3A 

1002  004516 

1003  004522 

1004  004600 

1005  004604 

1006  004667 

1007  004753 
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VLE 


ERROR  TEXT 


ERMSGS  <Systeni  image  does  not  contain  a  'GEN'  partition. > 

ERBLK$  ERRiO  .     .    .  ,. 

ERMSGS  <No  part  of  'GEN'  partition  is  within  system  image. > 

FRRI  K i  FRR ^  1 

ERMSGS  <'GEN'  partition  spans  highest  block  allocated. > 

ERBLKS  ERR12  „  ^   ,   ..  .  „ 

ERMSGS  <System  image  must  pe  extended  to  SD  blocks  if  the^n> 

ERMSGS  <'GEN'  partition  is  to  be  contained  within  the  image. > 

ERBLKS  ERR14,<SBFRt200> 


•jWP     IMIT  IAI    WJTiriN 
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VNCP 


80 

81 

82 

85 

84 

85 

86 

87 

88 

89  000000 

90  000000 

012701 

OOOOOOG 

91  000004 

026700 

OOOOOOG 

92  000010 

001436 

93  000012 

012701 

000002' 

94  000016 

026700 

000000' 

95  000022 

001431 

96  00002'. 

010067 

000000' 

97  :00050 

98  000034 

005767 

OOOOOOG 

99  000040 

100413 

100  000042 

101  000066 

000407 

102  000070 

103  000106 

104  000114 

SGETLB  -  READ  IH   A  32.  WORD  LIBRARY  BLOCK 

INPUTS: 

R0=Li8RARY  BLOCK  BIAS  (MAY  BE  THE  HOME  BLOCK) 


ASSUME  HOME  BLOCK 
CORRECT  ASSUMPTION? 
IF  EQ,  YES  -  ALL  DONE 
GET  BUFFER  ADDRESS 
SAME  BLOCK  AS  WE  HAVE  NOW? 
IF  EQ,  YES  -  ALL  DONE 
SET  NEW  LIBRARY  BIAS 
CHANGE  DEFAULT  BUFFER 
MAPPED  TARGET  SYSTEM 
IF  MI,  NO 


20$: 


OUTPUTS: 

R1=VNP 

BUFFER  ADDRESS 

ETL8:: 

MOV 

#$NTLHB,R1 

CMP 

$NTLPT,RO 

BED 

20$ 

MOV 

*.LBUFF,R1 

CMP 

.LBIAS,RO 

BEQ 

20$ 

MOV 

R0,.LBIAS 

SWTCHI 

R1 

TST 

.MGMGE 

BMI 

10$ 

GETAD 

*0,*64.,R0 

BR 

20$ 

)$:    GETRV 

R0,#64. 

SWTCHI 
RETURN 


RESET  DEFAULT  BUFFER 


mB40v  01  nrt 


D  U 

i/n  R  M4rnn   i;ns.03h  Sstiirdav   29- 'un-85   02:4'.     Page 


VNCP 


VNCP  -  VNP  GET  COMMANDS  NCP  SIV  MACRO  V05.05b 


C  15 

::aturday  29-Jun-85  02;44 


Page 


256 

257 

258 

259 

260 

261 
262 
265  000522 

012700 

000002G 

26A  000526 

012701 

000006 

265  000552 

266  000556 

105401 

267  000540 

268  0005'.2 

269 

270 
271 
272  000562 

016701 

OOOOOOG 

275  000566 

020127 

000020 

274  000572 

101017 

275  000574 

012700 

000002G 

276  000400 

110120 

277  000402 

012701 

000020 

278  000406 

279  000412 

012702 

000002G 

280  000416 

112201 

281  000420 

016700 

OOOOOOG 

282  000424 

285  000450 

284 

285  000452 

286 

287 

288 

289 

290  000452 

291  000452 

005700 

292  000454 

002405 

295  000456 

020027 

000077 

294  000462 

005402 

295  000464 

000261 

296  000466 

000422 

297 

298  000470 

010046 

299  000472 

010001 

500  000474 

006201 

501  000476 

006201 

502  000500 

006201 

505  000502 

012702 

000001 

504  000506 

042700 

177770 

505  00051J 

001405 

506  000514 

006502 

507  000516 

005500 

508  000520 

005575 

509  000522 

062701 

GOOOO'.G 

510  000526 

150211 

511  000550 

012600 

512  000552 

000241 

'  **  * 

;  Action  routines 

•  **  * 


Store  destination  address  for  SHOW  MOD  X25-A 

iADS;:  MOV  #RQ8*LO.DES,R0  ;  Buffer  ptr, 

MOV  *MXDSTN,P1  ;  Max.  size  of  old-format  destination 

CALL  STORID  ;  Check  and  store  name 

8CS  101$  ;  Branch  if  name  too  long 
RETURN 

101$:   ERR0R$  NAMETL 


Store  network  name  for  SHOW  MOD  X25-A 


$AMT:: 

MOV 

.PSTCN.RI 

CMP 

R1,#MAyiD 

BHl 

101$ 

MOV 

#RQB+LO.NET,R0 

MOVE 

R1,(R0)+ 

MOV 

*MAXJD,R1 

CALL 

SPfILL 

MOV 

#RQ8+L0.NET,R2 

MOVE 

(R2)t,Rl 

MOV 

.PSTPT.RO 

CALL 

MOVE 

RETURN 

101$: 

ERROR! 

NAHETL 

;  Process  event 

type 

CKEVE: 

TST 

RO 

BLT 

10$ 

CMP 

R0,*65. 

BLE 

20$ 

10$: 

SEC 

BR 

50$ 

20$: 

MOV 

RO,-(SP) 

MOV 

RO.RI 

ASR 

R1 

ASR 

R1 

ASR 

R1 

MOV 

*1,R2 

BK 

**C<7>,R0 

BEQ 

40$ 

50$: 

ASL 

R2 

DEC 

RO 

BGT 

50$ 

<0$: 

ADD 

*RQB+L0.EVT,R1 

B!S8 

R2,(R1) 

MOV 

(SP) t,RO 

CLC 

Get  length  of  network  name 
Check  not  too  long 

Get  address  to  store  name  length 
Store  network  name  length 
Clear  name  to  spaces 

Moue  network  name  into  request  block 


Bad  network  name 


Is  the  ualue  posit iut  ? 
If  It,  no  ..  error 
Is  it  <=  65.  ? 
if  le,  yes  ..  okay 
Else,  indicate  error 
And  return 

Save  RO 

Copy  event  type 

Get  byte  position  in  event  list 


Initialize  bit  position 
Clear  out  all  but  low  5  bits 
I f  eq,  must  be  bit  zero 
Shift  to  next  bit  position 
Is  ttiis  the  right  bit  position 
If  gt ,  no  . .  continue 
Skip  to  current  event  list 
Set  bit  mask 
Restore  RO 
Indicate  success  '. 


;[TD00i: 
;CTD00n 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD00i: 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD00n 
;[TD001] 
;[TD00i: 
;[TD00n 
;CTD001] 
;[TD001] 
.•[TOOOn 
;[TD001] 
;[TD00n 
;[TD001j 
;[TD001] 
;[TD001] 
;CTD001] 
;CT0001] 
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■'  004504 

9v, 
998 
999 

1000  00A306 

1001  004312 
1002 

1003  0043U 

1004  004322 
IOC.  004342 
1006 

1007  004350 

1008  004354 

1009  004360 
1010 

1011  004364 

1012  004370 
1013 

1014  004372 

1015  004400 
1016 

1017  004402 
101?  G04410 
1019 

1020  0C4416 

1021  004420 
1022 

1023 
1024 
1025 

1026  004440 

1027  004446 

1028  004450 

1029  004454 

1030  004456 

1031  004464 

1032  004472 
1033 

1034  004474 

1035  004500 

1036  004504 

1037  004506 

1038  004510 

1039  004512 
1040 
1041 
1042 
1043 

1044 
1045 

1046  004516 
104  7  004524 

1048  004526 

1049  004532 

1050  004534 

1051  004542 


RETURN 


Host  node  address 


000100' 


.10014G 
0>^OOOOC 
OOulOO' 

000102' 


005767 
001024 


016700 
042700 
010067 

005767 
001415 


022767  001777  000102' 
002407 

016767  000102'  000040G 

056767  000100'  CU0040G 


iSTHOS: 


10$: 


052767 
001003 
012702 
000407 
016767 
052767 


012700 
012701 
112122 
00530C 
003375 


004514  000513 


032767 

001003 
012702 
000760 
016767 
052767 


101$: 


Tsr 

BNE 

AREAN 
10$ 

SWTCHI 

GETRV 

SWTCHI 

*$HM8UF 
$DECPT,y»D$END 

MOV 

BIC 
MOV 

$HM6UF*D$LNUM,R0 
#"CARAMSI<;,RO 
RO, AREAN 

1ST 
BED 

ADDRS 
101$ 

CMP 
BLT 

i»MXADDR,  ADDRS 
101$ 

MOV 
BIS 

ADDRS, RQB+LO.HOS 
AREAN, ROB+LO.HOS 

RETURN 
cRROR$ 

ILLNAD 
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Use  detauU  area  ? 
I f  no  -  branch 

Set  input  butter 

Read  decnet  home  block 

Reset  default  input  buffer 

;  Get  executor  address 
Get  executor  area 
Store  default  area  number 

Check  lower  addres  limit 
If  illegal  -  branch 

Check  high  address  limit 
If  illegal  -  branch 

;  Store  node  address 
;  Store  node  area 


Event  logging  node  qualifier 


000022G 

000072'  000022G  10$: 
OOOOOOG  OOOOOOG 


000006 
000072' 


SSTLND: 

:eiT 

#VF.ADD,$VFLAG 

BNE 

10$ 

MOV 

*L0.NNMtRQB,R2 

BR 

STRNAM 

10$: 

MOV 

N0DID,L0.ADD+R0B 

BIS 

*VF.EAD,$VFLAG 

RETURN 

STRNAM: 

MOV 

*6,R0 

MOV 

#N0DID,R1 

10$: 

Move 

(R1M,(R2)  + 

DEC 

RO 

BGT 

10$ 

RETURN 

FORUR:   BR 


NODNAM 


Sink  node  name 

OOOOOOG  OOOOOOG  iSTLSN::8IT 
BNE 

000014G  MOV 

BR 

000072'  00001 4G  10$:    MOV 

OOOOOOG  OOOOOOG        BIS 


#VF.ADD,$VFLAG   ; 
10$  ; 

*L0.SKN^RQB,R2  ; 
STRNAM 

NODID,LO.SKA+ROB 
<'VF.SkA,$VFLAG   ; 


I llegal  node  address 


Node  address  specified? 
Br  if  yes 

Get  address  of  node  name  storage 
Br  to  store  node  name 
;  Else  store  node  address 
Indicate  node  entity  address  specified 


Length  of  node  name 

Address  of  temp  storage  for  node  name 

Store  node  name 

Loop  till  done 


CONTINUE 


Node  address  specified? 

Br  if  yes 

Get  address  of  sink  name  storage 

;  Store  sink  node  address 
Indicate  sink  node  address  spec i tied 
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103403 
010067 


000010" 


103403 
010067 


000012' 
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324 
525 
326 
32' 

328  000212 

329  000216 
33  ;  000220 
331   000224 
332 
333 
334 

335  000226 
336 
337 
338 
339 

340  000254 

341  000240 
3'.2  000242 
543  000246 
",4 
345 
346 

347  000250 
348 
349 
350 
351 

352  000256 
355  000264 

354  000266 

355  000272 

356  000274 

557  000500 

558  000304 
359 
360 
361 

362  000306 
363 
564 
565 
366 
567  000314 

368  000320 

369  000322 
570  000526 


022767 
105410 
016700 
005001 


010067     000014' 


000005 
OOOOOOG 


571 
372 


000350 
.   _  000336 
375  000342 
374 
575 
576 
377 


005767 
001011 
1C5767 
001006 
116767 


OOOOOOG 
000001 G 
OOOOOOG  000025' 


PVFG: 


TST 

BNE 

TSTB 

BNE 

MOVB 

CALL 

RETURN 


.PNUMH 

101$ 

.PNUMBtl 

101$ 

.PNUMB,PVCFLG 

PVEND 


000344 


ERRORS 
01$:        EMSG$R     N2 


;  MAXIMUM  BLOCK 

SIZE 

PVPSZ:   CALL 
BCS 
MOV 
RETURN 

CHKBLK 

101$ 

RO.PVCPSZ 

•  ERRORS 

lOll:   EMSG$R 

P8 

;  WINDOW  SIZE 

PVWSZ:   CALL 
BCS 
MOV 
RETURN 

CHKWND 

101$ 

R0,PVr,./SZ 

;•  ERRORS 

101$:   EMSGSR 

00 

;  PROCESS  OWNER 

PVUWN:   CMP 
BLO 
MOV 
CLR 
CALL 
MOV 
RETURN 

#3,.PSTCN 

10l$ 

.PSTPT.RO 

R1 

$CAT5 

RO.PVCOWN 

;  ERRORS 

101$:   EMSG$R 

N1 

■  FLAGS  BYTE 
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CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 

BR  IF  ERROR 

SAVE  MAXIMUM  BLOCK  SIZE 


ILLEGAL  MAXIMUM  BLOCK  SIZE 


CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 
BR  IF  ILLEGAL  VALUE 
SAVE  WINDOW  SIZE 


ILLEGAL  WINDOW  SIZE 


LEGAL  PROCESS  OWNER? 

BR  IF  NO 

POINT  TO  STRING  TO  CONVERT  TO  RAD50 

PERIOD  IS  NOT  A  VALID  TERMINATOR 

CONVERT  TO  RAD50 

SAVE  PROCESS  OWNER  NAME 


ILLEGAL  PROCESS  OWNER  NAME 


LEGAL  VALUE? 

BR  IF  NO 

LEGAL  VALUE? 

BR  IF  NO 

SAVE  FLAGS  BYTE 

CREATE  PVC  NAME  BLOCK  AND  XCB 


ILLEGAL  FLAGS  BYTE  VALUE 


VFPPVC 
Symbol 


ABS. 

DATA 
$STATE 
SKTAB 
SKSTR 
Errors  ( 

*  AS5( 


Work  f 
Work  f 
Size  of 
Size  of 
Operatii 

ELapsed 
SY:VFPP' 
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.  ABS. 

000106 

000 

002A00 

001 

DATA 

000250 

OOr' 

tSTATE 

0002U 

003 

SKTAB 

000006 

OOA 

$<STR 

000016 

00!) 

Errors 

detected: 

(' 

(RW,I,GBL,ABS,OVR> 
(RW,I,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(ftW,D,LCL,REL,CON) 


**♦  Assembler  statistics 


Work  file  reads:  0 

Work   f i le  writes:  0 

Size  of  work  file:  15515  Words  (  61  Pages) 

Size  of  core  pool:  16552  Words  (  63  Pages) 

Operating  system:  RSX-11M/PLUS 


stf?Fppvc!v2;[?32?13°]VFPPVC/CR/-SP=SY:[1 J ]RSXMCM.SML/ML, [130  J 101NETL IB/ML, [130,1 0]RSXMCM/PA:1, [132,1 03VFPPVC 
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TPARS  STATE  TABLES 

145  ; 

146  000052 
147 

148 
149 

150  000052 

151  000052 
152 

153  000052 

154  000052 
155 

156  000032 

157  000052 
158 

159  000052 

160  000052 
161 

162  000052 

163  000052 

164  000052 
1c5 
166 
167 

168  000052 

169  000052 

170  000052 
171 
172  000052 
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.SBTTL 

TPARS  STATE  TABLES 

TPARS  STATE  1 

ASLL3 

ISTATS 

RDTST,RD'KW 

RDTSDF 

STATES 
TRANS 

RDTDF 
XRDTSDFX,,,1,SYNERR 

STATES 
TRANS 

SSTRNCRDNAM 

;  DTE  NAME 

STATES 
TRANS 

<'\> 

STATES 
TRANS 

SD]GIT,,RDTEST 

;  START  OF 

SrAT'S  RDTENX 

TRAN$  SDIGIT, RDTENX, RDTENO 
TRAMS    !END,$EXIT,RDEND 

CHECK  FOR  END  OF  SOURCE  LINE 

STATES  END 

TRANS  <';>,SEXIT 

TRA1M4  $EOS,SEXIT 

STAGES 


;    END   OF    DTE   ADDRESS 


E     I 


n 
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:rror  messages 

.SBFTL  Error  messages 


RS 

8ft 

H/ 

000000 

KH 

HV 

W) 

000000 

91 

000026 

y,' 

000050 

91 

C  .>,'104 

94 

9S 

96 

.PSECr  DATA,D 

.NLIST  BEX 

NTLERS  ,RA,10,CERR,RTSPC,CFLIN,<network  ni.me> 

NTLERS  ,Re,10,CERR,RTSPC,CFLIN,<node  name> 

NTLERS  ,RC,10,CERR,RTSPC,CFLIN,<access  information> 

NTLERS  ,RX,8,CEPR,RTSPC,CFLIN,<Remote  Network  Block  allocation  fa!Lure> 


.LIST 
.EVEN 


BEX 


6,  ^„ 
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VFPX2<; 


'.OO 

401 

402 

403 

4C4 

405 

406 

407 

408 

409 

410 

4.1 

412 

413  000406 

414  000406 

415  000412 

016700 

0000006 

416  0004''6 

062700 

000042 

417  000422 

418  000440 

016700 

OOOOOOG 

419  000444 

000241 

420  000446 

001431 

421  000450 

422  000460 

423  000476 

116701 

000002G 

424  000502 

120167 

OOOOOOG 

425  000506 

001354 

426  000510 

012702 

000003G 

427  000514 

012700 

OOOOOOG 

4?8  000520 

122022 

'.29  000522 

001346 

430  000524 

431  00C530 

000261 

432  000532 

433  000536 

.SBTTL  CKNET   Check  network  name  is  unique 
•**  CKNET  -  Check  network  name  is  uniaue 
INPUTS 


SPSIPT 

RNETWK, 

RNTL 


pointer  to  PSI  homeblock 
network  name,  length 


OUTPUTS 

Carry  set  if  name  not  unique 
R3  -  R5  preserved 


CKNET: 


10$: 


20$: 


30$: 


SAVMAP 

MOV 

ADD 

GETRV 

MOV 

CLC 

BEQ 

CEACC$ 

GETAD 

Move 

CMPB 

BNP 

MOV 

MOV 

CMPB 

BNE 

SOB 

SEC 

RESMAP 

RETURN 


$PSJPT,RO 
#H$RNW,RO 
R0,#2 
$BFR,RO 

30$ 

RO 

RO,#R$NWL 

$8FR+R$NML,R1 

RI.RNTL 

lOi 

*$BFR+R$NUK,R2 

*RNETWK,RO 

(R0)+,(R2)t 

10$ 

R1.20$ 


Preserve  current  mapping 

Get  address  of  network  Block  listhead 

Read  listhead 
Test  current  link 

If  EQ,  end  of  list,  hence  unique 

Map  to  next  entry  in  list 

Read  in  next  entry 

See  if  network  name  lengths  match 

If  no  match,  must  be  unique 
Address  name  in  block 
Address  proposed  name 
Compare  names 
If  different,  try  next  block 

Names  matched  -  error 
Restore  mapping 
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1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
5A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


.TITLE 
.IDENT 


VFPX29  -  CONFIG  FILE  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1981,  1982,  1983,  1985,  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  AIJY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREB> 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  ACTION  ROUTINES  FOR  X.29  SUPPORT 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  02-MAR-82 

DECNET-11M  V3.1 
DECNET-11MPLUS  VI. 1 

3.00  16-APR-82 

DFCNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
D3rnet-11M-Ptus   "3.0 
DECnet-Mkro/P  .0 
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.TITLE 
.IDENT 


VFPX3P  -  ;MITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADF  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUJPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00     02-MAR-82 

DECNET-11M/S   V3.1 
DECNET-llT'l-PLUS   VI.  1 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNE>11M-PLU3   Vl.1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLU5  V2.0 

5.00  22-JUL-85 

DECnet-llH/S  V4.2 
DECnet-11M-Plu5  V3.0 
DECnet-Micrc/RSX  Vl.O 
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VFPX3P     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:41 
SYMBOL  CROSS  REFERENCE 


SYMBOL 

VA.UE 

REFERENCES 

$ERR02 

r     *t**** 

GX 

11-258 

$ERRD8 

OOOOO'!, 

^ 

#7-100 

12-326 

$ERR09 

-      Jr  ***  ** 

GX 

12-325 

$ERRP7 

=     **♦*■*♦ 

GX 

11-216 

$ERRP? 

=     ♦*****■ 

GX 

11-230 

$ERRP9 

-     ****** 

GX 

11-243 

SERRn 

-     ****♦*■ 

GX 

8-140 

SEXIT 

=  000000 

#9-148 

$FAIL 

=  Miin 

#9-148 

SGETAD 

~  ****** 

GX 

12-298 

12-316 

S&ETRV 

=  ****** 

GX 

12-305 

SGPRM 

=  ****** 

9-148 

SLAMDA 

=  000000 

#9-148 

SNUMBR 

r:  000002 

#9-148 

SPUTAD 

=    ****** 

GX 

12-303 

12-318 

SPUTRC 

-    ****** 

GV 

12-294 

12-309 

SQCHN 

000006 

RG 

#8-124 

$QX3P 

000000 

RG 

#8-122 

SRADDR 

^  ****** 

GX 

*1 2-294 

♦12-298 

tr<AD50 

=  OU0016 

#9-148 

SRBLCK 

-      ****** 

GX 

12-295 

M2-319 

SRONLY 

=      ****** 

9-148 

9-148 

SSAVAL 

-      ****** 

GX 

12-288 

SSTRNG 

=  00000^. 

#9-148 

SSUBXP 

=  00001 c 

#9-148 

$$$FLG 

=   177777 

#9-148 

$$$KEY 

=   177777 

#9-148 

.PNUMB 

-      ****** 

GX 

12-268 

12-281 

.PNUMH 

r     ****** 

GX 

12-266 

12-279 

.TPARS 

-     K***** 

GX 

8-131 

D  8 
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CREF   04.00 


*12-303 


9-148 


H2-305    »12-316 
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VHELP  -  HELP  ROUTINE   FOR  VNP 
Symbol   table 
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A$$CHk;= 

A$$CPS= 

A$tPRl= 

A$tTRP= 

C'?SC<P= 

C$$ORE= 

C$$RSH= 

[)$$BUG= 

Dt$ISK= 

D$$L11= 

D$$YNC= 

D$$yNM= 

E$$XPR= 

F$SIVL= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

IC$$TPS= 

LDSLP  = 

LD.ALI= 

LD.CEX= 

LD.CIR= 

LD.I  !N= 

LD.lOG= 

LD.MOD= 

LD.NOD= 

LD.OBJ= 

L.D.PRO= 

LO.ADD 

LO.AOR 

LO.CLS 

n.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LO.GRO 

LO.HOS 

LJ.HTM 


000000 
000000 
000000 
000000 
000000 
OOOAOO 
17756^ 
1775U 
000000 
000001 
000000 
000000 
000000 
000001 
000000 
000000 
•lOOOOO 
'00000 
000000 
000000 
1775A6 
1775^6 
000000 
000074 
000000 
000030 
000024 
000035 
000025 
000031 
000037 
000027 
000032 
000026 
000022 
000052 
000002 
000006 
000010 
000020 
000010 
00C2 
000002 
000047 
000C04 
000024 
000040 
000032 


LO.INA 

LO.INC 

LO.i  ''T 

LO.L'O 

LO.LIN 

LO.LTM 

LO.MAC 

LO.MDE 

LO.NAM 

LO.NET= 

LO.NNM 

LO.OFL 

LO.ONM 

LO.OUT 

LO.OUN 

LO.PAR 

LO.PRJ 

LO.RET 

LO.RPA 

LO.SCR 

L0.SE6 

LO.SKA 

LO.SKN 

LO.SNH 

LO.TPA 

LO.TRB 

LO.TRI 

LO.UNT 

LO.VCT 

LO.VER 

LR.ACC 

LR.ACO 

Lft.ADD 

LR.ALI 

LR.BLK 

LR.CTL 

LR.DES 

LR.HLP 

LR.LIN 

LR.NAM 

LR.PAS 

LR.PRO 

LR.STS 

LR.TRI 

LR.^YP 

LR.UCB 

LR.UIC 

LR.UNT 


000062 
000060 
000046 
000030 
000004 
000034 
000022 
000024 
000044 
000002 
000022 
000012 
000004 
000056 
000026 
000010 
000012 
000064 
000030 
000016 
000054 
000014 
000014 
000035 
000020 
000034 
000030 
000033 
000014 
000042 
000020 
000052 
000012 
000002 
000010 
000004 
000010 
000002 
000002 
000012 
000041 
000002 
000000 
C00006 
000002 
000016 
000020 

■:oooo5 


.  ABS.  000106 
000010 
Errors  detected: 


000 
00' 
0 


;rw,i,gbl,abs,ovr) 
(rw,i,lcl,rel,con) 


**♦  Assembler  statistics 


a/O'-k   file  reads:  0 


LS.AL]= 

LS.CEX= 

LS.CIR= 

LS.CX0= 

LS.CX5= 

LS.ECh= 

IS.FDX= 

LS.HDX= 

LS.HLP= 

LS.LIN= 

LS.LMC= 

LS.LOG= 

LS.M0D= 

LS.N0D= 

LS.NTI= 

LS.0BJ= 

LS.OPT= 

l.S.PRO= 

LS.TOP= 

LS.TST= 

LS.UNF= 

LS.XIT= 

LX.AL1= 

LX.CEX= 

LX.CJR= 

LX.LJN= 

LX.LOG= 

LX.NOD= 

LX.OBJ= 

LX.PRO= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

M$$CRB= 

H$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

N$$ACC= 

N$$8UF= 

N$$LDV= 

N$$MCP= 

N$$MlL= 

N$$MOV= 

N$$NCT= 

'J$$PEM= 


000016 

000001 

000033 

010000 

000400 

001000 

004000 

010000 

000012 

000003 

000007 

000020 

000036 

000014 

000013 

000022 

000400 

000002 

002000 

000010 

020000 

000011 

000017 

000004 

000034 

000006 

000021 

000015 

000023 

000005 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

00000-' 

OOOOC 1 

000001 

000001 

000001 

OOOOIO 

000001 

000001 


0F$INS= 
0F$L0G= 
0F$0FF= 
OF  SON  = 
0F$SMC= 
0P$ADD= 
0P$ALL= 
OP$CCS= 
OP$CIE= 
0P$C0N= 
0P$C0P= 
0P$C0S= 
OP$DST= 
OP$DTE= 
OP$DUP= 
0P$EST= 
0P$E\/E= 
0P$FIL= 
OP$GRP= 
0P$H0S= 
0P$HTM= 
0P$INA= 
0P$INC= 
OP$KDS= 
0P$KDT= 
0P$KEV= 
0P$KGR= 
OP$KNT= 
aP$KSK= 
0P$LCT= 
OP$LNE= 
OP$LOC= 
OP$LST= 
OP$LTM= 
OP$LVL= 
OP$MAC= 
OP$MCO= 
OP$MDE= 
OP$MLI= 
OP$MON= 
OP$MST= 
OPSNAM- 

OP$NET=: 

OP$NLI= 
OP$NOD= 
OP$OUT= 
OP$OWN= 


000001 
000100 
000002 
000000 
000200 
000200 
000200 
000004 
004000 
000400 
000001 
000100 
000200 
000040 
000002 
000100 
010000 
000200 
000100 
000001 
000002 
004000 
001000 
002000 
000400 
001000 
001000 
010000 
002000 
000200 
000040 
000001 
000002 
000001 
000010 
000010 
000002 
000400 
000004 
000100 
000020 
000004 
004000 
000002 
000020 
002000 
000020 


0P$PAR= 
0P$PRI= 
OP$RET= 
0P$RPA= 
0P$SC0= 
0P$SEG= 
OP$SER= 
OP$S!N= 
OP$STA= 
OP$TPA= 
OP$TRI= 
OP$UCS= 
OP$USE= 
OP$VEC= 
OP$VER= 
OP$XAC= 
OP$XPR= 
0P$X5S= 
0P$X9S= 
P$$P45= 
P$$WRD= 
QFSACT^ 
QF$ALL= 
OF$KNO= 
QF$LOO= 
Q$$0PT= 
RQB  = 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
S$$WRG= 
S$$YSZ= 
TY$CHA= 
Ty$EVE= 
TY$STA= 
TY$SUM= 
T$$KMG= 
T$$MIN= 
V$$CTR= 
WC.CNT= 
WC.EVE= 
WC.TRI= 
UC.UNT= 
X$$DBT= 
SHELP  = 
SVHELP 


000010 

000010 

010000 

000010 

000001 

000400 

000400 

000010 

000004 

000020 

000040 

000020 

000002 

000040 

000040 

000001 

000002 

000004 

000010 

000000 

000000 

000001 

000002 

000004 

000010 

000010 

*♦*♦«*  Gx 

000000 

000001 

000000 

000000 

000000 

007600 

000400 

001000 

002000 

000000 

000000 

000000 

001000 

000400 

004000 

002000 

001000 

000000 

******  {3x 

OOOOOORG 
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28A  000652 

285  000664 

286  000672 
287 

288  000674 

289 

290 

291 

292  000702 

295  000706 

294  000710 

295  000714 

296  000732 

297  000756 

298  000744 

299  00074b 
500  000754 
301  000762 
502  000764 
505  000772 

504  001000 

505  001002 

506  001010 
507 

308 
509 
510 

511  001012 

512  001016 

513  001022 
314  001030 

515  001052 

516  001046 
317  001062 
518 

319 
320 

521  001076 

522  001166 
525  001251 
324  001265 

525  001274 

526  001343 

327  001346 

328  001442 
529  001532 
550  001624 
531  001706 
552  002003 
355 

334 

355 

336 

337  002G:2 

558 

539 

340 


022767 
001065 


016700 
001440 
062700 

0050^7 
032767 
001403 
052767 
032767 
001403 
052767 
032767 
001403 
052767 


010567 
010467 
022767 
105414 


000003  1777760 


GE7RV 

CMP 

BNE 

.ENDC 

SUTCH! 


,#6  ;  READ  IN  3  WORD  LISTHEAD 

#i,$CEAVL-2     ;  CONSISTENCY  CHECK 

126$  ;  IF  NE,  VERY  BAD  !l 

;  SWITCH  BACK  TO  DEFAULT  BFR 


;[MP01J 


Set  PSI  characteristics  flags. 


OOOOOOG 

000000 

OOOOOOG 

000004  OOOOOOG 

OOOOOOG  OOOOOuG 
000010  OOOOOOG  940$: 

OOOOOOG  OOOOOOG 
000020  OOOOOOG  942$: 

OOOOOOG  OOOOOOG 

950$: 


MOV  $PSIPT,RO 

BEQ  950$ 

ADD  #H$FLG,RO 

GETRV  R0,#2 

CLR  $PFLAG 

BIT  #HF$HD':,$BFR 

BEQ  940$ 

BIS  #PF.XGA,$Pfl-AG 

BIT  #HF$GWY,$BFR 

BEQ  942$ 

BIS  #PF.PSV,$PFLAa 

BIT  #HF$XDF,$BFR 

BEQ  950$ 

9IS  #PF.XDF,$PFLAG 

RETURN 


Check  if  PSI  present 

Adfiress  PSI  flags 

Rec-d  in  PSI  flags 

Initialise  PSI  characteristics  word 

Check  for  host  flag 

If  host,  set  XGA-present  flag 
Check  for  gateway  flag 

If  gateway,  set  PSV-present  flag 
Check  for  extended  data  flag 

If  exti-nded  data,  indicate  in  $PFLAG 


;CTD001] 
;CTD0013 
;[TD0On 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD00n 
;CTD001] 


OOOOOOG 
000002G 
002776  OOOOOCG 


SIZE  OF  CETAB  IMAGE  IN  BYTES 
SIZE  OF  CET$$A  PSECT  IN  BYTES 
MAX  BUF  SIZE  IS  2776  OCTAL 
YIKFS  !! 


ERRORS 

jlO$:   MOV  R5,$BFR 

MOV  R4,$8FR+2 

CMP  *2776,$BFR 

BLO  130$ 

ERRPT$  ERR1,$ER0UT, FATAL 

120$:   ERRPT$  ERR2,ER0UT, FATAL 

130$:   ERRPT$  ERR3,ER0UT, FATAL 

ERROR  TEXT 

ERMSG$  <PSECT  'CET$$A'  (  currentl)f  XO   bytes  )  should  be  set  to5;n> 

ERMSG$  <5!0  bytes  to  accomodate  this  exceptionally  large  Ct'X> 

ERMSG$  <5;ndata  base.> 

ER6LK$  ERR1,<$BFR+2,$8FR> 

ERMSG$  <CETAB  data  structures  are  inconsistent .> 

ERBLK$  ERR2 

ERMSG$  <The  communications  executive  data  structures  are  too  large/Cn> 

ERMSG$  <for  VNP's  internal  buffer.  The  buffe-  (  CET$$A  PSECT  )Xn> 

ERMSG$  <can  be  expanded  to  2U00  bytes  maximum  (  from  the  current%n> 

ERMSG$  <ll!0  bytes  ),   but  this  configuration  needs  XO   bytes.;' 

ERMSG$  <:JnThis  error  is  not  recoverable  without  source  modifications. > 

ERBLKS  ERR5,<GCLBUF+2,GCLBUF> 

EXTRA  ERROR  MESSAGE  PROCESSING 
^ROU- : 

USE  $BrR  BUFFER  BECAUSE  MESSAGE  IS  TOOOOOO  BIG  '. 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


FE.CEX 
F.NRBD 
F.RSI2 
RSSMPL 
SYSFDB 

$BFR 

SBIGC^ 

SCEAVL 

SCETAB 

SCETDF 

SCETLN 

SCEXND 

SFMASK 

SLLCTA 

i;ntlhb 

SNTLPT 

SPOVNM 

SPDVTA 

SPUTAD 

SPUTRC 

SRADDR 

JRBLCK 

SSAVAL 

SSLTMA 

SSLTNM 

SVIMO 

.CEAVL 

.MGMGE 

.PDVTA 


*»*«».  GX 

.*«»»*  GX 

.«»*»«  GX 

»»♦**«  GX 


=  ****** 
=  ****** 
=  ****** 
=  ****** 

r  ****** 

=  ****** 

=  ****** 

=  ****** 

=  ****** 

-  ****** 
r  ****** 
=  **-^*** 
:=  ****** 
=  ****** 
r  ****** 

-  ****** 


****** 
*  *  -  *  *  ♦ 
****** 
****** 

UOOOOO  RG 
******  GX 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 


uX 


REFERENCES 

5-168 
»5-nA 
•5-116 

5-162 
•5-11A 
*5-155 

5-165 
•5-132 

5-163 

5-125 

5-78 

5-120 

5-115 
•5-168 

5-93 

5-150 

5-155 

5-80 

5-79 

5-155 

5-116 
•5-116 
•5-155 

5-74 

5-86 

5-87 
#5-71 

5-164 

5-152 

5-116 


•5-125 
•5-126 

•5-116 
•5-157 

•5-136 

5-129 

•5-124 

•5-110 

5-157 

•5-108 

5-126 
•5-126 


•5-109 
5-94 


•5-129 
•5-137 

•5-125 
•5-163 

5-139 

5-141 

5-127 


5-114 

5-137 
•5-137 


D  11 

PAGE  1 

CREF   04.00 


VINI 
CONST 


•5-141 
•5-145 

•5-126 
•5-164 

•5-143 


5-131 


5-115 

5-145 
•5-145 


♦5-150 
•5-155 

•  5--' 29 
•5-165 


5-133 


5-126 

5-157 
•5-155 


•5-163 
•5-157 

•5-137 


•5-144 


5-130 

5-164 
•5-157 


•5-165 
•5-164 

•5-141 


5-145 


•5-145 


•5-150 


•5-164 
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398  001 57A 

399 

AOO 

401 

402  001602 

403  001606 

404  001612 

405  001614 

406  001616 

407  001620 

408  001622 

409  001626 

410  001630 

411  001634 

412  001640 

413  001642 

414  001646 

415  001650 

416  001654 

417  001660 
418 

419 

420  001662 

421 

422 

423  001666 

424 

425 

426 

427 

428  001672 

429  001676 

430  001702 
^31  00170(. 
432  001712 
433 

434 

435 

436  001714 

A37  001720 

438  00172'. 

439  001730 

440  001746 
A41  001754 
A42  001756 
443  001^64 
444 

445 
446 
447 
4'-8 

449  001 766 

450  002002 

451  002016 

452  002024 

453  002032 
454 


016767     OOOOOOG  OOOOOOG 


MOV  $8Ffi,$NTUIC 

SET   UP  DEFAULT   UK   AS   NET   UK 


012700 
012/01 
112120 
001376 
005300 
005001 
156701 
0050C2 

112720 
005001 
156701 
005002 

112720 
105010 


012700 

012^01 


OOOOOOG 
000000' 


000001 G 

000054 
OOOOOOG 

000135 

OOOOOOG 
OOOOOOG 


160$: 


MOV 

MOV 

M0V8 

BNE 

DEC 

CLR 

BISB 

CLR 

CALL 

MOVC 

CLR 

BISB 

CLR 

CALL 

Move 

CLRB 


#$DFUIC,RO 

#DEFDEV,R1 

(R1)t,(R0)+ 

160$ 

RO 

Rl 

$NTUK*1,R1 

R2 

$CBOMG 

#<',>, (R0)+ 

Rl 

$NTUK,R1 

R2 

$CBOMG 

#'],(RO)t 

(R05 


LOOK  UP  COMEXEC  SYMBOLS 


MOV 


#$DFUIC,RO 


.IF  NDF  R$$MPL 

MOV     #$CEX,R1 

.JFF 

MOV     #$RSX,R1 

.ENDC 


012702  OOOOOOG 
0 1^700  004046' 
103433 


MOV 

CALL 

MOV 

CALL 

BCS 


#$STB,R2 

$AZFS 

#CEXSTB,RO 

$SYMBL 

190$ 


UPDATE  ROOT  SEGMENT  VALUE 


POINT  TO  DEFAULT  DEVKE/UK  STORAGE 
POINT  TO  DEFAULT  DEVICE  NAME 
STORE  DEFAULT  DEVICE  NAME 


GET  USER  GROUP  CODE 

ALLOW  ZERO  SUPPRESSION 
PUT  GROUP  CODE  IN  UK  STRING 
STORE  UK  SEPARATOR 
GET  USER  MEMBER  CODE 

ALLOW  ZERO  SUPPRESSION 

PUT  USER  MEMBER  CODE  IN  STRING 

STORE  UK  TREMINATOR 

MAKE  IT  AN  ASCIZ  STRING 


USE  DEFAULT  VALUE  SUPPLIED  BY  USER 

COMEXEC  ASCIZ 
FILENAME  ASCIZ 


STB  EXTENSION 

COMPOSE  FILENAME 

ADDRESS  OF  INTERNAL  SYMBOL  TABLE 

LOOK  UP  UNDEFINED  SYMBOLS 

ERROR  ? 


NOW  MOVE  THE  SYMBOLS  TO  THE  ROOT  SEGMENT 


016700 
062700 

032767 
001403 
052767 


OOOOOOG 
000004 

000400  OOOOOOG 

OOOOOOG  OOOOOOG 


170$: 


CALL 

MOV 

ADD 

GETRV 

BIT 

BEO 

BIS 

RETURN 


SYMOV 

.FMASK.RO 

#4,R0 

R0,2 

#F3.11S,$BFR 

170$ 

#VF.SS,$VFLAG 


MOVE  THE  SYMBOLS  TO  RESTING  PLACE 

GET  ADDRESS  OF  FEATURES  MASK 

POINT  TO  $FMASK+4  (3R0  FEATURES  MASK) 

READ  IN  FEATURES  MASK 

IS  THIS  AN  US  SYSTEM? 

BR  IF  NO 

ELSE  INDICATE  US 


VINI 
GTDUI 

10 
10 
10 
10 
10 
10 
10 
10 
10 
IC 
10 
IC 
IC 


ERRORS 


016167 
016167 


000004 
000006 


180$ 
190$ 

OOOOOOG  200$ 

000002G 


ERRPT$ 

ERRPT$ 

MOV 

MOV 

ERRPT$ 


ERR4,$ER0UT, FATAL 

ERRS, $EROUT. FATAL 

S8.SY8(R1),$BFR  ;  LOAD  UNDEFINED  SYMBOL 

SB.SYBt2(R1),$BFR+2  ;   RAD50  NAME 

ERR6,$ER0UT, FATAL 


iiAC   A7U 


E  12 


VINI  -  VNP  INITIALIZAIION 
GTDUIC  -  GET  DEFAULT  UlC 


1009 
1010 
1011 
1012 
1013 
10U 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
102A 
1025 
1026 
1027 
1028 
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.SSTTL  GTDUIC  -  GET  DEFAULT  UIC 


INPUTS: 

NONE 

OUTPUTS: 

SDFUIC  CONTAINS  DEFAULT  UIC 


VLB 


004760 

004764 

004770  010103 

004772  012702  000004G 

004776  012704  000001 

005002 

005006 

000001 


GTDUIC: 


CALL 

SSAVAL 

CALL 

.RDFUI 

MOV 

R1,f?3 

MOV 

#$DFUlCt4,R2 

MOV 

#UICCFG,R4 

CALL 

.PPASC 

RETURN 

SAVE  ALL  REGISTERS 

GET  DEFAULT  UIC 

GET  BINARY  UIC  VALUE 

POINT  TO  BEGINNING  OF  UIC  STRING 

SET  UP  UIC  CONVERSION  FLAG 

CONVERT  TO  ASCII  STRING 


.END 


UIWI    -    UKiP    IMITIAI   IZATinN 


MACRO  VO5.03b  Saturday  29-Jun-85 
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VNCP 


106 
107 
108 
109 
110 
111 
112 
113 
IK 
115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 
127 


SPUTLB 
INPUTS 


RE-WRITE  32.  WORD  LIBRARY  BLOCK 


R0=LIBRARY  BLOric  BIAS  (MAY  BE  THE  HOME  BLOCK) 


OUTPUTS: 

NONE 


000116 

000116  026700  OOOOOOG 

000122  00U32 

000124 

000132  005767  OOOOOOG 

000136  1004K 

OOOKO 

000166  000410 

000170 

000210 

000216 

000001 


iPUTLB: 


10$: 
20$: 


CMP 

BEQ 

SWTCHO 

TST 

8MI 

PUTAD 

BR 

PUTRC 

SWTCHO 

RETURN 

.END 


$NTLPT,RO 

20$ 

#.L8UFf 

.MGMGE 

10$ 

#0,*64.,.LBIAS 

20i 

.LBIAS,#64. 


IS  IT  THE  HOME  BLOCK? 
IF  EQ,  YES  -  ALL  DONE 
CHANGE  DEFAULT  BUFFER 
MAPPED  TARGET  SYSTEM? 
IF  MI,  NO 


RESET  DEFAULT  BUFFER 


L 


E  U 
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VNC 


315  00055'. 

5K 

315 

516 

517 

318  000536 

519  000556 

320  000542 

521  00054A 

522  000550 
325  000552 
524  000556 
325 

526  000560 

527  000564 
328 

529 
350 
331 
532 

553  000566 
35A  000566 

355  000572 
336  000574 
537  000600 

558  000602 

559  000606 
540  000610 
341  000614 
542 

545  000616 
544 

345 

546  000632 

547  000636 
348 

349 
550 
551 

352  000640 

353  000640 

554  000644 

555  000646 

356  000652 
557  000656 

358  C00660 

359  000664 
560 

361 
362 
563 

364  000666 

365  000666 

366  000672 
567  000676 
368  000700 
569  000704 


005767  OOOOOOG 

001003 

OV.OO     OOOOOOG 

0C2003 

062716     000002 

000402 

010057  000062' 


005767  OOOOOOG 

001006 

016700  OOOOOOG 

002403 

020027     000777 

005405 

062716  000002 

000410 

000006 

010067  000002G 


005767  OOOOOOG 

001005 

016700  OOOOOOG 

103002 

062716  000002 


016700  000062' 

005767  OOOOOOG 

001003 

026700  OOOOOOG 

003003 


50$: 

RETURN 

;  Check 

euent  range  beginning 

CKEVEB: 

TST 

.PNUMH 

BNE 

10$ 

MOV 

.PNUMB.RO 

BGE 

20$ 

10$: 

ADD 

#2.(SP; 

BR 

30i          ; 

20$: 

MOV 

RO.EVEBEG 

30$: 

RETURN 

;  Check 

euent  c 

Lass 

CKEVEC: 

TST 

.PNUMH 

BNE 

10$ 

MOV 

.PNUMB,RO 

BLT 

10$ 

CMP 

R0,#511. 

BLE 

20i 

10$: 

ADD 

#2,(SP)        ; 

BR 

30$ 

20$: 

.REPT 

6 

ASL 

RO 

.ENDR 

MOV 

RO.RQB+LO.CLS   ; 

30$: 

RETURN 

;  Check 

euent  number 

CKEVEN: 

TST 

.PNUMH 

BNE 

10$ 

MOV 

.PNUMB.RO 

CALL 

CKEVE 

BCC 

20$ 

10$: 

ADD 

#2,(SP) 

20$: 

RETURN 

;  Check 

euent 

'ange 

CKEVER 

MOV 

EVEBEG,RO 

TST 

.PNUMH 

BNE 

10$ 

CMP 

.PNUMB.RO 

BGT 

20$ 

Is  it  a  word  vaLue  ? 
it  ne,  no  ..  error 
Get  beginning  euent  type 
If  non-zero  ..  okay 
Else,  reject 
And  return 

Saue  beginning  euent  type 


Is  the  euent  class  a  word  value  ? 

If  ne,  no  . .  error 

Else,  get  ewent  class  number 

If  eq,  error 

Is  the  number  in  range  ? 

If  le,  yes  ..  okay 

Else,  reject  transition 

And  return 


Get  euent  class  in  bits  6-15 
And  store  the  euent  class 


Is  the  euent  tyoe  a  word  ualue  7 

if  ne,  no  . .  error 

Else,  get  the  euent  type 

And  check  the  type  ualue 

If  cc,  all  okay 

Else,  reject 


Get  beginning  euent  type 
Is  this  a  word  ualue  ? 
If  ne,  no  . .  error 
Is  ualue  >  beginning  ualue 
if  gt,  yes  . .  okay 
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1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 


004550 

004552 
004560 
004566 


004570 
004574 

004576 
004604 
004624 

004632 
004636 
004642 

004646 
004652 

004654 
004662 

004664 
004672 

004700 

004702 


004722 
004722 
004726 
004732 


004734 
004734 
004740 

004744 
004744 
004750 
004754 
004756 

004760 
004764 
004766 


012767 
052767 


RETURN 

177777     000014G   $STLSH:;MOV 
OOOOOOG  OOOOOOG  BIS 

RETURN 


00576^ 
00iC24 


016700 
042700 
010067 

005767 
001413 

022767 
002407 

016767 
056767 


012702 
012701 
000404 


012702 
012701 


016700 
020167 
103414 
010146 

112722 
005301 
003374 


#-1,L0.SKA*RQB 
#Vf .SKA.tVfLAG 


SET  $HOST  AS  SINK  NODE 

INDICATE  SINK  NODE  ADDRESS  SPECIFIED 


Store  node  address  for  set  node. 


000100' 


000014G 
OOOOOOC 
000100' 

000102' 

001777  000102' 


tSTNAD: 


10$: 


000102' 
000100' 


000022G 
000022G 


101$: 


:TST 
BNE 

SWTCHI 

GETRV 

SWTCHI 

MOV 
BIC 
MOV 

TST 
BEQ 

CMP 
BLT 

MOV 
BIS 

RETURN 

ERROR$ 


AREAN 
0$ 

#$HMBUF 
$DECPT,*D$END 


$HMBUFtD$LNUM,RO 
**CARAMSK,RO 
RO, AREAN 

ADDRS 
101$ 

#MXADDR, ADDRS 
101$  ; 

ADDRS, RQB^LO. ADD 
AREAN, ROB+LO. ADD 


ILLNAD 


000072' 
000006 


000044G 
000006 


OOOOOOG 
OOOOOOG 


000040 


;  Node 

name 

InNAM:: 

w 

*N0DID,R2 

#MXN0DN,R1 

NODNAM 

;  Remot 

e  node 

name 

iSTNAM: 

"mov 

MOV 

#RQ8*L0.NAH,R2  ; 
#MXN0DN,R1 

NODNAM. 

m 

BLO 

MOV 

.PSTPT.RO       ; 

R1,.PSTCN 

101$ 

R1,-(SP) 

10$: 

MOVB 

DEC 

BGT 

*40,(R2)+ 

Rl 

10$ 

Use  default  area  ? 
I  f  no  -  branch 

Set  up  input  buffer 
Read  decnet  home  block 
Reset  input  buffer 

;  Get  executor  address 
Get  area  number 
Store  default  area  number 

Check  lower  address  limit 
If  illegal  -  branch 

Check  high  address  limit 
If  illegal  -  branch 

;  'rjt   node  address 
;  Set  area  number 


Illegal  node  address. 


Get  address  of  output  buffer 

Buffer  size. 

And  continue  in  common  cide 


Get  addreis  of  output  buffer 
Buffer  ■■  ize. 

Store  node  name 

Get  start  of  node  name 

is  node  name  too  long  ? 

If   lo,  yes 

Saue  node  name  field   length 

Blank   f i 1 1   nude  name 
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PVCtDF  ACTION  ROUTINES 
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379 
7Qn 

381 

382 

383  000352 

38A  000352 

385  000356 

103425 

386  000360 

032767  OOOOOOG 

387  000366 

001407 

338 

389 

390 

391  000370 

392  000374 

103413 

393  000376 

394  000402 

103413 

395  000404 

030406 

396 

397 

398 

399  000406 

400  000412 

103404 

401  000414 

402  000420 

103404 

403 

404  000422 

405  000422 

406 

407 

408 

409  000424 

410  000432 

OOOOOOG 


End  of  PVCSDF 

PVEND: 

CALL 
BCS 
BIT 
BEQ 


macro  -  allocate  PVC  name  block 


FNDPRT  ;  Look  for  a  free  port  entry 

102$  ;  Branch  if  none  auuiable 

#PF.XDF,$PFLAG  ;  Check  if  extended  data  format 

10$  ;  Branch  if  not 


Allocate  PVC  name  block  in  extended  format 


CALL 

BCS 

CALL 

BCS 

BR 


CKPVCO 

101$ 

ALPVCO 

102$ 

20$ 


Check  for  valid  PVC  id 

Branch  if  invalid 

Allocate  and  fill  PVC  name  block 

Branch  if  no  store 


Allocate  PVC  name  block  in  old  format 


10$: 


CALL 
BCS 
CALL 
BCS 


J0$. 


RETURN 


ERRORS 


101$: 
102$: 


EMSG$R 
EMSGSR 


CKPVC1 
101$ 
ALPVC1 
102$ 


NO 
N3 


Check  for  valid  PVC  id 

Branch  if  invalid 

Allocate  and  fill  PVC  name  block 

Branch  if  no  store 


INVALID  PVC  ID 

PVC/XCB/PORT/HASH  ALLOCATION  FAILED 


;[TD00n 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001D 
;[TD00n 
;CTD00n 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD001] 
;CTD00n 
.-CTDOOn 
;[TD001] 
;[TD001] 
;CTD001] 
;CTD0013 
;[T0001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;I:TD001] 
;**-34 
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VFPPVC  CREATED  BY     MACRO     ON  29-JUN-85   AT  02:38 

SYMBOL    CROSS   REFERENCE 


E     2 

PAGE   1 

CREF       OA.OO 


ALUE 

REFERENCES 

0004^0  R 

#14-427 

17-574 

18-622 

001152  R 

13-393 

#17-548 

0013^4  R 

13-401 

#18-600 

002256  R 

20-706 

#22-785 

:     »»♦***         GX 

11-286 

:     *«»♦»*        GX 

8-145 

8-146 

8-147 

8-148 

;     .♦♦.«♦         GX 

9-173 

:     »»»«**        GX 

9-172 

r     ******        GX 

8-145 

8-146 

8-147 

8-148 

:     ******        GX 

12-328 

:     ******        GX 

12-340 

=   ******      GX 

11-303 

000664  R 

13-391 

#15-475 

001022  R 

13-399 

#16-513 

000012 

»17-566 

•18-616 

f^C0015 

*17-564 

•18-614 

000016 

15-490 

17-559 

000010 

♦17-565 

•18-615 

000016 

15-485 

16-523 

17-553 

17-569 

000002 

16-526 

18-610 

000002 

15-487 

•17-562 

OOOOK 

•17-567 

•  18-617 

000047  R 

#7-131 

•23-824 

000052  R 

#7-134 

•23-813 

000016  R 

#7-123 

•23-814 

000020  R 

#7-124 

000051    R 

#7-133 

•23-826 

000050  R 

#7-132 

=   ******     GX 

17-566 

18-616 

20-710 

21-745 

000022  R 

#7-125 

•9-168 

-   **.♦♦*     GX 

8-145 

8-146 

8-K7 

=  ******     GX 

8-148 

=  000000 

#8-145 

#8-146 

#8-147 

=  000000 

#8-148 

002120  R 

14-446 

#21-744 

=   ******      GX 

14-455 

23-811 

001522  R 

13-384 

#19-651 

-   ******      GX 

•14-435 

•14-441 

•14-452 

-15-479 

•  19-655 

•19-659 

•20-700 

•21-757 

=   ******     GX 

21-756 

=   ******     GX 

21-750 

21-761 

000020 

14-434 

19-654 

000006 

15-478 

16-516 

17-580 

18-628 

00'676  R 

14-445 

#20-695 

002336  R 

23-808 

23-812 

#23-819 

23-828 

-   »*♦*»»      GX 

17-581 

18-629 

=  000020 

#6-101 

7-130 

15-485 

=   ******      GX 

17-563 

18-613 

=   ****** 

15-484 

16-522 

17-558 

18-609 

OCOOOO  RG 

9-171 

#10-190 

=  000001 

#7-126 

=   ******     GX 

14-428 

14-449 

20-697 

18-604 


18-618 


•  15-485 


23-830 


19-656 


•16-517         •16-523 


•17-570 


•18-618 


20-695 
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17A 
175 
176 
177 
178 

179  000052 

180  000056 

181  00C062 

182  000064 

183  000066 

184  000072 

185  000076 

186  000100 
167  000102 

188  000106 

189  000112 

190  000114 

191  000116 

192  000120 
193 

194 

195 

196  000122 

197 

198 

199 

200 

201  000130 

202  000134 

203  000140 

204  000142 

205  000144 

206  000146 

207  000152 

208  000160 

209  00:164 
210 

211 
212 
213 

214  000166 

215  000174 

216  000176 

217  000202 
218 

219 
220 
22^   00C204 


.SBTTL  RDTSDF  ACTION  ROUTINES 


016700  OOOOOOG 

012702  0000U6 

020002 

101016 

012701  000000' 

112721  000040 

005302 

003374 

012701  000000' 

016702  OOOOOOG 

112221 

005300 

003375 


REMOTE  DTE  NAME 


RDNAM: 


5$: 


10$: 


MOV 

MOV 

CMP 

BHI 

MOV 

MOVB 

DEC 

BGT 

MOV 

MOV 

Move 

DEC 
BGT 
RETURN 


.PSTCN.RO 

#RDTEMX,R2 

R0,R2 

loh 

#RDTNAM,R1 

#SPALE,<Rl)t 

R2 

5$ 

#RDTNAH,R1 

.PSTPT,R2 

(R2)+,(Rl)t 

RO 

10$ 


ERRORS 
101$:        EMSGIR      LO 

START   OF   REMOTE   DTE   ADDRESS 


012700 
01270' 
105021 
005300 
003375 
105067 
012767 


000017 
000006' 


RDTEST: 
10$: 


OCOOOOG 
000006'  OOOOOOG 


MOV 

MOV 

CLRB 

DEC 

BGT 

CLR8 

MOV 

CALL 

RETURN 


#RDTLN,RO 

#I(DTE,R1 

(R1)  + 

RO 

10$ 

COUNT 

#fiDTE,NEXT 

STRNXT 


026757  OOOOOOG  000024' 
101 


PROCESS  REMOTE  DTE  DIGIT 
RDTENO 


CMP 
BHI 
CALL 
RETURN 

ERRORS 

101$:   EMSG$R 


NEXT,#RDTEN 

101$ 

STRNXT 


LI 


GET  NUMBER  OF  CHARACTERS  SPECIFIED 

GET  MAXIMUM  ALLOWED 

LEGAL  NAME  LENGTH? 

BR  IF  NO 

POINT  TO  REMOTE  DTE  NAME  STORAGE 

FILL  WITH  SPACES 

MORE  TO  PAD? 

BR  IF  YES 

POINT  TO  REMOTE  DTE  NAME  STORAGE 

POINT  TO  SPECIFIED  NAME 

STORE  SPECIFIED  REMOTE  DTE  NAME 

MORE  TO  STORE? 

BR  IF  YES 


ILLEGAL  REMOTE  DTE  NAME 


GET  LENGTH  OF  REMOTE  DTE  ADDRESS 

GET  ADDRESS  OF  BUFFER 

INITIALIZE  BJFFER 

MORE  TO  INITIALIZE? 

BR  IF  YES 

INITIALIZE  DIGIT  COUNT 

START  STORING  AT  BEGINNING  OF  BUFFER 

STORE  CHARACTER 


VFPRNW  ■ 
Local  D. 

98 
99 

100 
101 
102 
103 
104 
105 


TOO  MANY  DIGITS? 

BR  IF  YES 

STORE  NEXT  DIGIT 


ILI  EGAL  REMOTE  DTE  ADDRESS 


F.  3. 
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Local  Data 


98 

99 

TOO  0001 6A 
101  000165 
10? 
103 
10A 
105  000000 


.SBTTL  Local  Data 


STRLEN:  .8LKB 
STRBUF:  .BLK8 

.EVEN 

.PSECT 


1 
MAXSTR 


Length  of  parsed  string 
Buffer  ror  parsed  string 
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vroRNW  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturoay  29-Jun-85  02:40  Page  21 


012701  00010A 

103511 
010005 

012700  OOOOOOG 

012701  000104 
105020 


ALNE*   Allocate  remote  network  block 


435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 

448  000540 

449  000540 

450  000544 

451  000550 

452  000554 

453  000560 

454  000562 

455  000564 

456  000574 

457  000600 

458  000604 

459  000606 
460 

461  000612 

462  000616 

463  000620 

464  000624 

465  000630 

466  000634 

467  000640 

468  000644 

469  000650 

470  000652 
^71  000656 

472  000660 

473  000664 
Wm   000670 

475  000672 

476  000676 

477  000702 

478  000706 

479  000712 

480  000714 

481  000720 

482  000724 

483  000730 

484  000734 

485  000736 

486  000742 

487  0007'',6 

488  000752 

489  0007^0 

490  000774 

491  001000 


VFPX2' 
MAiRO 


012700 
112001 
110167 
012^02 

012700 
012701 

010002 
012700 
112001 

012700 
112001 
110167 
012702 

012700 
112001 
110167 
012702 

012700 
112001 
110167 
012702 


OOOOOOG 

000002G 
000003G 

000023G 
000006 


OOOOOOG 


OOOOOOG 

000031 G 
000032G 

OOOOOOG 

000052G 
000053G 

OOOOOOG 

000063G 
000064G 


.SBTTL  ALNET   Allocate  remote  network  block 

•»*  ALNET  -  Allocate  remote  network  block 

INPUTS 

All  parsed  fi'eltis  for  RNU$DF/RNA$DF 
SPSIPT  -  pointer  to  "SI  homeblock 

OUTPUTS  .  , 

Carry  clear  -  network  block  allocated  and  linked 
Carry  set  -  no  space  for  block 
All  registers  preserved 


ALNET: 


10$: 


016700  OOOOOOG 
062700  000042 


CALL 

SSAVAL 

SAVMAP 

MOV 

*R$NUL,R1             ; 

CALL 

SALPOL 

BCS 

100$ 

MOV 

R0,R5 

CEACCS 

R0,R4 

MOV 

#$8FR,R0 

MOV 

#R$NWL,R1 

CLRS 

(R0)  + 

soe 

Rl,10$ 

MOV 

#RNTL,RO             ; 

M0V8 

(R0)+,R1 

MOVB 

R1,$8FR+R$NML 

MOV 

#$8FR+R$NUK,R2 

CALL 

MOVE 

MOV 

#$BFR+R$NOO,R0 

MOV 

#MXN0ID,R1 

CALL 

SPFILL 

MOV 

RJ,R2 

MOV 

#RNNL,RO             ; 

MOVB 

(fiO)+,Rl 

CALL 

MOVE 

MOV 

#RNUL,RO 

MOVB 

(R0)+,R1 

MOVB 

R1,$8FR+R$USL 

MOV 

#$BFR+R$USR,R2         ; 

CALL 

MOVE 

MOV 

#RNPL,RO 

MOVB 

(R0)+,R1 

MOVB 

R1,$8FR+R$PAL 

MOV 

#$BFR+R$PAS,R2 

CALL 

MOVE 

MOV 

#RNAL,RO              ; 

MOVB 

(R0)+,R1              ; 

MOVB 

R1,$8FRtR$ACL 

MOV 

#$BFR+R$ACC,R2 

CALL 

MOVE 

PUTAD 

R4,#R$NWL 

MOV 

$PSIPT,RO 

ADD 

*H$RNW,RO 

CALL 

LNKEND 

Save  all  registers 

Save  current  mapping 

Length  of  block  to  allocate 

Attempt  allocation 

Brancn  if  failure 

Save  unmapped  address  of  allocation 

Map  to  allocation 

Clear  allocated  area  to  zeroes 


Get  address  of  network  name  buffer 

Get  name  length 

Insert  length  into  block 

Target  for  network  name 

Insert  network  name  into  block 

Target  for  node  name 

Space  f i II  node  name 

Target  for  node  name 

Address  of  node  name  buffer 

Length  of  node  name 

Insert  node  name  into  block 

Get  address  of  user  name  buffer 

Get  user  name  length 

Insert  user  name  length  into  block 

Target  for  user  name 

Insert  user  name  into  block 

Get  address  of  password  buffer 

Get  length  of  password 

Insert  password  length  into  buffer 

Target  for  password 

Insert  password  into  buffer 

Get  address  of  account  buffer 

Get  length  of  account 

Insert  account  length  into  block 

Target  for  account 

Insert  account  into  buffer 

Write  out  block  to  system  itrage 

Get  address  of  listhead 

Link  block  (unmapped  addr  in  R5) 


f  5 


VFPX29  -  CONflG  riLE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  02:^1  Page  5 
POAi.RO  DEFINITIONS 


52 

54 
55 
56 
57 

58 

59 

60  000000 

6'  000000 

62 


.SBTTL  MACRO  DEFINITIONS 

LIBRARY  MACROS 

.MCAI L  EMSG$R,NTLER$,X29DF$,PHBDF$,ISTAT$, STATES, TRANS 
.MCALL  GETRV.PUTRC 


X29DF$ 
PHBDFS 


;  X.29  DATS  GlOCK  DEFINITIONS 
;  PSI  HOME  '-OCK  DEFINTIONS 


..  L  ^. 


VFPX5P  - 
MACRO  DE 

55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 


E  7 

INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:41  Page  5 
FINITI0N5 

.SBTTL  MACRO  DEFINITIONS 


LIBRARY  MACROS 


.MCALL  EMSG$R,CHNDF$,PTEDF$,NTLER$, TRANS, STATES, I  STATS 
.MCALL  GETRV,PUTRC,GETAD,PUTAD,CEACC$ 


000000 
000000 


CHNDFS 
DTEDFS 


LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV  $R8LCK,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV  (SP)  +  .,SRBLC< 

.ENDM 


DEFINE  CHANNEL  TABLE  OFFSETS 
DEFINE  DTE  DESCRIPTOR  OFFSETS 


f  7 


n 


VFPX5P     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:41 
MACRO  CROSS  REFERENCE 


E  8 

PAGE  3 

CREF   04.00 


1ACR0  NAME 

CALL 

CEACCt 

CHNDFS 

DBGTPS 

DTEDFS 

EMSGSR 

GET  AD 

GETRV 

ISTAT$ 

MTRANS 

NTLERI 

PUTAD 

PUTRC 

RAND 

RESMAP 

RETURN 
SAVMAP 
STATES 

TRANS 


REFERENCES 

8-131 

12-303 
#5-61 
#5-60 
#9-H8 
#5-60 
#5-60 
#5-61 
#5-61 
#5-60 
#9-148 
#5-60 
#5-61 
#5-61 
#12-294 
#12-316 
#5-73 

8-135 
#5-69 
#5-60 
#10-185 
#5-60 
#10-186 


11-209 
12-305 
12-296 
5-63 
#10-190 
5-64 
8-140 
12-298 
12-305 
9-148 

7-100 

12-303 

12-294 

12-294 

12-316 

12-319 

11-212 

12-295 

9-153 

#10-188 

#9-154 

#10-189 


11-221 
12-309 


#10-200 

11-216 
12-316 


12-318 

12-509 

#12-298 

#12-318 

11-226 

#9-156 
#10-192 
#9-157 
#10-190 


11-236 
12-316 


11-230 


12-298 
12-318 

11-239 

#9-159 
#10-198 
#9-160 
#10-193 


11-248 

12-318 


11-231 


#12-303 


11-253 

#9-162 
#10-202 
#9-163 
#10-199 


12-288 


11-243 


12-303 


12-274 

#9-165 

#9-166 
#10-200 


12-289 


11-257 


#12-305 


12-320 
#9-168 
#9-169 


12-294 


n-258 


12-305 


#9-171 
#9-172 


12-296 


12-325 


#12-309 


#9-174 
#9-175 


12-298 


12-326 


12-309 


10-182 
#10-183 


VHELP  - 
Symbol 

Work  f 
Size  ol 
Size  o( 
Operati 

Elapsec 
SY:VHEL 


F     8 


VHELP  -  HELP  ROUTINE  FOR  VNP 
Symbol  tab  e 

Work   file  wn'tes:  0 

Size  ot  work  tile:  12930  Words  (  51  P^ges) 

Size  of  core  pool:  U4^0  Words  (  55  Pages) 

Operating  systerr:  RSX-11M/PLUS 

Elapsed  time:  00:00:08.28 
SY:VHELP.V2,[1i2,134]VHELP/CR/-SP=SY; 


MACRO  V05.03b  Saturday  29-Jun-85  h:i^2     Page  6-2 


VIMl 


[1,1]RSXMCM.SML/ML,[130,110]NETLie/ML,[130,10]RSXMCM/PA:1,[132,10]VHELP 


3' 
3' 
3' 
3' 
3' 
3' 
3' 


F  9 


VIMI  -  VNP  READ  IN  CEX  IMAGE 


I  10 
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?^1 
3« 


002012 
_  _  002020 
?A5  002026 
3A4  00203^ 

34' 


012767 
016767 
016767 
000167 


000001 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
000002G  000002G 
OOOOOOG 


MOV 

nov 

MOV 
JMP 


.END 


#$eFR,$CLBUF 
$8FR,GCLBUF 
$eFR+2,GCLBUFt2 
SEROUT 


SET  NEW  GCL  BUFFER 
GET  PARAMETER  VALUES 

PRJNT  OUT  MESSAGE 


VIMO 

MACRO  C 

MACRO  N 

CALL 

ERBLKS 

ERMSGS 

ERRPTS 

GETRV 

PUTAD 

PUTRC 

RAND 

RETURN 
SWTCHO 
VNPBPT 


(AC   A7U 


F  10 

-0';  m./') 


D^na      l^.lf. 


E  11 

VIMO 

CREATED  BY     MACRO     ON  29- 

■JUN-85  A- 

02:43           PAGF   2 

MACRO   CROSS 

REFERENCE 

CREF        04.00 

MACRO  l^AME 

REFERENCES 

CALL 

5-?4 

5-116 

5-126 

5-137             5-145 

ERBLKS 

#5-7? 

ERMSG$ 

#5-73 

ERRPTS 

#5-73 

GETRV 

#5-68 

PUTAD 

#5-68 

5-155 

PUTRC 

#5-68 

5-116 

5-126 

5-137            5-145 

RAND 

#5-116 

5-116 

#5-126 

5-126          #5-137 

#5-157 

5-157 

#5-164 

5-164 

RETURN 

5-169 

SWTCHO 

#5-68 

5-114 

5-125 

5-129            5-141 

VNPBPT 

#5-72 

5-75 

VINI 
CONS' 


5-155 


5-157 
5-137 


5-150 


5-157 


5-164 
#5-145 


5-163 


5-'64 

5-145 
5-165 


#5-155 


5-155 
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VINI  -  VNP  INITIALIZATIOM 
CONSTANT  DEFINITIONS 

A57 

458  C02M6 

459  002125 

460  002136 

461  002146 

462  ^'02227 

463  002255 


MACRO  V05.03b  Saturday  29-Jun-85 


5  12 

02:4 


3  Page  9-3 


error  text 


ERMSG$ 
ERMSGS 
ERBLKS 
ERMSGS 
ERMSGS 
ER8LKS 


<Exccutii/e  symbol  table  file  open  failure  (  %E   )> 
<Xn     (  XA  )■• 
ERR4,<SCLFDB♦F.ERR,FILE>  ,   ^., 
<Communications  executis/e  symbol  table  file  openXn> 
<failure  (  J£E  )  (  XA  ).> 
ERRS, <SCIFDB+F. ERR, FILE> 


F  12 

u«rDn  i/n^  n^h  Caf,, rHau  ?Q-lnn-R';  nP-4^ 


Panp  in 


VlNl  -  VNP  INITIALIZATION 
SymboL  table 
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ABTIM 

AS.DEL= 

AS.FXT= 

AS.REO= 

AS.URT= 

A$$CHK= 

At$CPS= 

A$$PR1  = 

At$TRP= 

A. IOC 

A.LrrH= 

A.MPCT 

A.PCB 

A.PCBL 

A.PRI 

A.STAT 

A.TCB 

A.TCBL 

CEAVL 

CEPWR 

CEXSTB 

CLINS 

CLKHD 

CL.AST= 

CL.hTT= 

CL.CAS= 

CL.CMT= 

CL.EIF= 

CL.EXN= 

CL.EXT= 

CL.IND= 

CL.LCC= 

CL.NPR= 

CL.OPN= 

CL.RNE= 

CL.XIT= 

CMODE  = 

CRAVL 

CRCOV 

CS.DIF= 

CS.DVF= 

CS.EQU= 

CS.INP--- 

CS.MOR= 

CS.NMF= 

CS.OUT= 

CS.WLD= 

C$$C<P= 

C$$ORE= 

C$$RSH= 

C.CMLD= 

C.DEVD= 

C.DIRD= 

C.DSDS= 

C.FILD= 

C.Mt;wi  = 

C.MICbil2= 


003726R 

000010 

00000^ 

000001 

000002 

000000 

000000 

000000 

000000 

0C0003 

oooou 

000011 

000012 

000000 

000002 

000010 

000004 

000006 

00A060R 

004115R 

00A046R 

003430R 

003752R 

OOAOOO 

000200 

020000 

000001 

000040 

040000 

000010 

000002 

000020 

000400 

000100 

000004 

100000 

140000 

003310R 

004104R 

000002 

000004 

000040 

000001 

000020 

000001 

000002 

000C10 

000000 

000400 

177564 

000002 

000006 

000012 

000006 

000016 

000024 

000026 


C.S  2E= 

000054 

F.ACrL= 

9595^^ 

C.STAT= 

000001 

F.AL0C= 

000040 

C.SWAD= 

000022 

F.B8FS= 

000'^62 

C.TYPR= 

000000 

F.SDB  = 

9909^9 

DEFDEV 

OOOOOOR 

F.BG8C= 

000057 

DEUMR 

003702R 

F.BKDN= 

000026 

DEVHD 

003334R 

F.BKDS= 

000020 

OLCOV 

004072R 

F.BKEFr 

0099^9 

0$$BUG= 

177514 

F.BKP1= 

000051 

D$$]SK= 

000000 

F.BKST= 

000024 

D$$L11= 

000001 

F.BKVB= 

000064 

D$$YNC= 

000000 

F.CHR  = 

000075 

D$$rNM= 

000000 

F.CNTG= 

000034 

ERR0R1 

000200R 

F.DFNB= 

000046 

ERRO 

000724R 

F.DSPT= 

000044 

ERR1 

000770R 

F.DVNM= 

000134 

ERR10 

004432R 

F.EFBK= 

000010 

ERR11 

00'.520R 

F.EFN  = 

000050 

ERR12 

004602R 

F.EOBB= 

000032 

ERR13 

001310R 

F.ERR  = 

000052 

ERR14 

004754R 

F.EXT  = 

000072 

ERR2 

001060R 

F.FACC= 

000043 

ERR3 

001170R 

F.FF8Y= 

000014 

ERR4 

002140R 

F.FLG  = 

000074 

ERRS 

00:256R 

F.FNAM= 

000110 

ERR6 

002536R 

F.FNB  = 

000102 

ERR7 

002626R 

F.FrYP= 

000116 

EXSIZ 

003346R 

F.FVER= 

000120 

EXSTB 

003276H 

F.HIBK= 

000004 

E$$XPR= 

000000 

F.LUN  = 

000042 

FATAL  = 

♦♦-•*»  GX 

F.MBCT= 

000054 

FD.INS= 

»»*»*»  GX 

F.MBC1= 

000055 

FE.CAL= 

000040 

F.MBFG= 

000056 

FE.CEX= 

020000 

F.NRBD= 

000024 

FE.DRV= 

000010 

F.NREC= 

000030 

FE.DYM= 

010000 

F.OVBS= 

000030 

FE.EXP= 

000200 

F.RACC= 

000016 

FE.EXT= 

000001 

F.RATT= 

000001 

FE.EXV= 

000004 

F.RCNM= 

000034 

FE.FDT= 

002000 

F.RCTL= 

000017 

FE.LSI= 

000400 

F.RSIZ= 

000002 

FE.MUP= 

000002 

F.RTYP= 

000000 

FE.MXT= 

040000 

F.SEQN= 

000100 

FE.NLG= 

100000 

F.SPDV= 

000072 

FE.OFF= 

001000 

F . SPUN= 

000074 

FE.PKT= 

000100 

F.ST8K= 

000036 

FE.PLA= 

000020 

F.UNIT= 

000136 

FE.;<25= 

004000 

F.URBD= 

000020 

FILE  = 

*»»♦»*  GX 

F.VBN  = 

000064 

FMASK 

003360R 

F.VBSZ= 

000060 

FO.MFY= 

«♦*♦»*  GX 

F2.ACN= 

000020 

FRKHD 

003442R 

F2.AHR= 

010000 

FX.DIR: 

000004 

F2.DAS= 

000001 

FX.DLN= 

000003 

F2.DPR= 

000400 

FX.DMX= 

000002 

F2.EVT= 

000010 

FX.LEN: 

000000 

F2.GGF= 

002000 

F$$LVl  = 

-  000001 

F2.IRR= 

001000 

F2.L]B= 

000002 

LD$LP  = 

F2.MP  = 

000004 

LD$REL= 

F2.P0L= 

000100 

LD$RSV=: 

F2.RAS= 

004000 

LO$SUP= 

F2.RBN= 

020000 

LIBASG 

F2.SDU= 

000040 

LSBBLK 

F2.STP= 

100000 

L$BDAT 

F2.SWP= 

040000 

LSBEXT 

F2.WND= 

000200 

LSBFLG 

F3.AST= 

000200 

L$BFL2 

F3.CLJ= 

001000 

LSBHGV 

F3.CRA= 

000001 

LtBHRB 

F3.E1S= 

000004 

LSBLDZ 

F3.NWK= 

000002 

LSBLIB 

F3.PHN= 

004000 

LSBLRL 

F3.PR0= 

000040 

LSBLUN 

F3.RLK= 

020000 

LSBMXV 

F3.SHF= 

040000 

LSBMXZ 

F3.STM= 

000010 

LSBOFF 

F3.TCM= 

002000 

LSBPAR 

F3.UDS= 

000020 

LSBPRI 

F3.WAT= 

010000 

L$BROB 

F3.XHR= 

000100 

LSBROL 

F3.11S= 

000400 

L$BSA 

GTDUIC 

004760R 

LSBSEG 

G$$TPP= 

000000 

LSBSGL 

G$$TSS= 

000000 

LSBSYS 

G$$TTK= 

000000 

LSBTSK 

G$$URD= 

000000 

LSBUND 

HEADR 

003454R 

LSBXFR 

HF.CIS= 

000200 

L$$ASG= 

HF.EIS= 

000002 

L$$DRV= 

HF.FPP= 

100000 

L$$P11= 

HF.QB  = 

000004 

L$$11R= 

HF.UBM= 

000001 

MGEXT 

I$$RAR= 

000000 

MGMGE 

I$$RDN= 

000000 

MPAR  = 

KDSARO= 

172360 

MPCSR  = 

KDSDRO= 

172320 

M$$CR8= 

K]NARO= 

172340 

M$$CRX= 

K  NAR5= 

172352 

l«l$$FCS= 

KINAR6= 

172354 

M$$MGE= 

KINAR7= 

172356 

M$$NET= 

KISARO= 

172340 

M$$0VR= 

KISAR5= 

172352 

NETPF 

KISAR6= 

172354 

NSO 

KISAR7= 

172356 

NSl 

KISDRO= 

172300 

NS2 

K   SDR6= 

172il4 

NS3 

KISDR7= 

172316 

NS4 

K$$CNT= 

177546 

NS5 

K$$CSR= 

177546 

NS6 

K$$LDC= 

000000 

NS7 

K$$TPS= 

000074 

NTUIC 

LB$REV= 

000400 

N$$ACC= 

LD$ACC= 

100000 

N$$BUF= 

LD$CLS= 

020000 

N$$LDV= 

000000 

000004 

040000 

000010 

001000 

000360 

000032 

000352 

000030 

000774 

000012 

000356 

000016 

000040 

000776 

000362 

000014 

000020 

000022 

000004 

000346 

000364 

000366 

000010 

000026 

000354 

000025 

000000 

000024 

000350 

000000 

000000 

000001 

000000 

003644R 

003656R 

172100 

177746 

000124 

000000 

000000 

000000 

000000 

000000 

004022R 

003524R 

003536R 

003550R 

003562R 

003574R 

003606R 

003620R 

003632R 

004034R 

000001 

000001 

000001 
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A$$CHK.= 
A$$CFS^ 
AMPF;I  = 
A$$TRP= 
C$$C<P= 
Ct$ORE= 
C$$RSH= 
D$tBUG= 
0$$1S<= 
D$$Ln  = 
D$$YNC= 
0$tYNM= 
E$$XPR= 
F$SLVL= 
F.NRBD= 


000000 
OOCOOO 
000000 
000000 
000000 
000400 
177564 
1775K 
000000 
000001 
000000 
000000 
000000 
000001 
»**»*•  GX 


F.RS1Z= 
F.URBD= 
G$tTPP= 
G$$TSS= 
G$$TTK= 
G$$WRD= 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LD$LP  = 
L$SASG= 
L$$DRV= 


»*»**»  GX 

000000 

000000 

000000 

000000 

000000 

ooooco 

177546 
177546 
000000 
000074 
000000 
000000 
000000 


L$$P11= 
L$$11R= 
M$$CRB= 
M$$CRX= 
M$$FCS= 
M$$MGE= 
M$$NET= 
M$$OVR= 
N$$ACC= 
N$$BUF= 
N$$LDV= 
N$$MCP= 
N$$MLL= 
N$$MCV= 
N$$NCT= 


000001 
000000 
000124 
000000 

oooooo 

000000 
000000 
000000 
000001 
000001 
000001 
000001 
000001 
000010 
000001 


Page  7-1 

N$$PEM= 
P$$P45= 
P$$WRD= 
Q$$0PT= 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SVSFDB= 
S$$WRG= 
S$$YSZ= 

t$$i<;mg= 

T$$M1N= 
V$$CTR= 
X$$DBT= 


VNCf 


000001 

000000 

000000 

000010 

000000 

000001 

000000 

000000 

*♦»»»♦  GX 

000000 

007600 

000000 

000000 

001000 

000000 


$3FR  =  ******   GX 


*.♦***  GX 
OOOOOORG 
******   GX 
»**«♦*  GX 
**«*«♦  GX 
******   GX 
0001 16RG 
«♦«♦**  GX 
******   GX 
$RBLCK=  *♦«**»  GX 
.LBIAS  OOOOOORG 
--     000002RG 
**»♦*♦  GX 


$G£TAD= 

IGETLB 

$GETRV= 

$NTLHB= 

$NTLPT= 

$PUTAD= 

SPUTLB 

$PUTRC= 

$RADDR= 


.LBUFF 
.MGMGE= 


00? 
002 


ABS.  000000 
000220 
DATA    000102 
Errors  detected: 


000 
001 
002 
0 


(RU,1,GBL,ABS,0VR) 
(RW,I,LCL,REL,CDN) 
(RU,D,LCL,REL,CON) 


»««  Assembler  statistics 


Work  file  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool ; 
Operating  system; 


0 

0 

9493  Words      (   38  Pages) 

14440  Words      (   55   Pages) 

RSX-11M/PLU5 


5Y?VLBlo!v2!h32;?34]VLBIO/CR/-SP=SV:[1  J]RSX|V|CM.SML/ML,[130J10]rjETLI8/ML,C130J0]RSXMCM/PA:l,Ll32J0 


rDcnTun    dv      Miron      n\i    JQ-illM-RS    it    07:44 
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VN( 


^70  000706 
571  000712 
572 

373  000714 

374  000720 

375  000722 

376  000724 

377  000730 

378  000732 
379 

380 
381 
382 

383  000734 

384  000734 

385  000740 
386 

387 

388  000744 

389  000746 

390  000750 
391 

392  000752 

393  000752 
394 

395  000754 

396  000760 

397  001000 
398 


062716  000002 
000407 


103772 

005200 

020067  OOOOOOG 

003771 


016700  OOOOOOG 
042700  173717 


010001 
005401 
040100 


00141' 

062716  000002 


10$: 
20$: 

30$: 


ADD 
BR 

CALL 

BCS 

INC 

CMP 

BLE 

RETURN 


*2,(SP) 
30t 

CKEVE 

10$ 

RO 

RO,.PNUMB 

20i 


Else,  reject 
And  return 

Check  event  types 
If  cs,  error 
Go  to  next  event  type 
Is  this  still  in  range 
It  le,  yes  ..  continue 


Check 
iCKLOG: 


LOGGING  entities 


MOV     $0PTON,R0      ;  Get  <nod, lin,c ir>  bits  of  $opton. 
BIC     #*C<OP$NOD10P$LNE!OP$CIE>,RO 


;       RO  :=  BIC(-RO,RO) 
MOV   R0,R1 
NEG   R1 
BIC   RI.RO 

10$:;   IF  any  bits  left 
BEO   19$ 
THEN  fail 

ADD   #2,(SP) 
ERR0R$  BDGRP 

19$:;   ENDIF 


Strips  the  lo-order  bit  of  RO. 


;  More  than  one  entity  was  specified. 
;  Bad  parameter  grouping. 


399  001000 

RETURN 

400 
401 
402 

;  Object  task  copies 

403 

icOP:: 

404  001002 

405  001002 

005767 

OOOOOOG 

TST 

. PNUMH 

; 

406  001006 

001013 

BNE 

101$ 

407  001010 

016767 

OOOOOOG 

000010G 

MOV 

.PNUMB 

RQB+LO. COP 

408  001016 

022767 

000077 

OOOOOOG 

CMP 

#MXC0P 

. PNUMB   ; 

409  001024 

103404 

BLO 

101$ 

; 

410  001026 

001002 

BNE 

10$ 

^ 

411  001030 

005067 

000010G 

CLR 

RQB+LO 

COP 

412  001034 

10$:    RETURN 

413  001036 

101$:   ERR0R$ 

OCOPTL 

; 

414 

415 

416 
417 
418  001056 

;  Line  cost 

005767 

OOOOOOG 

ICOST::  TST 

.PNUMH 

• 

419  001062 

001011 

BNE 

101$ 

^ 

420  001064 

026727 

OOOOOOG 

0C0031 

CMP 

.PNUMB 

#MXCST   ; 

421  001072 

101005 

BHI 

101$ 

' 

422  001074 

016767 

OOOOOOG 

000020G 

MOV 

.PNUMB 

RQB+LO. COS 

423  001102 

001401 

BEQ 

101$ 

; 

424  001104 

RETURN 

425  001106 

101$:   ERRORS 

ILLCOS 

; 

426 

Must  be  a  word  value 

If  ne,  illegal 

;  Store  the  number  of  copies 

Is  the  value  in  range  ? 

If  lo,  no 

If  ne,  not  maximum 

Else,  set  to  maximum 

Illegal  number  of  object  copies 


Must  be  a  word  value 

If  ne,  no 

Check  cost  value 

If  hi,  illegal  cost  value 

;  Else,  save  cost  value 

If  zero,  illegal 


Illegal  cost  value 
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1109 

1110 

1111 

1112 

1113 

IIH 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1125 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 


004770 
004772 
004776 
005000 
005002 

005004 
005006 


162602 
016701 
112022 
005301 
005375 


OOOOOOG 


005026 
005032 
005036 
005040 
005044 
005050 
005052 


005072 
005076 
005102 
005106 
005110 
005114 
005116 
005120 
005122 
005124 
005130 
005134 
005136 
005140 
005142 
005144 
005146 


005166 
005172 
005174 
005200 
005202 
005206 
005210 
005214 
005220 
005222 
005224 
005226 


012702  000006 

103405 

010067  000010G 

010167  000012G 


012702 
016700 
016701 
003406 
020127 
003014 
112022 
005301 
001375 
012701 
166701 
003403 
105022 
005301 
001375 


016700 
003403 
020027 
101403 
062716 
000407 
012702 
016701 
112122 
005300 
003375 


000030G 
OOOOOOG 
OOOOOOG 

000010 


000010 
OOOOOOG 


OOOOOOG 

000050 

000002 

000u35G 
OOOOOOG 


sue 

{SP)+,R2 

Restore  output  butter  ptr. 

MOV 

.PSTCN, 

f)1 

Restore  node  name  length. 

20$: 

MOVB 

(RO)t, 

R2)t 

Save  remote  node  name 

DEC 

R1 

.  *  ■ 

BGT 

20$ 

... 

RETURN 

101$: 

ERROR$ 

NAMETL 

Node  name  too  long 

;  Partition  name 

iSTPAR: 

:MOV 

*6,fi2 

Set  max  field  length 
Convert  up  to  6  characters 

CALL 

RAD 

BCS 

101$ 

It  CS,  more  than  6 

MOV 

RO.RQB 

►  LO.PAR 

Set  partition  name 

MOV 

R1,RQB 

^L0.PAR+2 

RETURN 

101$: 

ERROR$ 

PRNMTL 

;  Receive  pas. 

ord 

iSTRPA 

:MOV 

#R08H0.nPA,R2 

Destination  field  address 

MOV 

.PSTPT 

RO 

Get  field  address 

MOV 

.PSTCN 

12$ 

RI./CS. 

R1 

And  length 
Null  field  ? 
Too  long  ? 

BGT 

101$ 

Ves 

10$: 

MOVB 
DEC 

(R0)+, 
R1 

(R2)t 

Move  all  characters 

BNE 

10$ 

■  Loop  till  done 

12$: 

MOV 

#8.,R1 

•  Max  length 

SUB 

.PSTCN 

,R1 

•  Number  of  zeros 

BLE 

40$ 

■  Nothing  to  pad  if  zero 

15$: 

CLRB 

DEC 

BNE 

(R21  + 

R1 

15$ 

■  Pad  with  binary  zero(s) 

40$: 

RETURN 

101$: 

ERROR$ 

PASUTL 

;  Password  too  long 

Sink  name 

iSTSNM::MOV 
BLE 


10$: 
20$: 
30$: 


40$: 


CMP 

BLOS 

ADD 

BR 

MOV 

MOV 

Move 

DEC 
BGT 
RETURN 


. PSTCN, RO 

10$ 

RO,#MXSN<N 

20i 

#2,(SP) 

40$ 

#fiQBtL0.SNM,R2 

. PSTPT, R1 

(R1)+,(R2)t 

RO 

30$ 


Get  number  of  bytes  in  sink  name 

Br  if  invalid  count 

Valid  number  of  bytes  in  name? 

Br  if  not  valid 

Reject  the  transition 

And  exit 

Point  to  storage  for  sink  name 

Point  to  address  of  sink  name 

Save  sink  name 

Decrement  count 

Loop  unti I  finished 
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412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 

427  000440 

428  000444 

429  000452 

430  000454 

431  000460 

432  000464 

433  000466 

434  000472 

435  000476 

436  000514 

437  000520 

438  000524 

439  000526 

440  000532 
4',1  000536 

442  000552 

443  000556 

444  000562 

445  000566 

446  000572 

447  000576 

448  000600 

449  000604 

450  000612 

451  000614 

452  000620 

453  000634 

454  000640 

455  000642 

456  000646 

457  000652 

458  000656 

459  000662 


.SBTTL  ALLXCB  -  ALLOCATE  X25  CIRCUIT  BLOCK 


ALLXCB  -  ALLOCATE  AND  SET  UP  X25  CIRCUIT  BLOCK 

INPUTS: 

PRTADD  -  ADDRESS  OF  ENTRY  IN  PORT  TABLE 
SPFLAG  -  PSI  characteristics  word 

^    R3  -  MAPPED  ADDRESS  OF  X25  CIRCUIT  BLOCK  (APR  5  MAPPED  TO  BLOCK) 
R0,R1,R2  DESTROYED 


012701  000106        ALLXCB: 

032767  OOOOOOG  OOOOOOG 

001402 

012701  000106 

5$: 
103476 

016702  OOOOOOG 

062702  000020 


016701  OOOOOOG 

006301 

016746  OOOOOOG 


010077  000000' 


103431 

012700  000106 

032767  OOOOOOG  OOOOOOG 

001402 

012700  000106 

016700  000014' 
001404 

110167  000023G 

005067  000030G 


40$: 
50$: 


MOV 

BIT 

BEQ 

MOV 

CALL 

BCS 

MOV 

ADD 

GETRV 

SAVMAP 

MOV 

ASL 

MOV 

CALL 

GETAD 

MOV 

PUTAD 

RESMAP 

CALL 

CALL 

BCS 

MOV 

BIT 

BEQ 

MOV 

GETAD 

MOV 

BEQ 

CALL 

M0V6 

CLR 

PUTAD 

RETURN 


#X$LEN,R1 

#PF.PSV,$PFLAG 

5$ 

#X$GLEN,R1 

SALPOL 

50$ 

$PSIPT,R2 

#H$PTB,R2 

R2,#2 

PORTNO.Rl 

R1 

$8FR,-(SP) 

$CEACC 

(SP)+,R1 

RO.aPRTADD 


INIXCB 

FNDHSH 

50$ 

#X$LEN,R0 

#PF.PSV,$rFLAG 

8$ 

#X$GLEN,RO 

R3,R0 

PVCOWN,RO 

40$ 

FNDPDV 

R1,X$M0WN+$BFR 

X$TCLZt$BFR 


GET  SIZE  OF  X.25  CIRCUIT  BLOCK 

Check  for  PSV  module 

Branch  if  not  present 

PSV  needs  longer  XCB 

ALLOCATE  CIRCUIT  BLOCK 

BR  IF  UNSUCCESSFUL  ALLOCATION 

POINT  TO  PSI  HOME  BLOCK 

POINT  TO  PORT  TABLE  LISTHEAD 

READ  IN  PORT  TABLE  LISTHEAD 

SAVE  CURRENT  MAPPING 

GET  NUMBER  OF  PORTS 

GET  NUMBER  OF  BYTES  IN  PORT  TABLE 

SAVE  UNMAPPED  PORT  TABLE  ADDRESS 

MAP  TO  PORT  TABLE 

READ  IN  PORT  TABLE 

STORE  UNMAPPED  ADDRESS  IN  PORT  TABLE 

WRITE  OUT  UPDATED  PORT  TABLE 

RESTORE  PREVIOUS  MAPPING 

INITIALIZE  X25  CIRCUIT  BLOCK 

FIND  HASH  TABLE  ENTRY  AND  SET  UP 

BR  IF  NO  ENTRY  AVAILABLE 

Get  length  of  circuit  block 

Check  for  PSV  module 

Branch  if  not  present 

PSV  needs  longer  XCB 

Read  in  circuit  block 

GET  PROCESS  OWNER  NAME 

IF  EQ,  NONE  SPECIFIED 

GET  PDV  INDEX 

STORE  PDV  INDEX 

STORE  TIME  SINCE  LAST  ZEROED 

WRITE  OUT  UPDATED  CIRCUIT  BLOCK 


;CTD001] 


.-CTDOOn 
;[TD001] 
;CTD001] 
;CTD00i: 

;**-l 


.-CTDOOI] 
.•LTDOOl] 
;[TD001] 
;[TD001] 
.•CTDOOl] 
;«*-1 
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VFPPVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:38 
SYMBOL  CROSS  REFERENCE 
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CREf   04.00 


VALUE 


REFERENCES 


=  *»»*»*     Gx 

13-386 

=   »«*««»     GX 

14-437 

19-657 

19-671 

000000  R 

#7-116 

14-442 

♦19-668 

OOOC02  R 

#7-117 

♦19-667 

000006  R 

#7-119 

♦11-317 

20-709 

000000  R 

9-169 

000025   R 

#7-128 

♦11-289 

♦12-371 

17-564 

18-614 

V  \J  \f  ^J  ^^    ^         1  * 

000004  R 

#7-118 

♦11-305 

17-565 

1g-§l5 

20-712 

21-749 

21-766 

000027  R 

#7-130 

"5-489 

16-525 

18-612 

23-805 

000026  R 

#7-129 

11-282 

15-486 

17-552 

17-560 

17-568 

OOOOU  R 

#7-122 

♦11-288 

♦12-357 

14-453 

000024  R 

#7-127 

♦19-669 

20-711 

21-767 

000010  R 

#7-120 

♦11-286 

♦12-330 

20-708 

000000  RG 

#10-190 

000166  R 

#11-315 

002344  R 

#23-824 

000012  R 

#7-121 

♦11-287 

•12-342 

20-707 

002276  R 

#23-805 

000352  R 

12-372 

#13-383 

0003.4  R 

#12-367 

000130  R 

#11-299 

000056  R 

#11-281 

=  000006 

#6-100 

11-283 

16-524 

18-611 

C00256  R 

#12-352 

000212  R 

#12-328 

002354   R 

#23-826 

000234  R 

#12-340 

=   ♦♦♦♦♦♦      GX 

8-145 

8-146 

8-147 

8-148 

=  000040 

#6-99 

000054  RG 

#7-140 

20-721 

=   »«.*»*      GX 

11-284 

=   ♦*+*♦♦     GX 

♦9-174 

♦9-177 

=   .«♦»*♦      GX 

♦14-435 
♦19-655 

♦14-441 
♦19-659 

♦14-452 
♦20-700 

♦15-479 
♦21-757 

♦15-485 

♦  16-517 

♦16-525 

♦17-570 

-   * V**** 

8-145 

8-145 

8-146 

8-146 

8-147 

8-147 

8-148 

8-148 

=   «♦»*«*     GX 

11-287 

=  000001 

20-722 

000076 

♦20-719 

20-720 

♦20-720 

000060 

♦20-709 

000024 

♦20-710 

000106 

14-430 

14-451 

20-699 

000026 

♦20-712 

000106 

14-427 

14-448 

20-696 

000023 

♦14-456 

000016 

♦20-708 

000021 

♦20-711 

000072 

♦20-715 

20-716 

•20-716 

000005 

♦20-721 

000030 

♦14-457 

000066 

♦20-713 

20-714 

•20-714 

000015 

♦20-722 

000062 

♦20-717 

20-718 

♦20-718 

♦18-618 
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224 

225 
226 
227  000212 

;•  END 

OF  REMOTE 

DTE  ADDRESS 

004567 

OOOOOOC 

RDEND 

JSR 

R5,$SAVRG 

228  000216 

0127GU 

000010 

MOV 

#<RDTLNtl>/2,R0 

229  C00222 

012704 

000006' 

MOV 

#RDTE,R4 

230  000226 

012705 

000025' 

MOV 

#RDTEP,R5 

231  000232 

CALL 

PCK8CD 

232  000236 

CALL 

CHKRDT 

233  000242 

103474 

BCS 

101$ 

234  000244 

012701 

000024 

MOV 

#R$LEN,R1 

235 

236  000250 

CALL 

$SAVAL 

237  000254 

CALL 

$ALPOL 

238  000260 

103470 

BCS 

102$ 

239  000262 

10$: 

SAVMAP 

240  000266 

010005 

MOV 

R0,R5 

241  000270 

CEACCS 

''O 

242  000300 

012702 

OOOOOOG 

MOV 

*$8fR,R2 

243  000304 

105022 

15$: 

CLRB 

(R2)  + 

244  000306 

005301 

DEC 

Rl 

245  000310 

003375 

B6T 

15$ 

246  000312 

012701 

OOOOOOG 

MOV 

#$8FR,R1 

247  000316 

062701 

000002 

ADD 

#R$NAM,R1 

248  000322 

012702 

000000' 

MOV 

#RDTNAM,R2 

249  000326 

012703 

000006 

MOV 

/»RDTEMX,R3 

250  000332 

112221 

20$: 

Move 

(R2)  +  ,(R1)*- 

251  000334 

005303 

DEC 

R3 

252  000336 

003375 

BGT 

20$ 

253  000340 

116767 

OOOOOOG 

00001 3G 

MOVB 

COUNT, R$DAL+$BFR 

254  000346 

012701 

000010 

MOV 

#<RDTLN+1>/2,R1 

255  000352 

012702 

000025' 

MOV 

#RDTEP,R2 

256  000356 

012703 

OOOOOOG 

MOV 

#$BFfi,R3 

257  000362 

062703 

000014 

ADD 

#R$DTE,R3 

258  000366 

112223 

30$: 

MOVB 

(R2)+,(R3)+ 

259  000370 

005301 

DEC 

Rl 

260  000372 

003375 

BGT 

30$ 

261  000374 

PUTAD 

RO,#R$LEN 

262  000412 

016700 

OOOOOOG 

MOV 

$PSIPT,RO 

263  000416 

062700 

000004 

ADD 

#H$RDTE,RO 

264  000422 

CALL 

LNKEND 

265  000426 

RESMAP 

266  000432 

RETURN 

267 

268 

269 

270 

271  000434 

;  ERRORS 

i01$: 

EMSG$R 

LO 

272  000442 

102$: 

EMSGSR 

L2 

SAVE  R3-R3 

GET  LENGTH  OF  PACKED  ADDRESS 

GET  ADDRESS  OF  ,<EMOTE  DTE  ADDR  BUFFER 

GET  ADDRESS  OF  PACKED  ADDRESS  BUFFER 

PACK  ADDRESS  IN  BCD  FORMAT 

CHECK  DTE  NAME  FOR  UNIQUENESS 

BR  IF  NOT  UNIQUE 

GET  LENGTH  OF  BLOCK  TO  ALLOCATE 

SAVE  ALL  REGISTERS 

ALLOCATE  FROM  NETWORK  POOL 

BR  IF  UNSUCCESSFUL  ALLOCATION 

SAVE  CURRENT  MAPPING 

SAVE  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

GET  ADDRESS  OF  BLOCK 

INITIALIZE  REMOTE  DTE  NAME  BLOCK 

MORE  TO  INITIALIZE? 

BR  IF  YES 

GET  ADDRESS  OF  BLOCK 

POINT  TO  REMOTE  DTE  NAME 

POINT  TO  SPECIFIED  NAME 

GET  LENGTH  OF  NAME 

STORE  REMOTE  DTE  NAME 

MORE  TO  STORE? 

BR  IF  YES 

STORE  LENGTH  OF  DTE  ADDRESS 

GET  LENGTH  OF  DTE  ADDRESS 

GET  ADDRESS  OF  REMOTE  DTE  ADDRESS 

POINT  TO  REMOTE  DTE  NAME  BLOCK 

POINT  TO  DTE  ADDRESS  FIELD 

STORE  REMOTE  DTE  ADDRESS 

MORE  TO  STORE? 

BR  IF  YES 

WRITE  UPDATED  REMOTE  DTE  BLOCK 

GET  ADDRESS  OF  PSI  HOME  BLOCK 

POINT  TO  REMOTE  DTE  LISTHEAD 

LINK  AT  END  OF  LIST 

RESTORE  PREVIOUS  MAPPING 


ILLEGAL  REMOTE  DTE  NAME 

REMOTE  DTE  BLOCK  ALLOCATION  FAILURE 
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107 
108 
109 
110 
111 
112 
113 
lU 
115 
116 
117 
118 
119 

120  000000 

121  000004 
122 

123  000006 
12A 

125  000012 

126  000012 

127  000016 

128  000022 

129  000026 

130  000032 

131  00U036 

132  000042 


133 
134 


000044 
000050 

135  000052 

136 

137 

138 

139  000054 

140 


012705 
000402 

012705 


012701 
012702 
016703 
012704 
005067 

103003 
005367 
001401 


000000' 
000040' 


000001 

000000' 

OOOOOOG 

OOOOOOG 

OOOOOOG 


OOOOOOG 


.S81TL  $QRNW/$QRNA  -  Look  for  RNW$DF/RNA$DF  macro 

«♦•  $ORNW/$ORNA  -  Look  for  RNU$DF/RNA$DF  macro 

INPUTS: 

None. 


State  table  address 


VFPRNW  ■ 
ALNET 

492 
493 


;  OUTPUTS: 

C-8IT=success/fai Lure 

R3,R4,R5  destroyed 

.ENABL 

LS8 

$QRNW:: 

MOV 

#RNWDF,R5 

BR 

10$ 

$QRNA:: 

MOV 

#RNADF,R5 

10$: 

VNPD8G 

VFPRNW 

HOV 

#1,R1 

MOV 

#RNWKW,R2 

MOV 

CFGSZ,R3 

MOV 

*CFG8F,R4 

CLR 

SYNERP 

CALL 

.TPAF.S 

BCC 

20$ 

Bfc 

SYNERR 

BfO 

101$ 

20$: 

RETURN 

;  Error 

condition 

101$: 

EMSG$R 

IT 

.DSA8L 

LSB 

State  table  address 

VNP  debugging  break  point 

Full  keyword  match  length,  blanks  significant 

Keyword  table  address 

Record  length 

Record  buffer  address 

Clear  syntax  error  flag 

Go  do  the  parse 

If  CC,  found  what  we  were  looking  for 

Did  syntax  error  occur? 

If  EQ,  yes 


SYNTAX  ERROR 


§,  ^„ 


F  5 

VFPRNW  -  IMTIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  0<^:';0  Page  21-1 
ALNET   Allocate  remote  network  block 


VFPX2 
LOCAL 


492  001004 

493  001010 


100$:   RESMAP 
RETURN 


Restore  mapping 


Q.   5_ 


VFPX29  -  CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  02:41 
LOCAL  DATA  STORAGE  AND  ERROR  MESSAGES 


Page  6 


VFPX3P 
LOCAL 


6A 

65 

66  000000 

67 

68 

69 

70 

71 

72 

73 

74  000000 

75  000036 

76  000076 

77  000132 
78 

79 
80 
81 
82 
83 
8A 

85  000206 

86  000210 
87 

88  000000 


.SBTTL  LOCAL  DATA  STORAGE  AND  ERROR  MESSAGES 
.PSErr  DATA,D 


ERROR  MESSAGES 


.ENA8L  LC 


NTLERS  ,9A,10,CERR,RTSPC,CFLIN,<occurrence  of  X29$DF> 

NTLERS  ,93,10,CERR,RTSPC,CFLlN,<ualue  for  max  circuits> 

NTLERS  ,9C,10,CERR,RTSPC,CFLIN,<counter  timer  value> 

NTLERS  ,9D,8,CERR,RTSPC,CFLIN,<X.29  data  block  allocation  failure> 

.DSABL  LC 


LOCAL  STORAGE  FOR  X29$DF  PARAMETERS 


MAXVC: 
CTIMR: 


.SLKW 
.8LKW 

.PSECT 


;  MAXIMUM  CIRCUITS 
;  COUNTER  TIMER  VALUE 


G  6 
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VFPX3P  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:A1  Page  6 
LOCAL  SYMBOL  DEFINITIONS 


.SBTTL  LOCAL  SYMBOL  DEFINITIONS 


79 
80 
81 
82 


000001 


LOCAL  SYMBOL  DEFINITIONS 
CHNLMN  =  1. 


MINIMUM  VALUE  FOR  CHANNEL  RANGE 


6  7 


••FILE'MD* 

n'HDAT 

VV      VV 

HH 

HH 

DDDDDDDD 

AAAAAA 

VV      VV 

MH 

HH 

DDDDDDDD 

AAAAAA 

VV      VV 

HH 

HH 

DP      DD 

AA      AA 

VV      VV 

HH 

HH 

DD      DD 

AA      AA 

VV      VV 

HH 

HH 

DD      DD 

AA      AA 

VV      VV 

HH 

HH 

DD      DD 

AA      AA 

VV      VV 

HHHHHHHHHH 

DD      DD 

AA      AA 

VV      VV 

HHHHHHHHHH 

DD      OD 

AA      AA 

vv    vv 

HH 

HH 

DD      DD 

AAAAAAAAAA 

vv    vv 

HH 

HH 

DD      DD 

AAAAAAAAAA 

vv  vv 

HH 

HH 

DD      DD 

AA      AA 

vv  vv 

HH 

HH 

OD      DO 

AA      AA 

vv 

HH 

HH 

DDDDDDDD 

AA      AA 

vv 

HH 

HH 

DDDDDDDD 

AA      AA 

F  8 


TTTTTTTTTT 
TTTTTTTTTT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 

TT 


S5SSS5SS 

TTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

ss 

SS 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLILLLLLLL 

ssssssss 

llllllllll 

SSSSSSSS 
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CREATED  BV     MACRO     ON  29-JUN-85  AT   0'^:'i2 


V'HELP 

SYMBOL  CROSS  Rf TERENCE 

SYMBOL   VALUE 
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PAGE    1 

CREF        OA.OO 


LD.ALl 

LD.CEX 

LD.CIR 

LD.LIN 

LD.LOG 

LD.MOD 

LD.NOD 

LD.OBJ 

LD.PRO 

LO.ADO 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LO.GRO 

LO.HOS 

LO.HTM 

LO.INA 

LO.INC 

LO.LDT 

LO.LIb 

LO.LIN 

LO.LTM 

LO.MAC 

LO.MDE 

LO.NAM 

LO.NET 

LO.NNM 

LO.OFL 

LO.ONM 

LO.OUT 

LO.OWN 

LO.PAR 

LO.PRI 

LO.RET 

LO.RPA 

LO.SCR 

LO.SEG 

LO.SKA 

LO.S<N 

LO.SNM 

LO.TPA 

LO.TRB 

LO.TRI 

LO.UNT 

LO.VCT 


000030 

00002^ 

000035 

000025 

000031 

000037 

000027 

000032 

000026 

000022 

000052 

000002 

000006 

000010 

000020 

000010 

000032 

000002 

000047 

000004 

000024 

000040 

000032 

000062 

000060 

000046 

000030 

000004 

000034 

000022 

000024 

000044 

000002 

000022 

000012 

000004 

000056 

000026 

000010 

000012 

000064 

000030 

000016 

000054 

000014 

000014 

000035 

000020 

000034 

000030 

000033 

000014 


REFERENCES 

*5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 
#5-68 


5-68 
5-68 


r\Ai-r     n 
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VIMI   -  VNP   READ    !N   CEX    IMAGE 
Symbol  table 
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a$$chk:= 

000000 

f2.P0L= 

000100 

H$L8DA 

000070 

A$tCPS= 

000000 

F2.RAS= 

004000 

HSLBDN 

000072 

A$$PR1= 

000000 

F2.RBN= 

02COOO 

H$LDTE 

92559? 

A$$TRP: 

000000 

F2.SDW= 

000040 

H$LEN 

000042 

CMODE  = 

UOOOO 

F2.STP= 

100000 

HSLOTS 

000032 

C$$CKP= 

''OOOOO 

F2.SWP= 

040000 

HSNETW 

000024 

C$$ORE= 

J00400 

F2.WND= 

000200 

HSNML  = 

000006 

C$$RSH= 

17756A 

F3.AST= 

0C0200 

H$NPT 

000022 

D$$BUG= 

1775K 

F3.CLI= 

001000 

HSPTB 

000020 

D$$ISK= 

000000 

F?.CRA= 

000001 

HSPVC 

000006 

D$SLn  = 

000001 

F3.EIS= 

000004 

HSRDTE 

000004 

D$$YNC= 

000000 

F3.NUK= 

000002 

H$RNW 

000042 

D$$VNM= 

000000 

F3.PMN= 

004000 

HSSVC 

000036 

EROUT 

00201 2R 

F3.PR0= 

000040 

H$TRB 

000016 

ERR1 

001266R 

F3.RLK= 

020000 

HSXAVL 

000100 

ERR2 

00154AR 

F3.SHF= 

040000 

HSXBJA 

000074 

ERR3 

002004R 

F3.STM= 

000010 

H$X29C 

000040. 

E$$XPR= 

OOOOOC 

F3.TCM= 

002000 

I$$RAR= 

000000 

FATAL  = 

««**»*  GX 

F3.UDS= 

000020 

I$$RDN= 

000000 

FE.CAL= 

000040 

F3.UAT= 

010000 

KDSARO= 

172360 

FE.CEX= 

020000 

F3.XHR= 

000100 

KDSDRO= 

172320 

FE.DRV= 

000010 

F3.11S= 

000400 

K]NARO= 

172340 

FE.DYM= 

010000 

GCLBUF= 

»♦««**  GX 

KINAR5= 

172352 

fE.EXP= 

000200 

G$$TPP= 

000000 

KINAR6= 

172354 

FE.EXT= 

000001 

G$$TSS= 

000000 

KINAR7= 

172356 

FE.EXV= 

000004 

G$$TTK= 

000000 

K]SARO= 

172340 

fE.FDT= 

002000 

G$$URD= 

000000 

KJSAR5= 

172352 

FE.LSI= 

000400 

HFSDLM= 

000002 

K1SAR6= 

172354 

FE.MUP= 

000002 

HF$GWV= 

000010 

ICISAR7= 

172356 

FE.MXT= 

040000 

HF$HOS= 

000004 

KISDRO= 

172300 

FE.NLG= 

100000 

HF$XDF= 

000020 

KISDR6= 

172314 

FE.OFF= 

001000 

HF.CIS= 

000200 

K]SDR7= 

172316 

FE.PKT= 

000100 

HF.EIS= 

000002 

KSSCNT^ 

177546 

FE.PLA= 

000020 

HF.FPP= 

100000 

K$$rSR= 

177546 

Fn.X25= 

004000 

HF.QB  = 

000004 

K$$IDC  = 

000000 

F$$LVL= 

000001 

HF.UBM= 

000001 

K$$1.-'S= 

9522^^ 

F.RS1Z  = 

»*•*♦>  GX 

HSCUG 

000010 

LDSLF  = 

000000 

F.URBD= 

».♦*♦«  GX 

HSDST 

000012 

L$$A^,G= 

000000 

F2.ACN= 

000020 

H$D29 

000014 

L$$[JRV= 

000000 

F2.AHR= 

010000 

HSFLG 

000000 

i-!!?r= 

000001 

F2.DAS  = 

000001 

HSGLEN 

000104 

L$$11R= 

000000 

F2.DPR  = 

000400 

HSGLT 

000044 

MPAR  = 

172100 

F2.EVT= 

000010 

HSGNAH 

000050 

MPCSR  = 

177746 

F2.GGF= 

002000 

H$GNML= 

000020 

M$$CR8= 

000124 

F2.IRR= 

001000 

HSGPT 

000046 

M$$CRX= 

000000 

F2.LIB= 

000002 

HSHITS 

000034 

M$$FCS= 

000000 

F2.MP  = 

000004 

HSHLEN 

000044 

M$$MGE= 

000000 

.  ABS. 

000104    000 
002040    001 

(RW,I,GBL,ABS,OVR) 
(RW,I,LCL,REL,CON) 

Errors 

detected:  0 

••*  Asseitibler  statistics 

Work,   f 

lie  reads:  0 

Work   ' 

He   writes:  0 

M$$NET^  000000 
M$$OVR=  000000 
N$$ACC=  000001 
N$$BUF=  000001 
N$$LDV=  000001 
N$$MCP=  000001 
N$$MLL=  000001 
N$$M0V=  000010 
N$$NCT=  000001 
N$$PEM=  000001 
PF.PSV=  ******  GX 
PF.XDF=  ******  GX 
PF.XGA=  ******  GX 
PIRQ  =  177772 
PMODE  =  030000 
PRO  =  000000 
PRl  =  000040 
PR4  =  000200 
PR5  =  000240 
PR6  =  000300 
PR7  =  000340 
PS  =  177776 
P$$P45=  000000 
P$$WRD=  000000 
0$$OPT=  000010 
R$$DER=  000000 
R$$K11=  000001 
R$$SND=  000000 
R$$11M=  000000 
SISDRO^  172200 
SRO  =  177572 
SR3  =  172516 
SWR  =  177570 
SYSFDB=  ******  GX 
S$$URG=  000000 
S$$YSZ=  007600 
TPS  =  177564 
T$$KMG=  000000 
T$$MIN=  000000 
UBMPR  =  170200 
UDSAR0=  177660 
UDSDRO=  177620 
UISARO=  177640 
U]SAR4=  177650 
UISAR5=  177652 
UISAR6=  1776';4 
UISAR7=  1776j6 


UISDR0= 

177600 

UISDR4= 

177610 

UISDR5= 

177612 

UISDR6= 

177614 

UISDR7= 

177616 

V$$CTR= 

001000 

X$$DBT= 

000000 

Z.LEN  = 

****** 

GX 

$ADRX  = 

****** 

GX 

$ADRZ  = 

****** 

GX 

$BFR  = 

****** 

GX 

$BIGCT= 

****** 

(iX 

$CEAVL= 

****** 

GX 

$CETAB= 

****** 

GX 

$CETDF= 

****** 

GX 

$CETLN= 

****** 

GX 

$C£TND= 

****** 

GX 

$CETST= 

****** 

GX 

$CEXND= 

****** 

GX 

$CLBUF= 

****** 

GX 

$EROUT= 

****** 

GX 

$FMASK= 

****** 

GX 

$GETAD= 

****** 

GX 

$GETRV= 

****** 

GX 

$LLCTA= 

****** 

GX 

$NTLHB= 

****** 

GX 

$NTLPT= 

****** 

GX 

$PDVNM= 

****** 

GX 

$PDVTA= 

****** 

GX 

$PFLAG= 

****** 

GX 

$PSIPT= 

****** 

GX 

$RADDR=^ 

****** 

GX 

$RBLCK= 

****** 

GX 

$RSIZE= 

****** 

GX 

$SAVAL= 

****** 

GX 

$SLTMA= 

****** 

GX 

$SLTNM= 

****** 

GX 

$UNBSZ= 

****** 

GX 

$VIMI 

OOOOOORG 

$$ 

177777 

$$$   = 

001346R 

$$$R  = 

000010 

$$$$  = 

002004R 

.CEAVL^ 

****** 

GX 

.MGMGE= 

****** 

GX 

.PDVTA= 

****** 

GX 

G  10 

oc  A-1 .  /  ^ 
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•f  1LE««ID«»VIN1 


VIN! 
CONS 


vv 

vv 

null 

NN 

NN 

1 J I 

III 

vv 

vv 

IIIIII 

NN 

NN 

I  1 

111 

vv 

vv 

i: 

NN 

NN 

vv 

vv 

I! 

NN 

NN 

v\/ 

'/V 

11 

NNNN 

NN 

vv 

vv 

II 

NNNN 

NN 

vv 

vv 

II 

NN  NN  NN 

vv 

vv 

II 

NN  NN  NN 

vv 

vv 

1 

NN 

NNNN 

vv 

vv 

I 

NN 

NNNN 

vv 

vv 

II 

NN 

NN 

vv 

vv 

11 

NN 

NN 

vv 

iiiin 

NN 

NN 

lU 

111 

vv 

mill 

NN 

NN 

111 

111 

SSSSSSS5 

TTTTl 

TTTTT 

ssssssss 

TTTI 

TTTTT 

ss 

1 

ss 

1 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 
LLLLLLLLLL 

ssssssss 
ssssssss 
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465 
466 

j 

+ 

»*-$S 

'MOV 

467 
468 
469 

MOVE 
FATAL 

)EFINED  SYMBOLS  TO  ROOT  SECTION  (  VRES  )  REPORTING 
ERRORS  TO  USER. 

470 
4  71 
472 
473 
474 
475 
476 

INP'JTS: 

NONE 

OUTPUTS: 

RO.Rl 
C-6IT 

,R2  DESTROYED 
SET  IF  FATAL  UNDEFINED  REFERENCE  ENCOUNTERED 

477 

478  002264 

479  002266 

480  002272 
481 

482  002276 

483  002302 

006146 
012700 
012701 

OOOOOOG 
003276' 

SVMOV: 

ROL 
MOV 
MOV 

-(SP) 

*$SYMTB,RO 

*EXST8,R1 

C-BIT  MUST  BE  CLEAR  ON  ENTRY 
DESTINATION  TABLE 
SOURCE  TABLE 

005761 
001016 

000002 

5$; 

TST 
BNE 

SB.DEF(RI) 
20$ 

SYMBOL  DEFINED  ? 
YES 

484 

485  002304 

486  002310 
h87  002312 

488  002314 

489  002316 

490  002322 

491  002324 

492  002330 

493  002332 

012702 
005722 
005712 
001426 
022261 
001372 
022261 
001370 
012^61 

002632' 

000004 
000006 
M7777 

10$: 
11$: 

000010  12$: 

MOV 
TST 
TST 
8EQ 
CMP 
BNE 
CMP 
BNE 
MOV 

#OKLIST-2,R2    ;  LIST  OF  SYMBOLS  THAT  MAY  BE  UNDEFINED 

(R2)+         ;  INCREMENT  ADDRESS 

(R2)          ;  END  OF  LIST  ? 

110$           ;  THEN  TELL  USER  OF  FATAL  ERROR 

(R2)+,SB.SYB(R1);  FIRST  HALF  MATCH  ? 

10$           ;  NO 

(R2)t,SB.SYB+2(R1)  ;  SECOND  HALF  MATCH  ? 

11$           ;  NO 

#-1,SB.VAL(R1)   ;  FLAG  SYMBOL  AS  UNDEFINED 

494 

495  002340 

496  002344 

497  002350 

016120 
016101 
001352 

000010 
OOOOOO 

20$: 

MOV 
MOV 
BNE 

S8.VAL(R1),(R0)+; 

SB.LNK(R1),R1 

5$ 

MOVE  SYMBOL  TO  RESTING  PLACE 

CHAIN  DOWN  LIST 

LOOP 

498 
499 

NOW 

MOVE  COMEXEC  SYMBOLS 

500 

501  002352 

502  002356 

503  002360 

504  002364 

020027 
001403 
012701 
000744 

OOOOOOG 
004046' 

CMP 
BEQ 
MOV 
BR 

RO,#$SYMND 
30i 

#CEXSTB,R1 
5$ 

AT  END  OF  ROOT  TABLE  YET  ? 

YES 

LOAD  ADDRESS  OF  CEX  SYMBOLS 

MOVE  THEM 

505 

506  002366 

507  002370 
508 

509 

006026 

30$: 

ROR     (SP)+ 
RETURN 

SET/CLEAR  C-BIT 

':    ERROR  HANDLING 

510 

511  002372 

512  002400 

513  002406 

514  002412 

515  002414 

516  002420 

016167 
016167 
020027 
001406 
012746 

000004 
(00006 
OOOOOOG 

002444' 

OOOOOOG  il0$: 
000002G 

MOV     S8.Sy6(Rl),$BFR 

MOV     SB.SVB+2(R1),$BFR 

CMP     RO.#$SYMND 

BEQ     120$ 

MOV     #130$, -(SP) 

ERRPT$  ERR6,$ER0UT 

;  LOAD  UNDEFINED  SYMBOL 
+2     ;  RAD50  NAME 

;  COMEXEC  SYMBOL  ? 
;  YES 

;  PUSH  RETURN  ADDRESS 
;  EXEC  SYMBOL  WARNING 

518  002430 

519  002434 

012746 

002444' 

120$: 

MOV     *130$,-(SP) 
ERRPT$  ERR7,$ER0UT 

;  SET  RETURN  ADDRESS 
;  CEX  SYMBOL  WARNING 

520 

521  002444 

052716 

000001 

130$: 

BIS 

#1,(SP) 

;  SET  C-BIT  FLAG 

,;MD     IMI  T  I  AI    I  7ftT  TnM 
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N$tMCP= 

000001 

ps.sys= 

000040 

SYMOV 

002264R 

N$$MLL= 

000001 

P$$P45= 

000000 

SVSF08= 

♦»«**•  GX 

NS$MOV= 

000010 

P$$WRD= 

000000 

srsiz 

003404R 

NttNCT= 

000001 

P.BLKS 

000016 

SVSNM 

003416R 

N$$PEM= 

000001 

P. BUSY 

000024 

SVSPMT 

001314R 

N.ANM1= 

000002 

P. IOC 

000003 

S$$WRG= 

000000 

N.ANM2= 

OOOOJi^ 

P. INK 

000000 

S$$YSZ= 

007600 

N.DID  = 

000024 

P. MAIN 

000012 

S.ANMI^ 

89221'^ 

N.DVNM= 

000032 

P.NAM 

000004 

S.ANM2= 

000005 

N.FID  = 

000000 

P.  OWN 

000026 

S.FATT= 

000016 

N.FNAM= 

000006 

P. PRl 

000002 

S.FDB  = 

000140 

N.FTyP= 

OOOOH 

P.REL 

000014 

S.FNAM= 

000006 

N.FVER= 

000016 

P. SIZE 

000016 

S.FN8  = 

000036 

N.NEXT= 

000022 

P.STAT 

000030 

S.FNBW= 

000017 

N.STAT= 

000020 

P.  SUB 

000010 

S.FNTr= 

22928^ 

N.UN1T= 

000034 

P.SWSZ 

000022 

S.FTYP= 

000002 

0<LIST 

002634 R 

P.TCB 

000026 

S.MPR 

003276R 

PARHD 

003372R 

P. WAIT 

000020 

S.NFEN= 

000020 

PATT 

003764R 

Q$$0PT= 

000010 

TLGTH 

003740R 

PDVTA 

004046R 

RSLDAT 

000026 

TPS   = 

177564 

PHDR 

003776R 

RSLFLG 

000024 

TSKHD 

003714R 

PIRQ   = 

177772 

RSLHGV 

000006 

TS$ACP= 

020000 

PLGTH 

003500R 

RtLLDZ 

000012 

TS$CHK= 

000100 

PMODE  = 

030000 

RSLMXV 

000010 

TS$CMP= 

022^22 

PPRO 

004010R 

RSLMXZ 

000014 

TS$IOP= 

000020 

PRO 

000000 

RSLNAM 

000000 

TS$NEW= 

000001 

PRl 

000040 

RSLOFF 

000016 

TS$NHD= 

040000 

PR4 

000200 

RSLSA 

000004 

TS$NSD= 

002000 

PR5   = 

000240 

RSLSEG 

000022 

TS$NXH= 

02222? 

PR6   = 

000300 

RSLSIZ 

000034 

TS$PIC= 

100000 

PR7 

000340 

RSLWND 

000020 

TS$PMD= 

010000 

PS 

177776 

R$$DER= 

000000 

TS$PRV= 

000400 

PS.APR= 

000007 

R$$K11= 

000001 

TS$RES= 

000040 

PS.CHK= 

010000 

R$$SND= 

000000 

TSISLV= 

004000 

PS.CKP= 

040000 

R$$11H= 

000000 

TS$SUP= 

000010 

PS.CKR= 

020000 

R.FIX  : 

*»»»♦*  GX 

TS$XHR= 

000004 

PS.COM= 

000200 

SB.DEF 

000002 

T$$KMG= 

000000 

PS.DEL= 

000010 

SB. INK 

000000 

T$$MIN= 

000000 

PS.DRV= 

000020 

SB.SVB 

000004 

T2$CLI= 

000001 

PS.FXD= 

004000 

SB.VAL 

000010 

T2$FMP= 

000002 

PS.LIO= 

001000 

SISDR0= 

172200 

UBMPR  = 

170200 

PS.NSF= 

000400 

SRO   = 

177572 

UDSARO= 

177660 

PS.OUT= 

100000 

SR3   = 

172516 

UDSDRO= 

177620 

PS.PER= 

002000 

STKDP 

003466R 

UICCFG= 

000001 

PS.PIC= 

000100 

SWR   = 

177570 

UISARO= 

177640 

.  ABS. 

001000 

000   (RW,I,G8L,ABS,0VR) 

005010 

001    (RW,I,L 

CL,REL,C0N) 

Errors 

detected: 

0 

♦"  AsseTibler  sta 

i  s  t  i  c  s 

Work   f 

lie  reads 

0 

Work   ( 

lie  writes 

,_ 

Size  of 

work  file 

TtV'd    -ords 

1    56  Pages) 

Size  0 

core  pool 

15^'."o  Words 

f  59  Pages) 

UISAR4= 

UISAR5^ 

UISAR6= 

UISAR7= 

UISDRO= 

UISDR4= 

UISDR5= 

U]SDR6= 

UISDR7= 

UMRHD 

VCHECK 

VCTR 

VFILE 

VF.INI= 

VF.SS  = 

VSYMB 

VSYM1 

V$$CTR= 

V1.NSY= 

X$$DBT= 

$AZFS  = 

$BFR  = 

$CBOMG= 

$CEX  = 

$CLBUF= 

$CLCSI= 

$CLEVL= 

$CLFDB= 

$CLFLG= 

$CLIOS= 

$CLPHT= 

$CRAVL= 

$DEVHD= 

$DFUIC= 

$EROUT= 

$EXSIZ= 

$FMASK= 

$GENND= 

$GENST= 

$GETRC= 

$GETRV= 

$LBXL  = 

$LOWSZ= 

$NTUIC= 

$PARHD= 


177650 

$PUTRC= 

******  GX 

177652 

$RADDR= 

******  GX 

177654 

$RS1Z  = 

******  GX 

177656 

$RSIZE= 

******  GX 

177600 

$RSX  = 

******  GX 

1776' 0 

$SAVAL= 

******  GX 

1776' 2 

$STB  = 

******  GX 

1776- 4 

$SYMBL= 

******  GX 

1776' 6 

$SYMND= 

******  GX 

003670f 

SSYMB^ 

******  GX 

004130R 

$SYSIZ= 

*♦»*««  GX 

0035 12f 

$VCTOF= 

******  GX 

000202f 

$VCTV8= 

******  GX 

****** 

GX 

$VFLAG= 

******  GX 

****** 

GX 

$\/FL61  = 

******  GX 

0013401! 

tVGCL  = 

******  GX 

002662P 

$VIMI  = 

******  GX 

001000 

$VINI 

000006RG 

****** 

GX 

$XBUF2= 

******  GX 

000000 

$XFRAD= 

******  GX 

****** 

GX 

$XLEN2= 

******  GX 

****** 

GX 

$XXBUF= 

******  GX 

GX 

$XXINI= 

******  GX 

****** 

GX 

$XXLEN= 

******  GX 

****** 

GX 

$$ 

177777 

****** 

GX 

$$$   = 

004604R 

****** 

GX 

$$$$  = 

004754R 

****** 

GX 

.COO 

003322R 

****** 

GX 

.CRAVL= 

******  GX 

****** 

GX 

.CRCOV= 

******  GX 

****** 

GX 

.CSI1  = 

******  G 

****** 

GX 

.CSI2  = 

******  G 

****** 

GX 

.DEVHD= 

******  GX 

****** 

GX 

.DLCOV= 

******  GX 

****** 

GX 

.EXSIZ= 

******  GX 

****** 

GX 

.FMASK= 

******  GX 

****** 

GX 

.NTUIC= 

******  GX 

****** 

GX 

.OPEN  = 

******  G 

****** 

GX 

.PARHD= 

******  GX 

****** 

GX 

.PLGTH= 

******  GX 

****** 

GX 

.PPA?C= 

******  GX 

000340 

.RDFUI= 

******  GX 

****** 

GX 

.SYSIZ= 

******  GX 

****** 

GX 

...TPC= 

000006 

******  GX 


r  7  A  T  I  n*.i 


MAfOn  \/n=;  rr^h  ';Al-iirH;*\ 


G  13 

?<3-li.n-RS  02:43 


Psae  14-3 


VLBIO 

CREATED  BY 

MACRO  ON  2S 

-JUN-85  AT  02:4^ 

SVMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

F.NRBD 

- 

****** 

GX 

•7-118 

•7-12A 

F.RSIZ 

r 

GX 

•6-100 

•6-102 

•7-121 

F.URBD 

- 

****** 

GX 

•  6-97 

•6-103 

SYSFDB 

= 

****** 

GX 

•  6-97 

•6-100 

•6-102 

$BFR 

- 

****** 

GX 

6-103 

7-124 

tGETAD 

z 

****** 

GX 

6-100 

SGETLB 

000000 

RG 

«6-89 

$GETRV 

= 

****** 

GX 

6-192 

SNTLHB 

= 

****** 

GX 

6-90 

tNTLPT 

~ 

****** 

GX 

6-91 

7-116 

SPUTAD 

- 

****** 

GX 

7-121 

$PUTLB 

000116 

RG 

#7-115 

$PUTRC 

- 

****** 

GX 

7-123 

SRADDR 

r 

****** 

GX 

•6-100 

•6-102 

•  7-121 

tRBLCK 

- 

****** 

GX 

•6-100 

•7-121 

.LBIAS 

000000 

RG 

#5-71 

6-94 

•6-96 

.LBUFF 

000002 

RG 

#5-76 

6-93 

7-118 

.MGMGE 

*:***** 

GX 

6-98 

7-119 

F  H 
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VNCI 


♦7-123 
•6-103 


•7-118 


•7-121 


•7-123 


•7-124 


•7-123 
7-121 


7-123 
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VNi 


427 
428 
429 

430  001126 

431  001132 
452  001134 

433  001142 

434  001144 

435  001152 

436  001154 

437  001162 

438  001164 
439 

440 
441 
442 

443  001204 

444  001210 

445  001212 

446  001216 

447  001222 

448  001224 

449  001230 

450  001232 

451  001236 

452  001240 

453  001246 

454  001250 

455  001256 

456  001260 
457 

458 
459 
460 

461  001300 

462  001300 

463  001304 

464  001310 

465  001312 

466  001316 

467  001322 

468  001324 

469  001326 

470  001330 

471  001532 

472  001334 

473  001336 
474 

475 
476 
477 

478  001356 

479  001356 

480  001362 

481  001366 

482  001370 

483  001374 


005767 
001014 
022767 
101010 
032767 
001004 
016767 


105767 
001402 
000167 
005767 
001016 
105767 
001013 

103004 
116767 
000403 
116767 


Csr  value 
OOOOOOG        icSR: 
160000  OOOOOOG 
000003  OOOOOOG 
OOOOOOG  00001 OG 

101$: 


TST  .PNUMH 

BNE  101$ 

CMP  #1 60000,. PNUM8 

BHl  101$ 

BIT  #3,.PNUMB 

BNE  101$  , 

MOV  .PNUMB.RQB+LO.CSR  ;  Set  csr  ualue 

RETURN 

ERROR$  ULCSR 


Must  be  single  precision 
An  i/o  page  address 
And  a  multiple  of  4 


000001 G 

004436 
OOOOOOG 

000001 G 


OOOOOOG  000004G 

OOOOOOG  000032G  10$: 
20$: 


Controller  number 

iCTL::   TSTB  $QUALtl 

BEQ  5$ 

JMP  ERRLID 

5$:     TST  .PNUMH 

BNE  101$ 

TSTB  .PNUMB+1 

BNE  101$ 

CALL  CHKLOG 

BCC  10$ 

MOVB  .PNUMB,RQB+LR.CTL 

BR  20$  ; 

MOVB  .PNUMB.RQBtLO.CTL 

RETURN 


016700 

OOOOOOG 

022700 

000020 

103412 

016701 

OOOOOOG 

012702 

OOO052G 

110022 

001403 

112122 

005300 

003375 

101$:   ERRORS  CNUMTL 


Destination  node  account  field 


IdACC:: 


0$: 


20$: 
101$: 


MOV 

CMP 

BLO 

MOV 

MOV 

MOVB 

BEQ 

MOVB 

DEC 

BGT 

RETURN 

ERROR$ 


.PSTCN.RO 

#16.,R0 

101$ 

.PSTPT,R1 

#RQ6+LR.AC0,R2 

R0.(R2)+ 

20i 

(R1)+,(R2)t 

RO 

10$ 

ACCTTL 


Any  wild  cards  ? 

If  ne,  yes  ..  illegal  line  id 
Number  must  be  a  byte  value 


Check  for  logging  function 

Br  if  logging  function 

;  Set  controller  number 

And  exit 

;  Set  controller  number  for  logging 


Get  account  field  length 

Is  account  field  too  Big  ? 

If  lo,  yes 

Get  start  address  of  account  field 

Get  address  of  account  buffer 

Store  field  length 

If  eq,  no  field  specified 

Else,  store  account  field 


Account  field  too  large 


Destination  noae  password  field 


016700 
022700 
103412 
016701 
012702 


OOOOOOG 
000010 

OOOOOOG 
000041G 


IdPAS:  : 


MOV 
CMP 
BLO 
MOV 
MOV 


.PSTCN.RO 

#8.,R0 

lOli 

.PSTPT.Rl 

*RCI8tLR.PAS,R2 


Get  password  field   length 

Is  password  field  too  big  ? 

If   lo,   yes 

Get  start  address  of  password   field 

Get  address  of  password  buffer 
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'-]t 


1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 


005230 
005234 
005240 
005244 
005246 
005252 
005254 
005256 
005260 
005262 
005266 
005272 
005274 
005276 
005300 
005302 
005304 


005324 

005330 

005332 

005336 

005341 

005344 

005346 

005352 

005354 

005362 

005564 

005372 

005376 

005402 

005404 

005412 

005414 

005416 

005436 


005456 
005462 
005464 
005470 
005472 
005500 
005502 


012702 
016700 
016701 
003406 
020127 
003014 
112022 
005301 
001375 
012701 
166701 
003403 
105022 
005301 
001375 


105767 
001151 
005767 
001027 
105767 
001024 

103004 
116767 
000403 
116767 
0O42'-7 

103415 
032762 

001520 


005767 
001007 
105767 
001004 
016767 


Transmit  password 


000020G 
OOOOOOG 
OOOOOOG 

000010 


000010 
OOOOOOG 


tSTTPA::MOV 


10$: 


12$: 


15$: 


40$: 
101$: 


MOV 
Bit 

CMP 

BGT 

MOVB 

DEC 

BNE 

MOV 

sue 

BLE 

CLRB 

DEC 

BNE 

RETURN 

ERR0R$ 


#RQB*L0.TPA,R2 

.PSTPT.RO 

.PSTCN.RI 

12$ 

R1,#8. 

10l$ 

(R0)t,(R2)t- 

R1 

10$ 

#8.,R1 

.PSTCN.RI 

40$ 

(R2)^ 

Rl 

15$ 

PA5WTL 


Tributary  number 


000001 G 
OOOOOOG 
OOOOOIG 

OOOOOOG  000006G 

OOOOOOG  000030G 
OOOOOOG 

OOOOOOG  OOOOOOG 


$TRI: 


10$: 
$XTRI: 


101$: 
102$: 


.ENABL 

TST8 

BNE 

TST 

BNE 

TSTB 

BNE 

CALL 

BCC 

MOVB 

BR 

MOVB 

JSR 

CALL 

BCS 

BIT 

BEO 

RETURN 

ERROR$ 

ERROR$ 

.DSABL 


LS8 

$QUALt1 

ERRLID 

.PNUMH 

101$ 

.PNUMB+1 

i01$ 

CHKLOG 

10$ 

.PNUMB.RQB+LR.TR 

$XTRI 

.PNUMB.RQB+LO.TR 

R2,$SAVVR 

GETLIN 

102$  , 

#L.'  .MTP,L.FLG(R2) 

ERRLID 

TR18TL 

NSLINE         ; 

LSe 


Tributary  address 


OOOOOOG 
OOOOOIG 


§TRIBA: :TST 
BNE 
TST8 
BNE 
OOOOOOG  000030G        MOV 

RETURN 
101$:   ERROR$ 


.PNUMH 

101$ 

.PNUMBH 

101$ 

.PNUMB.ROBtLO.TRI 

ILLTRI 


Destination  field  address 

Get  field  address 

And  length 

Null  field  ? 

Too  long  ? 

Yes 

Move  all  characters 

Loop  till  done 
Max  length 
Number  of  zeros 
Nothing  to  pad  if  zero 
Pad  with  binary  zero(s) 


Password  too  long 


Any  wild  cards  specified  ? 
If  ne,  yes  ..  illegal  line  id 
Number  must  be  a  byte  value 


Check  for  logging  function 

Br  if  logging  function 

;  Set  tributary  number 

And  continue 

;  Set  tributary  number  for  logging 

Save  R0-R2 

Get  SLT  and  PDV  address  of  line 

Br  if  not  in  system 

;  Multipoint  device? 

Br  i  f  no 


Line  not  in  system 


Must  be  a  word  value 

If  ne,  no  ..  illegal  value 

Must  be  a  byte  value 

If  ne,  no  . .  i lleaqe  value 

;  Store  tributa'-y  address 


Illegal  tributary  address 


fP  -  VNP  GET  COMMANDS  NCP  STY  MACRO  V05.03b  Saturday  29-Jun-85 


G  16 

02:44 


Page  ^-17 


VFPPVC 
CKPVCO  -  C 


INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:38  Page  II 
Check  for  unique  PVC  name  [new  format] 


A61 
462 
463 
A64 
465 
A66 
467 
468 
469 
470 
471 
472 
473 
474 

475  000664 

476  000664 

477  C10670 

478  000674 

479  000700 

480  000716 

481  000722 

482  000726 

483  000730 

484  000732 

485  000742 

486  000760 

487  000764 

488  000770 

489  000772 

490  000776 

491  001002 

492  001004 

493  001006 

494  001010 

495  001012 

496  001014 

497  001020 


.SBTTL  CKPVCO  -  Check  for  unique  PVC  name  [new  format] 

h 

*»*  CKPVCO  -  Check  for  unique  PVC  name  [new  format] 

INPUTS: 

NONE 

OUTPUTS: 

CARRY  CLEAn  -  SPECIFIED  PVC  IS  UNIQUE 
CARRY  SET  -  SPECIFIED  PVC  IS  NOT  UNIQUE 
AU  registers  preserved 


016700 
062700 


016700 
000241 
001431 


116701 
120167 
001354 
012700 
012702 
122022 
001346 
005301 
003374 
000261 


OOOOOOG 
000006 


OOOOOOG 


000026' 
000002G 

000027' 
000016G 


CKPVCO: 


10$: 


20$: 


30$: 


CALL 

$SAVAL 

MOV 

$PSIPT,RO 

ADD 

#H$PVC,RO 

GETRV 

R0,#2 

SAVHAP 

MOV 

$BFR,RO 

CLC 

BEQ 

30$ 

CEACC$ 

RO 

GETAD 

RO,#C$LEN+MAXID 

MOVB 

PVCNML.Rl 

CMPB 

R1,$BFRtC$NML 

BNE 

10$ 

MOV 

#PVCNAM,RO 

MOV 

#$6FRtC$GNAM,R2 

CMPB 

(R0)+,(R2)+ 

BNE 

10$ 

DEC 

R1 

EGT 

20$ 

SEC 

RESMAP 

RETURN 

Save  all  registers 

Point  to  PSi  home  block 

Point  to  PVC  name  block  listhead 

Read  in  listhead 

Save  current  mapping 

Get  address  of  next  block  in  list 

Assume  success 

Branch  if  end  of  list 

Convert  to  mapped  address 

Read  in  maximum-size  PVC  name  block 

Get  length  of  PVC  sought 

Compare  with  length  or  name  just  read 

If  not  same  length,  not  same  PVC 

Address  of  PVC  sought 

Address  of  candidate 

Check  if  names  match 

Branch  if  no  match 


Else  error  -  set  c-bit 
Restore  previouc  mapping 


;[TD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;**-5 


;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;CTD00i:, 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD001] 
;[rD001] 
.-CTDOOI] 
;[TD001] 
;[TD001] 
;[TD001] 
.-CTDOOI] 
;[TD001] 
;[TD001] 
;  CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
; CTDOOI] 
;  CTDOOI] 


VFPPVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:38 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 

...USZ  000020 

SALPHA  =  000022 

SALPOL  =  t»*t** 

NY  =  000020 


GX 
6X 


000006 
******  GX 
******  GX 
****** 
00002A 
OOOOH 
000012 
000056  R 
000116  R 
000152  R 
00020^  R 
******  GX 
******  GX 
******  GX 
****** 
****** 
000000 

******  GX 

******  GX 
****** 
000000 
000002 

******  GX 

******  GX 

******  GX 

000000  RG 
GX 


GX 
GX 


****** 


000016 
**♦**♦  GX 


SRONLY 
SSAVAL 
SSTRNG 
SSUBXP 
$$$FLG 
iSSlCEY 
.PNUMB 
.PNUMH 
.PSTCN 
.PSTPT 
.TPARS 


****** 
****** 
OOOOOA 
000010 
177777 
177777 

****** 
****** 
****** 
****** 
****** 


GX 


GX 
GX 
GX 
GX 
GX 


REFERENCES 

*20-707 
#10-190 

U-431 
#10-190 

U-A39 
♦17-562 
»18-617 
*20-712 
*20-721 
#10-190 

12-356 

U-4A0 

9-167 
#10-190 
#10-190 
#10-190 
#8-1'.5 
#8-U6 
#8-U7 
#8-U8 

12-347 

11-322 

11-310 

12-335 

9-184 
#10-190 
#10-190 

14-441 

14-435 

10-190 
#10-190 
#10-190 

13-386 

14-433 

14-443 
#9-167 
»14-435 
♦19-655 
#10-190 

14-436 
♦18-632 

10-190 

15-476 
#10-190 
#10-190 
#10-190 
#10-190 

11-301 

11-299 

12-352 

12-354 

9-175 


17-554 

♦14-456 
♦17-564 
19-656 
•20-713 
♦20-722 

23-806 
15-484 


11-294 
12-362 
12-377 
13-410 


14-452 
15-479 


14-428 
15-477 
14-458 

♦14-441 
♦19-659 

♦14-444 
19-652 
10-190 
16-514 


11-317 
11-315 


18-605 

♦14-457 
♦17-565 

19-660 
♦20-714 

21-758 


16-522 


13-409 


15-485 
16-517 


14-449 
16-515 
17-570 

♦14-452 
♦20-700 


12-369 
12-367 
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15-481 
♦17-566 

20-701 
♦20-715 
♦21-766 


17-558 


23-819 


16-523 
19-655 


20-697 
17-579 
18-618 

♦15-479 
♦21-757 


15-480  ♦15-496 

19-667  ^19-674 

10-190 

17-549  18-601 


12-371 
23-827 


15-487 
♦17-567 
♦20-707 
♦20-716 
♦21-767 


18-609 


15-490 

18-610 

♦20-708 

♦20-717 


19-656 


16-519 
♦18-614 
♦20-709 
♦20-718 


20-695 


16-526 
♦18-615 
♦20-710 
♦20-719 


21-746 


17-559 
♦18-616 
♦20-711 
♦20-720 


19-659 


18-627 
20-723 

♦15-485 


16-518 
21-744 


23-824 


20-700 


19-653 
21-768 


21-757 


♦16-517         ^16-523         ^17-570         ♦18-618 


♦16-532 
♦21-769 


23-826 


17-550         ^17-584 


23-829 


18-602 


H     ? 
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CHKRDT   -   CHECK   FOR  UNIQUE   RDT 
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274 
275 
^'6 
Jl 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 

289  000450 

290  000454 

291  000460 

292  000476 

293  000502 

294  CO0506 

295  000512 

296  000514 

297  000516 

298  000526 

299  000544 

300  000550 

301  000554 

302  000560 

303  000564 

304  000566 

305  000570 

306  000572 

307  000574 

308  000576 

309  000602 
310 

311 


016700 
062700 


016700 
000241 
001430 


012701 
062701 
012702 
012703 
122122 
001347 
005303 
003374 
000261 


000001 


OOOOOOG 
000004 


OOOOOOG 


OOOOOOG 
000002 
000000' 
000006 


S8TTL  CHKRDT  -  CHECK  FOR  UNIQUE  RDT 


CHKRDT  -  CHECK  FOR  UNIQUE  REMOTE  DTE  NAME 

INPUTS: 

RDTNAM  -   SPECIFIED   RDT   NAME 

OUTPUTS: 

CARRY  CLEAR  -  REMOTE  DTE  NAME  IS  UNIQUE 
CARRY  SET  -  REMOTE  DTE  NAME  IS  NOT  UNIQUE 
RO  DESTROYED 


CHKRDT. 

MOV 

$PSIPT,RO 

ADD 

#H$RDTE,RO 

GETRV 

R0,#2 

CALL 

$SAVAL 

SAVMAP 

10$: 

MOV 
CLC 

$BFR,RO 

BEQ 

25$ 

CEACC$ 

RO 

GETAD 

RO,#R$LEN 

MOV 

#$8FR,R1 

ADD 

(»R$NAM,R1 

MOV 

*RDTNAM,R2 

MOV 

#RDTEMX,R3 

20$: 

CMP8 

(R1)+,(R2)t 

BNE 

10$ 

DEC 

R3 

BGT 

20$ 

SEC 

25$: 

RE SWAP 

30$: 

RETURN 

GET  ADDRESS  OF  PSI  HOME  BLOCK 

POINT  TO  REMOTE  DTE  LISTHEAD 

READ  IN  LISTHEAD 

SAVE  ALL  REGISTERS 

SAVE  CURRENT  MAPPING 

GET  NEXT  BLOCK  IN  LIST 

ASSUME  SUCCESS 

BR  IF  END  OF  LIST 

CONVERT  TO  MAPPED  ADDRES 

READ  IN  REMOTE  DTE  BLOCK 

GET  ADDRESS  OF  REMOTE  DTE  BLOCK 

POINT  TO  REMOTE  DTE  NAME 

POINT  TO  SPECIFIED  REMOTE  DTE  NAME 

GET  LENGTH  OF  NAME 

IS  THE  NAME  UNIQUE? 

BR  IF  YES 

MORE  TO  CHECK? 

BR  IF  YES 

ELSE  NOT  UNIQUE  -  SET  C-BIT 

RESTORE  PREVIOUS  MAPPING 


.END 
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VFPRNW  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:40 


Parse  table  for  RNWSDF 

■',2 

U4  000062 

H5 

U6  000062 

1A7  000062 

K8  000062 

K9  000062 

150 

151  000062 

152  000062 

153  000062 

154  000062 
155 

156  000062 

157  000062 
158 

159  000062 

160  000062 
161 

162  000062 

163  000062 
164 
165  000062 


Page  10 


.SBTTL  Parse  table  for  RNWSDF 
ISTATS  RNWST.RNWKW 


STATES  RNWDF 

TRANS 
STATES 

TRANS 


STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 
TRANS 

STATES 


SKIPSP 
XRNW$DF%,, 


.l.SYNERR 


ISKIPSP 
SRAD50,,RNUNET 

lOPSEP 

srad50,,rnwn0d 
:end,sexit 


Skip  leading  spaces 
Flag  RNWSDF  recognised 

Skip  leading  spaces 
Parse  network  name 

Skip  operand  separator 

Parse  node  name 

Ensure  correct  termination 


VFPRNW 
Parser 

495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
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VFPRNW  -  INITIAL  CONFIG  RE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:A0  Page  22 
Parser  Subexpression  Action  Routines 


h:i' 


VFPX2 
LOOK 


495 
496 
497 
498 
499 
500 
501 
502 
503 
504 

505  001012  105C67  000164' 

506  001016 


.SBTTL  Parser  Subexpression  Action  Routines 
I- 
***  CLRSTR  -  Clear  string  length  field 

INPUTS 

None 

OUTPUTS 

STRLEN  cleared 

CLRSTR:  CLR8    STRLEN 
RETURN 


H   S 
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LOOK   FOR   X29$DF    MACRO 
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90 

91 

92 

93 

9A 

95 

96 

97 

98 

99 
100 
101 
102 

103  000000 
10A  OOOOOA 

105  000006 

106  000012 

107  000016 

108  000022 

109  000026 

110  000032 

111  000034 

112  000040 

113  0000A2 
114 

115 
116 
117 
118  000044 


.S8TTL  LOOK  FOR  X29$DF  MACRO 

$0X29  -  LOOK  FOR  X29$Df  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-8]T=SUCCESS/FAILURE 
R3,R4,R5=DESTROYED 


012705  000000' 
005001 

012702  000000' 

016703  OOOOOOG 

012704  OOOOOOG 

005067  OOOOOOG 

103003 

005367  OOOOOOG 

001401 


$0X29:: 


MOV 

#X29DF,R5 

CLR 

R1 

MOV 

#X29KW,R2 

MOV 

CFGSZ,R3 

MOV 

#CfG8F,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BED 

101$ 

RETURN 

20$: 

ERROR  CONDITION 
101$:   EMSG$R  IT 


STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


;  SYNTAX  ERROR 


VFPX3P 
LOCAL 

8 
8 
8 

e 
e 

9 

s 

c 
c 

■; 

<; 

s 

ic 

K 
IC 

1( 

IC 

n 
i( 
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LOCAL  DATA 


Page  1 


VHDA 


85 

86 

87  OOOOCO 

88 

89 

90 

91 

92  000000 

93  000002 
9A 

95 

96 

97 

98 

99 

100  000004 
101 
102 
103 

lOA  000000 
105 
106 


.SBTTL  LOCAL  DATA 
.PSECT  DATA,D 

LOCAL  DATA  FOR  CHNSDF  MACRO 

CHNLLO:  .BLKW   1 
CHNLHI:  .BLKU   1 


;  LOW  END  OF  CHANNEL  RANGE 
;  HIGH  END  OF  CHANNEL  RANGE 


ERROR  MESSAGES 

.ENABL  LC 

NTLERI  ,08,8,CERR,RTSPC,CFLIN,<Channel  block  allocation  failure> 

.DSABL  LC 

.PSECT 
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VHOAT  -  HELP  SUBROUTINE  CAIA    MACRO  V05.03b  Saturday  29-Jun-85  02:42  Page  it 


2 

5 

6 

7 

8 

9 
10 
11 
12 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

4^ 

/.u 

45 

4f 

4/ 

48 

49 

50 

51 

52 

53 


.TITLE  VHDAT  -  HELP  SUBROUTINE  DATA 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  HELP  SUBROUTINE  DATA 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-11M-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


H  8 


G  9 

VHELP 

CREATED  BY 

MACRO  ON  29-JUN-85  AT 

02:42 

PAGE  2 

SYMBOL 

CROSS  REFERENCE 

CREF   04.00 

SYMBOL 

VALUE 

REFERENCES 

LO.VER 

000042 

#5-68 

LR.ACC 

000020 

#5-68 

LR.ACO 

000052 

#5-68 

LR.ADD 

000012 

#5-68 

LR.ALI 

000002 

#5-68 

LR.BLK 

000010 

#5-68 

LR.CTL 

000004 

#5-68 

LR.DES 

000010 

#5-68 

LR.HLP 

000002 

#5-68      6-84 

LR.LIN 

000002 

#5-68      5-68 

5-68 

5-68      5-6 

LR.NAM 

000012 

#5-68 

LR.PAS 

000041 

#5-68 

LR.PRO 

000002 

#5-68 

LR.STS 

000000 

#5-68 

LR.TRI 

000006 

#5-68 

LR.TYP 

000002 

#5-68 

LR.UCB 

000016 

#5-68 

LR.UIC 

000020 

#5-68 

LR.UNT 

000005 

#5-68 

LS.ALI 

=  000016 

#5-68 

LS.CEX 

=  000001 

#5-68 

LS.CIR 

=  000035 

#5-68 

LS.CXO 

=  010000 

#5-68 

LS.CX5 

=  000400 

#5-68 

LS.ECH 

=  001000 

#5-68 

L5.FDX 

=  004000 

#5-68 

LS.HDX 

=  010000 

#5-68 

LS.HLP 

=  000012 

#5-68 

LS.LIN 

=  000003 

#5-68 

LS.LMC 

=  000007 

#5-68 

LS.LOG 

=  000020 

#5-68 

LS.MOD 

=  000036 

#5-68 

LS.NOD 

=  000014 

#5-68 

LS.NTI 

=  000013 

#5-68 

VlMl 
Symbo 

Size 
Size 
Ope'-a 

Elaps 
SY:VI 


5-68 


5-68 
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VlMl  -  VNP  READ  IN  CEX  IMAGE    MACRO  V05.05b  Saturday  29-Jun-85  02:^2  Page  5-7 
Symbol  table 

Size  pt  work  file:  11098  Words  (  4A  Pages) 
Size  of  core  pool:  UAAO  Words  (  55  Pages) 
Oper-ating  system:  RSX-IIM/PLUS 

SY:VIM^V2'!'ci32J°OV!MI/CR/-SP=SY:[1  J]RSXMCH.S^L/ML,[130J10]NETLIB/ML,[130JOJRSXMCM^ 


VINI  - 
Table 

5 
6 
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VIM   -   VNP    1M1TIAL!ZAT10^J 
Table  ot   contents 


MACRO   V05.05b  Saturday   29-Jun-85 


02:43 


VIN! 
CONS 


5-  54    LOCAL  DATA 

6-  60    CONSTANT  DEFINITIONS 
U-  1009    &TDU1C  -  GET  DEFAULT  UIC 


H  11 

o  c  m  .  I  1 


~\ 


VlNl  -  VNP  INITIALIZATION 
CONSTANT  DEFINITIONS 


MACRO  V05.03b  Saturday  29-Jun-85 


52:43 


Page  10-1 


522  0024'>0 

523 

524 

525 

526 

527 

528  002A52 

529  002534 

530  00254A 

531  002625 
532 

533 
534 
535 
536 

537  0C2634 

538  002640 

539  002644 

540  002650 

541  002654 
542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555  002660 

556 

557 

558 

559 

560 

561 

562 

563  000000 

564  000002 

565  000004 

566  000010 

567  002662 


000730 


BR 


error  text 


12$ 


AND  CONTINUE 


VlNl 
Svmb 

Oper 

ELap 

SV-.V 


ERMSGS 
ERSLKS 
ERMSGS 
ER8LK$ 


<Executive  symbol  missing  from  symbol  table  (  Xr   ).> 

ERR6,<$BFR,2> 

<Commexer  symbol  missing  from  symbol  table  (  Xr   )•> 

ERR7,<$BFR,2> 


LIST  OF  NON-FATAL  UNDEFINED  SYMBOLS 


052625  021424 

126025  070704 

124545  102532 

015343  125456 

012623  125456 


OKLIST: 


000000 


000000 


000000 


S8.LNK 
SB.DEF 

SB.sve 

SB.VAL 


.RAD50 
.RAD50 
.RAD50 
.RAD50 
.RAD50 

.IF 

.RAD50 

.RAD50 

.RAD50 

.RAD50 

.RAD50 

.RAD50 

.RAD50 

.RAD50 

.RAD50 

.ENDC 


.WORD   0 


"M$$EXT" 
"SUMRHD" 
"SDEUMR" 
"DLCSOV" 
"CRCSOV" 

DF,R$$MPL 

"M$$PR0" 

"K$$DAS" 

"SSCMGF" 

"SCPPAR" 

"$K6TAB" 

"SCPURM" 

"SURMTB" 

"SPOLHD" 

"SSECFR" 


11/70  EXTENDED  MEMORY 
FIRST  UMR  ADDRESS 
FIRST  FREE  UMR 
DLC  PROTOCOL  OVERHEAD 
CRC  OVERHEAD 


MULTI-PROCESSOR  SUPPORT 

KERNAL  DATA  SPACE  SUPPORT 

STARTING  PHYSICAL  ADDRESS  OF  D-SPACE 

POINTER  TO  PCB  OF  CPU  PARTITION 

TABLE  OF  POINTERS  TO  EACH  PROCESSOR'S  AREA 

CPU  URM  MAPPING  TABLE  POINTER 

UNIBUS  RUN  CONNECTIVITY  TABLE 

SECONDARY  POOL  LISTHEAD 

SECONDARY  POOL  BLOCKS  FREE 


; [MP01 ] 


[Mi-01  ] 
CMP01] 
[MP01] 


DEFINE  SYMBOL  BLOCK  OFFSETS 


.ASECT 

.=0 

.8LKW 

.8LKW 

.BLKW 

.BLKW 

.PSECT 


LINK  WORD 

FLAG  (  NON-ZERO  MEANS  DEFINED  ) 

RAD50  SYMBOL  NAME 

SYMBOL  VALUE 
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ymbol    table 

Operating     sy-.teni:    RSX-11M/PLUS 

SV;v!N?.V2?[i32?134JvINI/CR/-SP--Sy:[1  J]RSXMCM.SML/MLJ130J10]NETLIB/MLJ130J0]RSXIVICM^ 


To^  iiiM_oc    AT    no./.'? 
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VLBIO  CREATED  BY     MACRO     ON  29-JUN-85   AT   02;AA 

MACRO   CROSS   RETEREfJCE 


G  U 

PAGE   2 

CREF       OA.OO 


VNC 


MACRO  NAME 

REFERENCES 

CALL 

6-100 

6-102 

7-121 

GET  At) 

#5-59 

6-100 

GETRV 

#5-59 

6-102 

=UTAD 

#5-59 

7-121 

=UTRC 

#5-5° 

7-123 

RAND 

#6-100 

6-100 

#6-102 

RETURN 

6-10^ 

7-125 

SUTCHI 

#5-59 

6-97 

6--'05 

SWTCHO 

#5-59 

7-118 

7-12A 

7-123 


6-102 


#7-121 


7-121 


#7-123 


7-123 


H  U 


L_ 
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VNCP  -  VNP  GET  COMMANDS  NCP  STY  MACRO  V05.03b  Saturday  29-Jun-85  02:44  Page  7-4 


VN 


484  001400 

485  001402 

486  001404 

487  001406 

488  001410 

489  001412 

490  001414 
491 

492 

493 

494 

495  0014  54 

496 

497  001440 

498  00144C 

499  001444 
500 

501  001446 

502  001454 

503  001456 

504  001460 

505  001464 

506  001470 

507  001474 

508  001500 
509 

510  001506 

511  001506 
512 

513  001510 

514  001516 

515  001520 

516  001522 

517  001522 

518  001542 
519 

520  001542 

521  001544 

522  001544 

523  001564 
524 

525  001564 

526  001570 
527 

528 
529 
530 

531  001572 

532  00157^ 

533  001576 

534  001602 

535  001604 

536  001610 

537  001614 

538  001616 

539  001620 

540  001622 


110022 
001403 
112122 
005300 
003375 


012^00 


026700 
003037 


005200 
006200 
016701 
016702 
012705 


103405 
016767 
000410 

000410 


062716  000002 


MOVB 

BEQ 

10$: 

MOVB 

DEC 

BGT 

20$: 

RETURN 

101$: 

ERROR$ 

;•  DTE 

address 

R0,(R2)+ 

20i 

(R1)t,CR2)* 

RO 

10$ 

PSWFTL 


Store  field  length 

if  eq,  no  field  specified 

Else,  store  password  field 


Password  field  too  large 


000020 
OOOOOOG 


OOOOOOG 
OOOOOOG 
000047G 


10$:; 


IF  parsed  string  length  < 

CMP   .PSTCN.RO 

BGT   11$ 
THEM  pack  into  BCD  buffer 

SAVRG  <R3,R4,R5> 

INC   RO 

ASR   RO 

MOV   .PSTPT.RI 

MOV   .PSTCN,R2 

MOV   #RQS+L0.DTE,R5 

CALL  PCKSCD 

RESRG  <R5,R4,R3> 


Max  DTE  length. 
:  max 


Buf  size  is 
(max+1)/2. 
Ptr  to  string. 
String  length. 
Ptr  to  buffer. 


20$:; 


OOOOOOG  000046G 


21$:; 
29$;; 

11$:; 
19$:; 


IF  successful 

BCS  21$ 
THEN  stash  #digits  specified  and  return 

MOV  .PSTCN,RQB<LO.LDT 

RETURN 
BR    29$ 
ELSE  complain 

ERR0R$  IVDTEA 
ENDIF 


Found  a  non-digit  in  the  string. 


BR      19$ 
ELSE  complain 

ERR0R$  DTEATL 
ENDIF 


String  too  long  for  a  DTE  address. 


ADD 
RETURN 


#2,(SP) 


Destination  node  user  id 


016700 
022700 
103412 
016701 
012702 
110022 
001403 
112122 
005300 


OOOOOOG 
000020 

OOOOOOG 
000020G 


iDUSE:: 


10$: 


MOV 

CMP 

BLO 

MOV 

MOV 

MOVB 

BEQ 

MOVB 

DEC 


.PSTCN.RO 

*16.,R0 

101$ 

.PSTPT,R1 

#RQe+LR.UIC,R2 

R0,(fi2)t 


(R1)H 

RO 


,(R2)< 


Get  user  id  field  Length 

Is  user  id  field  too  big  ? 

if  lo,  yes 

Get  start  address  of  user  id  field 

Get  address  of  user  id  buffer 

Store  field  length 

If  eq,  no  field  specified 

Else,  store  user  id  field 


iiKin     rcT     rnMMAMrvC     Ktrct     CTV     MATDn     \ir\K     H^h     Qat-iirHa\ 
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1225 

122A 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

123A 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

12A3 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 


005522 
005526 
005530 
005534 
005536 
005542 
005544 
005550 
005552 
005560 
005562 
005570 
005574 
005600 
005602 
005610 
005612 
005614 
005634 


005654 


005674 
005700 
005702 
005710 
005712 
005720 
005722 
005730 
005732 


005752 
005760 
005762 
005770 
005774 
006000 
006002 
006010 
006012 
006020 
006022 
006026 
006030 


105767  OOOOOIG        SUN^:: 

001052 

005767  OOOOOOG 

001027 

105767  OOOOOIG 

001024 

103'  04 

116^67     OOOOOOG  000005G 

000403 

116767  OOOOOOG  000033G  10$: 

004267  OOOOOOG        $XUNT; 

103415 

032761  OOOOOOG  OOOOOOG 

001421 

101$: 
102$: 


Unit  numbe'' 


.ENA8L 

TST8 

BNE 

TS^ 

BNd 

TSTB 

BNE 

CALL 

acc 

M0V8 

BR 

M0V8 

JSR 

CALL 

BCS 

BIT 

BEQ 

RETURN 

ERR0R$ 

ERROR$ 

.DSABL 


LS8 

$QUAL*1 

ERRLID 

.PNUMH 

101$ 

.PNUMB+1 

101$ 

CHKLOG 

10$  , 

.PNUMB.RQBtLR.UNT 

$XUNT  : 

.PNUMB.RQBtLO.UNT 

R2,$SAVVR 

GETLIN 

102$         ; 

#ZF.MUX,Z.fLG(Rl) 

ERRLID 

UNUMTL 
NSLINE 
LS8 


ERRLID:  ERROR$   IVLIID 


Vector  value 


005767  OOOOOOG 

001014 

022767     001000     OOOOOOG 

103410 

032767  000003  OOOOOOG 

001004 

016767  OOOOOOG  000014G 


ivEC: 


TST 
BNE 
lMP 
BLO 
BIT 
BNE 
MOV 
RETURN 


.PNUMH 

101$ 

#1000,.PNUMB 

101$ 

*3..PNUMB 

10l$ 

.PNUMS,RQB+LO.VCT 


Any  wild  cards  soecified  ? 
If  ne,  yes  . .  i  I  legal  line  id 
Number  must  be  a  bvte  value 


Check  for  logging  function  code 

Br  if  legging  function 

;  Set  unit  number 

And  contiriue 

;  Set  unit  number 

Save  R0-R2 

Get  SLT  and  PDV  address  of  line 

Br  if  not  in  system 

;  Multiplex  device? 

Br  i  f  no 


Line  not  in  system 


Invalid  line  identification 


Must  be  single  precision 

Less  than  1000  ? 

if  lo,  no 

Is  it  a  multiple  of  4  ? 

If  ne,  no 

;  Set  vector  value 


101$:        ERR0R$      ILLVEC 


032767 
001423 
042767 
004267 

103414 
032761 
001321 
032762 
001403 
105767 
001312 


Missing  tributary  or  unit  number 


OOOOOOG  OOOOOOG  $XMISS 

OOOOOOG  OOOOOOG 
OOOOOOG 


OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOIG 


10$: 


:8IT  *FL.CNT,$FLAGS 

BEQ  10$ 

BIC  #FL.CNT,$FLAGS 

JSR  R2,$SAVVR 

CALL  GETLIN 

BCS  101$  , 

BIT  #ZF.MUX,Z.FLG(R1) 

BNE  ERRLID         ; 

BIT  #LF.MTP,L.FLG(R2) 

BEQ  10$ 

TSTB  iOPTON+1 

BNE  ERRLID         ; 
RETURN 


Controller  only  specified? 

Br  i  f  no 

Reset  flag 

Save  R0-R2 

Get  SLT  and  PDV  address  of  line 

Br  if  not  in  system 

;  Mux  devi'  ? 

Br  if  yes 

;  Multionir   device? 

Br  ,  , 

Neces  ,  y  to  specify  tributary 

Br  if  ye'i 

Finished 


,,AC  A7k 


H  16 

-at;  np-ii 


Pane  7-1S 


H  1 

VFP^VC  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:38  Page  16 
CKPVCI  -  Check  for  unique  PVC  name  [old  format] 


A99 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513  001022 

5U  001022 

515  001026 

516  001032 

517  001036 

518  001054 

519  001060 

520  00106A 

521  001066 

522  001070 

523  001100 

524  001116 

525  001122 

526  001126 

527  001132 

528  001134 

529  001136 

530  001140 

531  001142 

532  001144 

533  001150 


.SBTTL  CKPVC1  -  Check  for  unique  PVC  name  Cold  format] 

**♦  CKPVC1  -  Check  for  unique  PVC  name  Cold  format] 

INPUTS: 

NONE 

OUTPUTS: 

CARRY  CLEAR  -  SPECIFIED  PVC  IS  UNIQUE 
CARRY  SET  -  SPECIFIED  PVC  IS  NOT  UNIQUE 
AU  registers  preserved 


016700  OOOOOOG 
062700  000006 


016700  OOOOOOG 

000241 

001426 


012701  000006 
012700  000027' 

012702  000002G 
122022 

001351 
005301 
003374 
000261 


CKPVCl: 


10$: 


20$: 


30$: 


CALL 

MOV 

ADD 

GETRV 

SAVMAP 

MOV 

CLC 

BEQ 

CEACC$ 

GETAD 

MOV 

MOV 

MOV 

CMPB 

BNE 

DEC 

BGT 

SEC 

RESMAP 

RETURN 


$SAVAL 
SPSIPT.RO 
#H$PVC,RO 
R0,*2 

$8FR,R0 

30$ 

RO 

RO,#C$LEN 

*PVNAMX,R1 

#PVCNAH,RO 

#$BFR+C$NAM,R2 

(R0)+,(R2)+ 

10$ 

R1 

20$ 


Save  all  registers 

Point  to  PSI  home  block 

Point  to  PVC  name  block  listhead 

Read  in  listhead 

Save  current  mapping 

Get  address  of  next  blck  in  list 

Assume  success 

Branch  if  end  of  list 

Convert  to  mapped  address 

Read  in  PVC  name  block 

Get  length  of  PVC  name 

Address  of  PVC  sought 

Address  of  candidate 

Check  if  names  match 

Branch  if  no  match 


Else  error  -  set  c-bit 
Restore  previous  mapping 


;[TD001] 
;CTD001] 
;CTD001] 
.-CTDOOl] 
;[TD001] 
.-CTDOOl] 
;[TD001] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
; CTDOOl] 
.■CTDOOl] 
;  CTDOOl] 
.-CTDOOl] 
.-CTDCjI] 
.■CTDOOl] 
.-CTDOOl] 
.-CTDOOl] 
.-CTDOOl] 
.-CTDOOl] 
; C  FDOOl ] 
.-CTDOOl] 
; CTDOOl] 
.-CTDOOl] 
; CTDOOl] 
.-CTDOOl] 
; CTDOOl] 
; CTDOOl] 
;  CTDOOl] 
; CTDOOl] 
;  CTDOOl] 
.-CTDOOl] 


VFPPVC     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:38 
MACRO  CROSS  REFERENCE 

REFERENCES 


H     2 

PAGE  1 

CREF   OA.OO 


RESMAP 

RESRG 

RETURN 

SAVMAP 

SAVRG 

STATEI 


TRANS 


VNPDBG 
XCBDFS 


#5-89 
9-175 

11-284 

12-328 

12-340 

12-356 

12-372 

13-384 

13-391 

13-393 

13-399 

13-401 

14-431 

14-435 

14-440 

14-441 

14-443 

14-445 

14-446 

14-452 

14-455 

U-458 

15-476 

15-479 

15-484 

15-485 

16-514 

16-517 

16-522 

16-523 

17-549 

17-554 

17-558 

17-563 

17-570 

17-574 

17-581 

18-601 

18-605 

18-609 

18-613 

18-618 

18-622 

18-629 

19-655 

19-656 

19-659 

20-695 

20-700 

20-706 

20-723 

21-746 

21-757 

21-768 

23-806 

23-811 

#5-61 

15-484 

16-522 

17-558 

18-609 

19-656 

20-695 

#10-190 

#10-203 

#10-219 

#10-223 

#10-227 

#10-231 

#10-235 

#10-239 

#10-243 

#10-247 

#10-251 
#5-61 

#10-255 
9-184 

11-294 

11-310 

11-322 

12-335 

12-347 

12-362 

12-377 

13-409 

13-410 

23-819 

#5-61 

14-441 

14-452 

15-485 

16-523 

19-659 

20-700 

21-757 

#5-62 

14-435 

15-479 

16-517 

19-655 

#5-62 

10-190 

#5-83 

#10-190 

#5-62 

8-145 

8-146 

8-147 

8-148 

#5-62 

5-67 

#5-61 

14-443 

14-458 

17-570 

18-618 

20-723 

21-768 

#5-61 
#14-435 

5-68 
14-435 

#14-441 

14-441 

#14-443 

14-443 

#14-452 

14-452 

#14-458 

14-458 

#15-479 

15-479 

#15-485 

15-485 

#16-517 

16-517 

#16-523 

16-523 

#17-570 

17-570 

#18- CI  8 

18-618 

#19-655 

19-655 

#19-659 

19-659 

#20-700 

20-700 

#20-723 

20-723 

#21-757 

21-757 

#21-768 

21-768 

#5-77 

14-444 

15-496 

16-532 

17-584 

18-632 

19-674 

21-769 

#5-61 
9-179 

19-675 
n-290 

11-306 

11-318 

12-331 

12-343 

12-358 

12-373 

13-405 

14-459 

15-497 

16-533 

17-585 

18-633 

19-676 

20-724 

21-^70 

22-790 

23-815 

23-831 

#5-73 

14-436 

15-480 

16-518 

17-550 

18-602 

19-652 

21-744 

#5-61 
#5-62 

19-651 
10-195 

#10-198 

#10-201 

#10-205 

#10-208 

#10-211 

#10-214 

#10-217 

#10-221 

#10-225 

#10-229 

#10-233 

#10-237 

#10-241 

#10-245 

#10-249 

#10-253 

#10-259 

#10-262 

#10-265 

#rU-268 

#10-271 

#10-274 

#5-62 

#10-196 

#10-199 

#10-202 

#10-203 

#10-206 

#10-209 

#10-212 

#10-215 

#10-218 

#10-219 

#10-222 

#10-223 

#10-226 

#10-227 

#10-230 

#10-231 

#10-234 

#10-235 

#10-238 

#10-239 

#10-242 

#10-243 

#10-246 

#10-247 

#10-250 

#10-251 

#10-254 

#10-255 

#10-260 

#10-263 

#10-266 

#10-269 

#10-272 

#5-63 

9-167 

#5-61 

5-69 
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SymboL  table 


A$SCHK= 

A$$CP5= 

A$$PRI= 

A$$TRP= 

CERR  ^ 

CFGBF  = 

CFGSZ  = 

CFLIN  = 

CHKRDT 

COUNT  = 

C$$C<P= 

CS$ORE= 

C$$RSH= 

D$$BUG= 

0$$1SI!:= 

D$$L11= 

D$$YNC= 

D$$YNM= 

END 

E$$XPR= 

EMTIO  = 

FMT8  = 

FM.10  = 

FM.8  = 

F$$LVL= 

F.RS1Z= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

HF$DLM= 

HF$GWY  = 

HF$HDS= 


000000 

000000 

000000 

000000 

*»♦**«  Gx 

»*♦**♦  GX 

******  GX 

******  GX 

OOOA50R 

******  GX 

000000 

000400 

177564 

177514 

000000 

000001 

000000 

000000 

000036R 

000000 

*♦**■** 
****** 

000000 
000000 
000001 

****** 

000000 
000000 
000000 
000000 
000002 
000010 
000004 


GX 
GX 


GX 


HF$XDF= 
H$CUG 
HSDST 
H$D29 
HSFLG 
HSGLEN 
HSGLT 
HSGNAM 
H$GNML= 
HSGPT 
HSHITS 
HIHLEN 
HSLBDA 
HSLSDN 
HILDTE 
H$LEN 
HILOTS 
HSNETU 
003  H$NML  = 
HSNPT 
H$PTB 
H$PVC 
HSRDTE 
H$RNU 
H$SVC 
HSTRB 
HSXAVL 
HSXBIA 
H$X29C 
I$$RAR= 
I$$RDN= 
K$$CNT= 
K$$CSR= 


000020 
000010 
000012 
000014 
000000 
000104 
000044 
000050 
000020 
000046 
000034 
000044 
000070 
000072 
000002 
000042 
000032 
000024 
000006 
000022 
000020 
000006 
000004 
000042 
000036 
000016 
000100 
000074 
000040 
000000 
000000 
177546 
177546 


000104 
000604 
000176 
000046 
000002 
000007 
Errors  detected: 


ABS. 

DATA 
SSTATE 
$KTAB 
IKSTR 


000 
001 
002 
003 
004 
005 
0 


(RW,I,GBL,ABS,DVR) 


(RW,I,LCL,REL 
(RU,D,LCL,REL 
{RW,D,LCL,REL 
(RW,D,LCL,REL 


,C0N) 
,CON) 
,CON) 
,CON) 


(RW,D,LCL,REL,CON) 


«**  Assembler  statistics 


K$$LDC= 

K$$TPS= 

LD$LP  = 

LNKEND= 

L$$ASG= 

L»$DRV= 

L$$P11= 

L$$11R= 

M$$CR8= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

l«l$$NEr= 

l»l$$OVR= 

NEXT  = 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PCKBCD= 

P$$P45= 

P$$WRD= 

Q$$OPT= 

RDEND 

RDNAM 

RDTDF 

RDTE 

RDTEMX= 

RDTEN  = 


000000 

000074 

000000 

******  GX 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

******  GX 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

******  GX 

000000 

000000 

000010 

000212R 

000052R 

OOOOOOR 

000006R 

000006 

000024R 


RDTENO 
RDTENX 
RDTEP 
RDTEST 
RDTKU 
RDTLN  = 
RDTNAM 
RDTST 
RTSPC  = 
R$DAL 
RSDTE 
R$LEN 
R$LNK 
R$NAM 
R$OWN 
R$$DER= 
R$$K11= 
R$$SND= 
R$$11M= 
SPACE  = 
STRNXT= 
SYNERR= 
SYSFDB= 
S$$URG= 
S$$YSZ= 
T$$KMG= 
T$$HIN= 
V$$CTR= 
X$$DBT= 
003  $ALPHA= 
002  $ALP0L= 
$ANY  = 
002  SB-^R  = 


000166R 

000020R 

000025R 

0001 30R 

OOOOOORG 

000017 

OOOOOOR 

OOOOOORG 

******  GX 

000013 

000014 

000024 

000000 

000002 

000010 

000000 

000001 

000000 

000000 

000040 

******  GX 

******  GX 

******  GX 

000000 

007600 

000000 

000000 

001000 

000000 

000022 

******  GX 

000020 

******  GX 


002 
003 


$BLANK= 

003  $CEACC=: 
002  SDIGIT= 

$DNUMB= 

004  $E0S  = 
SERRLO 
SERRLI 
$ERRL2 
$ERR1T= 
$EXir  = 
SFAIL  = 
$GETAD= 
$6ETRV= 
$LAMDA= 
$NUMBR= 
$PSIPT= 
$PUTAD= 
$QROT 
$RADDR= 
$RAD50= 
$RBLCK= 
$SAVAL= 
$SAVRG= 
$STRNG= 
$SUBXP= 
$$$FLG= 
$$$KEY= 
$$$R  = 
$$$STA= 
$$$TMP= 
.PSTCN= 
.PSTPT= 
.TPARS= 


000006 

******  GX 

000024 

000014 

000012 

000036R 

000066R 

000122R 

******  GX 

000000 

Mim 

****** 
****** 

000000 
000002 
****** 
****** 

OOOOOORG 
******  GX 
000016 
******  GX 
******  GX 


GX 
GX 


GX 
GX 


******  GX 

000004 

000010 

177777 

000000 

000010 

000000 

OOOOOOR 

******  GX 

******  GX 

******  GX 


0 

0 

13495  Words 

14440  Words 

RSX-11M/PlUS 


Work  tile  reads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 

SYfvFPRDT!v2;r°52J54]VFPRDT/CR/-SP=SY:[1  J]RSXMCM.SML/MLj130J10]NETLIB/ML,[130J0]RSXMCM/PA:1,t132,10]VFPRDT 


(  53  Pages) 
(  55  Pages) 


002 
002 
002 


005 


I  ^ 


VFPRNW  -  INITIAL  CONFIG  FILE 
Parse  table  for  RNASDF 

167 
168 

169  000062 

170  000062 

171  000062 

172  000062 
173 

174  000062 

175  000062 

176  000062 

177  000062 

178  000062 
179 

180  000062 

181  000062 

182  000062 

183  000062 

184  000062 
185 

186  000062 

187  000062 

188  000062 

189  000062 

190  000062 
191 

192  000062 

193  000062 

194  000062 


H  4 

SC  MACRO  V05.03b  Saturday  29-Jun-85  02:40  Page  11 


.S8TTL  Parse  table  for  RNASDF 


STATES 
TRANS 

STATES 
TRANS 

RNADF 
ISKIPSP 

;  Skip  leading  spaces 

XRNA$DFX,,,1,SYNERR 

;  Flag  RNASDF  recognised 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

ISKIPSP 

lEND,  SEXIT 
ISTRINCRNAUSR 

;  Check  for  end 
;  Parse  user  name 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

lEND,  SEXIT 
lOPSEP 

:STRING,,RNAPAS 

;  Check  for  end 

;  Skip  operand  separator 

;  Parse  password 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

!END,  SEXIT 
lOPSEP 

ISTRING,,RNAACT 

;  Check  for  end 

;  Skip  operand  separator 

;  Parse  account 

STATES 

TRANS 
STATES 

lEND, SEXIT 

;  Ensure  correct  termination 

H  5 

VfPRNw  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:40  Page  ?3 
Parser  Subexpression  Action  Routines 


vFPx; 
tpar; 


503 
509 
510 
511 
512 
513 
5K 
515 
516 
517 
518 

519  001020 

520  001026 

521  001030 

522  00103A 

523  001042 

524  001046 
525 


126^27 
103005 
116700 
116760 
105267 

000001 


*•*  STORCH 

INPUTS 

STRLEN 
.PCHAR 


Store  string  character 


Number  of  characters  read  so  far 
Current  character  to  be  stored 


OUTPUTS 

STRLEN  incremented 

If  chars  read  <=  max  string  size. 


000164'  000020  STORCH 

000164' 

OOOOOOG  000165' 
000164'        10$: 


CMPB 
BHIS 

Move 

MOVS 
INCB 
RETURN 
.END 


STRLEN, *MAXSTR 

10$ 

STRLEN, RO 

. PCHAR, STRBUF(RO) 

STRLEN 


character  stored  in  string  buffer 

Check  string  not  too  long 

Do  not  store  character  if  no  room 

Store  character  in  buffer 
Count  this  character 


I  5 


VFPX29  - 

CONFK 

TPARS  STATE  TAE 

120 

121 

122 

123 

12^ 

000052 

125 

126 

127 

128 

000052 

129 

000052 

130 

131 

000052 

132 

000052 

133 

13A 

000052 

135 

000052 

136 

137 

000052 

138 

000052 

139 

KG 

000052 

141 

000052 

U2 

U3 

144 

145 

000052 

146 

000052 

147 

000052 

148 

K9 

000052 

H  6 

CONFIG  FILE  ACTION  ROU  MACRO  V05.03b  Saturday  29-Jun-85  02:41  Page 


.SBTTL  TPARS  STATE  TABLES 
TPARS  STATE  TABLES 

ISTATS  X29ST,X29KU 

X29$DF 

STATES  X29DF 

TRANS  5!X29SDF'/!,,,1,SYNERR 

STATES 

TRANS  $NUM8R,,X29MXC 

STATES 

TRANS  <',> 

STATES 

TRANS  SNUMBR,,X29CTM 

STATES 

TRANS  .'END,SEXIT,X29END 

CHECK  FOR  END  OF  SOURCE  LINE 

STATES  END 
TRANS   <';>,SEXIT 
TRANS   SEOS.SEXIT 

STATES 


MAXIMUM  CIRCUITS 


COUNTER  TIMER 


I  6 


H     7 
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LOOK   fOR    ♦♦•$DF    MACRO 


VHO^ 


108 
109 

no 

111 
112 
115 
1U 
115 
116 
117 
118 
119 
120 
121 

122  000000 

123  000004 

124  000006 
125 

126  000012 

127  000014 

128  000020 

129  000024 

130  000030 

131  000034 

132  000040 

133  000042 

134  000046 

135  000050 
136 

137 

138 

139 

140  000052 

141 

142 


.SBTTL  LOOK  FOR  ***$DF  MACRO 


Q***  -  LOOK  FOR  ***$DF  MACRO 

INPUTS: 

NONE 

OUTPUTS: 

C-8IT=SUCCESS/FAILURE 
R3,R4,R5=DESTROYED 


012705 
000402 
012705 

005001 
012702 
016703 
012704 
005067 

103003 
005367 
001401 


000000' 
000036' 


000000' 
OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 


.ENABL 

LSB 

$QX3P:: 

MOV 

#X3PDF,R5 

BR 

10$ 

SQCHN:: 

MOV 

*CHNDF,R5 

10$: 

CLR 

R1 

MOV 

#X3PKW,R2 

MOV 

CFGSZ,R3 

MOV 

#CFGBF,R4 

CLR 

SYNERR 

CALL 

.TPARS 

BCC 

20$ 

DEC 

SYNERR 

BEQ 

101$ 

20$: 

RETURN 

;  ERROR 

CONDITION 

101$: 

EMSGSR 

IT 

.DSA8L 

LSB 

STATE  TABLE  ADDRESS 

STATE  TABLE  ADDRESS 

FULL  KEYWORD  MATCH  LENGTH 

KEYWORD  TABLE  ADDRESS 

RECORD  LENGTH 

RECORD  BUFFER  ADDRESS 

CLEAR  SYNTAX  ERROR  FLAG 

GO  DO  THE  PARSE 

IF  CC,  FOUND  WHAT  WE  WERE  LOOKING  FOR 

DID  SYNTAX  ERROR  OCCUR? 

IF  EQ,  YES 


SYNTAX  ERROR 


I  7 


H  8 

VHOAT  -  HELP  SUBROUTINE  DATA    MACRO  V05.03b  Saturday  29-Jun-85  02:^2  Page  5 


55 
56 
57 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 

7A 
75 
76 
71 
78 

79 


000000 


000160 
000166 

000174 


000177 
000202 


82 
83 
8A 
85 
86 
87 


00020A 
000207 
000212 
000215 


000003 
000177' 

1U 
000003 

133 

062 

000005 

116 
110 
056 
102 
000012 


000001 


0001 7A' 
000012 

102 


061 
135 


105 
IK 
125 


000005 
000204' 

072 
054 


124 

120 
114 


MACRO  CALLS 


.MCALL  HLPDFS 


LOCAL  DATA 


HELP  FILE  DEFINITION 

HLPDFS  4,1,1,<VNP>,,DATSET,,<VNP> 

DEFINE  THE  HELP  LIBRARY  FILE 
DATSET:  .WORD   DEVL,DEVA,UICL,UICA,FILL,FILA 


DEVA; 
DEVL  = 

UICA: 

UICL  = 

FILA: 

FILL  = 


.ASCII 
.-DEVA 

.ASCII 

.-UICA 

.ASCII 

.-FILA 
.EVEN 

.END 


/L8:/ 
/CI, 23/ 

/NETHLP.ULB/ 
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VHELP 

CREATED  BY 

MACRO  ON  2 

SYMBOL 

■ROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

OF  SON 

=  000000 

#5-68 

DFSSMr 

=  000200 

#5-68 

OP$ADD 

=  000200 

#5-68 

3PSALL 

=  000200 

#5-68 

OPSCCS 

=  00000^ 

#5-68 

OPSCIE 

=  OOAOOO 

#5-68 

OPSCON 

=  000^00 

#5-68 

OPSCOP 

=  000001 

#5-68 

OPSCOS 

=  000100 

#5-68 

OPSDST 

=  000200 

#5-68 

OPSDTE 

=  OOOOAO 

#5-68 

OPSDUP 

=  000002 

#5-68 

OPIEST 

=  000100 

#5-68 

OPSEVE 

=  010000 

#5-68 

OPSFIL 

=  000200 

#5-68 

OPSGRP 

=  000100 

#5-68 

OPSHOS 

=  000001 

#5-68 

OPSHTM 

=  000002 

#5-68 

OPSINA 

=  OOAOOO 

#5-68 

OPSINC 

=  001000 

#5-68 

OPSKDS 

=  002000 

#5-68 

OPSKDT 

=  000400 

#5-68 

OPSKEV 

=  001000 

#5-68 

OPSKGR 

=  001000 

#5-68 

OPSKNT 

=  010000 

#5-68 

OP$<S< 

=  002000 

#5-68 

OPSLCT 

=  000200 

#5-68 

OPSLNE 

=  000040 

#5-68 

OPSLOC 

=  000001 

#5-68 

OPSLST 

-  000002 

#5-68 

OPSLTM 

=  000001 

#5-68 

OPSLVL 

=  000010 

#5-68 

OPSMAC 

=  000010 

#5-68 

OPSMCO 

=  000002 

#5-68 

OPSMDE 

=  000400 

#5-68 

OPSML I 

=  000004 

#5-68 

OPSMON 

=  000100 

#5-68 

OPSMST 

=  000020 

#5-68 

OPtNAM 

=  000004 

#5-68 

OPSNET 

=  004000 

#5-68 

OPSNLI 

=  000002 

#5-68 

OPSNOD 

=  000020 

#5-68 

OPSOUT 

=  002000 

#5-68 

OPSOWN 

=  000020 

#5-68 

OPSPAR 

=  000010 

#5-68 

OPSPRI 

=  000010 

#5-68 

OPSRET 

=  010000 

#5-68 

OPSRPA 

=  000010 

#5-68 

OPSSCO 

=  000001 

#5-68 

OPSSEG 

=  000400 

#5-68 

OPSSER 

=  000400 

#5-68 

OPSSIN 

=  000010 

#5-68 

ON  29-JUN-85   AT   02:42 
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CREF        04.00 


#5-68 


#5- 


#5-68 


VIM! 

SYMBC 

SYMBC 

EROUl 
ERR1 
ERR2 
ERR3 
FATAl 
FE.E) 
RS: 
F.URf 
GCLBl 
HFSGl 
HF$H( 
HFSXl 
H$FL( 
Pf  .P' 
PF.XI 
PF.XI 
R$$MI 
SYSFI 
Z.LEi 
$ADR, 
$ADR 
$BFR 

$BIG 
$CEA 
$CET 
$CET 
$CET 
$CET 
$CET 
$CEX 
$CLB 
$DBG 
$ERO 
$FMA 
$GET 
$GET 
$LLC 
$NTL 
$NTL 
$PDV 
$PDV 
$PFL 
$PSI 
$RAD 
$RBL 
$RSI 

$SAV 
SSLT 
SSL  I 
SUNE 
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SYMBOL    CROSS  REFERENCE 
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PAGE   1 

CREF        04.00 


VIM 


SYMBOL 

VALUE 

REFERENCES 

EROUT 

002012 

R 

5-316 

5-317 

#5-337 

ERRl 

001266 

R 

5-315 

*5-324 

ERR2 

001544 

R 

5-316 

#5-326 

ERR3 

002004 

R 

5-317 

#5-332 

FATAL 

r     ****** 

GX 

5-315 

5-316 

5-317 

FE.EXV 

=  000004 

5-121 

F.RSIZ 

=      ****** 

GX 

•5-244 

•5-284 

•5-295 

f .URBD 

=;       ****** 

GX 

•5-101 

•5-105 

•5-172 

•5-224 

•5-281 

•5-288 

GCLBUF 

~       ****** 

GX 

5-332 

5-332 

•5-342 

•5-343 

HFSGWY 

^  000010 

5-300 

HFSHOS 

=   00000^ 

^-lU 

HFSXDF 

=  000020 

5-303 

HSFLG 

000000 

5-294 

Pf .PSV 

=    ****** 

GX 

5-302 

PF.XDF 

=    ****** 

GX 

5-305 

PF.XGA 

-    ****** 

GX 

5-299 

R$$MPL 

-    ****** 

5-87 

5-153 

5-195 

5-277 

SYSFDB 

r     ****** 

GX 

•5-101 

•5-105 

•5-172 

•5-224 

•5-244 

•5-281 

•5-284 

•5-288 

Z.LEN 

-    ****** 

GX 

5-150 

$ADRX 

-    ****** 

GX 

•5-231 

•5-236 

5-241 

SADRZ 

r     ****** 

GX 

•5-230 

•5-237 

5-240 

$BFR 

=    ****** 

GX 

5-288 
5-341 

5-297 
5-342 

5-300 
5-343 

5-303 

•5-311 

•5-312 

5-313 

5-324 

SBIGCT 

~    *****y: 

GX 

•5-163 

^-^2 

•5-179 

•5-183 

5-186 

•5-213 

SCEAVL 

-    ****** 

GX 

5-281 

5-285 

tCETAB 

-    ****** 

GX 

5-105 

5-106 

5-132 

5-157 

5-167 

SCETDF 

-    ****** 

GX 

•5-133 

SCETLN 

-    ****** 

GX 

•5-160 

SCETND 

~    ****** 

GX 

5-106 

SCETST 

r:      ****** 

GX 

•5-115 

SCEXND 

=    ****** 

GX 

5-102 

SCLBUF 

-    ****** 

GX 

•5-341 

$DBG$ 

=    ****** 

5-99 

SEROUT 

=    ****** 

GX 

5-315 

5-344 

SFMASK 

=    ****** 

GX 

5-121 

SGETAD 

=    ****** 

GX 

5-244 

SGETRV 

=    ****** 

GX 

5-103 

5-127 

5-185 

5-284 

5-295 

SLLCTA 

-    ****** 

GX 

♦5-136 

5-249 

5-271 

SNTLHB 

-    ****** 

GX 

5-224 

SNTLPT 

=    ****** 

GX 

5-241 

SPDVNM 

r      ****** 

GX 

5-141 

5-270 

SPDVTA 

-      ****** 

GX 

5-101 

5-102 

5-114 

5-115 

5-127 

5-131 

♦5-135 

5-140 

SPFLAG 

-      ****** 

GX 

•5-296 

♦5-299 

♦5-302 

•5-305 

SPSIPT 
SRADDR 

r     ****** 
—     ****** 

GX 
GX 

5-292 
•5-103 

♦5-127 

•5-173 

5-230 

5-236 

•5-282 

•5-283 

♦5-295 

SRBLCK 

-     ****** 

GX 

5-231 

5-237 

SRSI7E 

~     ****** 

GX 

♦5-102 
5-174 

•5-107 
•5-178 

•5-110 
•5-182 

5-116 

•5-126 

5-161 

5-168 

5-171 

tSAVAL 

r     ****** 

GX 

5-100 

SSLTMA 

~     ****** 

GX 

•  5--'37 

5-214 

5-263 

5-265 

SSLTNM 

=     ****** 

GX 

5-215 

5-250 

5-264 

SUNBSZ 

-     ****** 

GX 

•5-232 

•5-238 

♦5-295 


5-324 


5-269 


5-173 
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.TITLE  VINI  -  VNP  INITIALIZATION 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  TASK  INITIALIZATION 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 


ITS 


VINI 
CON! 
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VIM  -  VNP  INITIALIZATION 
CONSTANT  DEFINITIONS 


569 
570 
571 
57? 
575 
5  7-; 
575 
576 
577 
578 
579 
580 
581 
582 
583 
58A 

585  002662 

586  002666 

587  002706 
588 

589 

590  002712 

'"    002720 


59 

592 

593 

594 

595 

596  002726 

597  002732 

598  00273A 

599  002736 

600  002740 

601  002742 

602  002746 

603  002752 

604  002754 

605  002760 

606  002762 

607  002766 

608  002770 

609  002774 

610  002776 
611 

612  003002 

613  003022 

614  003026 

615  003040 

616  003044 

617  003050 

618  003056 

619  003060 

620  003064 

621  C03066 

622  003100 

623  003104 

624  003116 

625  003122 


012702 
011267 


016267 
016267 
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»*-VSYM1 

READ  SYSTEM  IMAGE  FILE  FOR  WORD  VALUES  THAT  ARE  NOT  DEFINED 
FROM  SVM80L  TABLE.  UPDATE  BOUNDARY  CONDITIONS  FOR  RANDOM  ACCESS 
I/O. 

INPUTS: 

SYSTEM   IMAGE    FILE   OPEN 

OUPUTS: 

UPDATED  SY,i180L  TABLE 

BOUNDARY  CONDITIONS  FOR  GETRC,GETRV,PUTRC,GETAD  SATISFIED 


OOOOOOG 
OOOOOOG 


000002  OOOOOOG 
000004  OOOOOOG 


VSYMl:   MOV  #$8FR,R2 

GETRV  .SYSIZ,*6 

MOV  (R2),$SYS1Z 

.IF  NDF  R$$MPL 

MOV  2(R2),$VCTVB 

MOV  4(R2),$VCT0F 
.ENDC 

USE  AS  MUCH  OF  THE  SYSTEM  IMAGE 


POINT  AT  I/O  BUFFER 
READ  IN  THREE  WORDS 
SIZE  OF  SYSTEM  IN  32-WORD  BLOCKS 


V8N  OF  DISPLACED  MEMORY 

OFFSET  OF  VIRTUAL  ZERO  WITHIN  BLOCK 


; CMP01 ] 
;[MP01] 


016703 

OOOOOOG 

000241 

006003 

006203 

006203 

062703 

000002 

005067 

000014G 

005203 

020367 

000006G 

101403 

016703 

'5000060 

00520. 

020367 

00001 2G 

101402 

010367 

000012G 

011267 

OOOOOOG 

011267 

OOOOOOG 

022712 

100000 

032767 

000004  OOOOOOG 

001402 

022712 

120000 

103476 

011267 

OOOOOOG 

011267 

OOOOOOG 

5$: 


8$: 


10$: 


MOV 

CLC 

ROR 

ASR 

ASR 

ADD 

CLR 

INC 

CMP 

BLOS 

MOV 

INC 

CMP 

BLOS 

MOV 

GETRV 

MOV 

GETRV 

MOV 

CMP 

BIT 

BEQ 

CMP 

BCS 

GETRV 

MOV 

GETRV 

MOV 

SWTCHI 


AS  IS  ALLOCATED 

$SYSIZ,R3      ;  CALCULATE  NUMBER  OF 

;  CLEAR  C-8IT 
R3  ;   DISK  BLOCKS 

R3  ;   NEEDED  TO  CONTAIN 

R3  ;    SYSTEM  IMAGE  (  32.  X  8.  =  256  .  ) 

#2,R3         ;  LABEL  GROUP  IS  2  BLOCKS 
F.FFBY+SYSFDB   ;  FIRST  FREE  BYTE  IS  0 
R3  ;  AND  THEREFORE  EOFBN  MUST  BE  END+1 

R3,F.HIBK+2tSYSFD8  ;  IS  FILE  BIG  ENOUGH  ? 
5$  ;  YES 

F.HIBK+2+SYSFD8,R3  ;  USE  LARGEST  NUMBER  POSSIBLE 
R3  ;  ADJUST  FOR  FIRST  FREE  BYTE 

R3,F.EFBK+2+SYSFDB  ;  IS  EOF  BLOCK  SMALLER  THAN  NECESSARY 
8$  ;  NO 

R3,F.EFBK+2+SYSFDB  ;  SET  EOF  BLOCK  NUMBER  (  LOW  PART  ) 


.FMASK,#2 

(R2),$FMASK 

.EXSIZ 

(R2),$EXSIZ 

#100000,  (R2) 

#FE.EXV,$FMASK 

10$ 

#120000,  (R2) 

110$ 

.DEVHD 

(R2),$DEVHD 

.PARHD 

(R2),$PARHD 

#$CRAVL-2 


READ  SYSTEM  FEATURE  MASK  WORD  (  $FMASK  ) 

GET  $FMASK  VALUE  IN  LOCAL  STORAGE 

READ  EXEC  SIZE  (THIS  IS  AN  ADDRESS) 

UPDATE  EXEC'S  HIGHEST  ADDRESS  IN  ROOT 

LEGAL  SIZE 

20K  EXEC  ? 

NOT  20K  EXEC 

LEGAL  SIZE  ? 

ILLEGAL  EXEC  SIZE 

DEVICE  LISTHEAD 

UPDATE  ROOT  SEGEMENT  VALUE 

PARTITION  LISTHEAD 

UPDATE  ROOT  SEGEMENT  VALUE 
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SYMBOL   CROSS  REFERENCE 
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CREf       04.00 


5YMB0I 

VALUE 

REFERENCES 

ABTIM 

003726  R 

12-883 

#12-886 

CEAVL 

004060  R 

12-917 

#12-920 

CEPWR 

004116  R 

12-930 

#12-933 

CEXSTB 

004046  R 

9-430 

10-503         #12-914 

CLINS 

003430  R 

12-826 

#12-829 

CLKHD 

003752  R 

12-889 

#12-892 

CL.AST 

=  004000 

#8-138 

CL.ATT 

=   000200 

#8-138 

CL.CAS 

=  020000 

#8-138 

CL.CMT 

=  000001 

#8-138 

8-144             8-151 

CL.EIF 

=  000040 

#8-138 

CL.EXN 

=  040000 

#8-138 

CL.EXT 

=  100010 

#8-138 

CL.IND 

=  ^00002 

#8-138 

CL.LCC 

=  000020 

#8-138 

CL.NPR 

=  000400 

#8-138 

CL.OPN 

=  000100 

#8-138 

CL.RNE 

=  000004 

#8-138 

CL.XIT 

=    100000 

#8-138 

8-154 

CRAVL 

003310  R 

12-702 

#12-805 

CRCOV 

004104  R 

12-927 

#12-930 

CS.OUT 

=  000002 

8-1  6m 

C.CMLD 

=  000002 

*8-162 

*8-162 

C.SIZE 

=  000054 

8-162 

8-164 

OEFDEV 

000000  R 

#5-56 

9-403 

DEUMR 

003702  R 

12-877 

#12-880 

DEVHD 

003334   R 

12-808 

#12-811 

DLCOV 

004072  R 

12-920 

#12-927 

ERR0R1 

000200  R 

7-116 

#7-118 

ERRO 

000724   R 

#8-261 

ERR1 

000770  R 

8-249 

#8-263 

ERR10 

004432  R 

13-986 

#13-1000 

ERR11 

004520  R 

13-988 

#13-1002 

ERR12 

004602  R 

13-991 

#13-1004 

ERR13 

001310  R 

8-254 

#8-272 

ERR14 

004754  R 

13-993 

#13-1007 

ERR2 

001060  R 

8-251 

#8-266 

ERR3 

001170  R 

8-25i 

#8-269 

ERR4 

002140  R 

9-449 

#9-460 

ERR5 

002256  R 

9-450 

#9-463 

ERR6 

002536  R 

9-453 

10-516         #10-529 

ERR7 

002626  R 

10-519 

#10-531 

EXSIZ 

003346  R 

12-811 

#12-814 

EXSTB 

003276  R 

9-363 

10-480         #12-698 

FATAL 

=   «»»*»»      GX 

7-116 

8-253             8-254 

FD.INS 

=   »»«♦»»      GX 

8-177 

FE.CEX 

-  020000 

7-108 

FE.EXV 

=  000004 

11-617 

fILE 

=   *♦*♦»♦      GX 

8-143 
9-463 

8-157             8-224 

FMASK 

003360  R 

12-814 

#12-817 

FO.MFr 

;   ......     GX 

8-168 

9-449 


8-263 


9-450 


8-266 


9-453 


8-269 


11-671 


8-272  9-302 


9-460 
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•  •FILE*«1D««VNICP 


VNC 


VV    vv 

N.N 

NN 

CCCCCCCC 

pppppppp 

vv    vv 

NN 

NN 

CCCCCCCC 

pppppppp 

vv    vv 

NN 

NN 

pp    pp 

vv    vv 

NN 

NN 

pp    pp 

vv    vv 

NNNN 

NN 

pp    pp 

vv    vv 

NNNN 

NN 

pp    pp 

vv    vv 

NN 

MN  NN 

pppppppp 

vv    vv 

NN 

W      NN 

pppppppp 

vv    vv 

NN 

NNNN 

pp 

vv    vv 

NN 

NNNN 

pp 

vv  vv 

NN 

NN 

pp 

vv  vv 

NN 

NN 

pp 

vv 

NN 

NN 

CCCCCCCC 

pp 

vv 

NN 

NN 

CCCCCCCC 

pp 

SSSSSS5S 

rTTTTTTTTT 

SSSSSSSS 

TTTTTTTTTT 

SS 

SS 

SS 

SS 

SSS5SS 

SSSSSS 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

T 1 

1 1'i 

_oc    nT . / / 


L 


L 


H  15 

VNCP  -  VNP  HET  COMMANDS  NCP  STY  MACRO  V05.03b  Saturday  29-Jun-85  02:AA  Page  7-5 


v^ 


5^1  001624 

'it.2   001626 

543  001630 

5AA 

545 

546 

547 

548  001650 

549  001650 
550 

551  001670 

552  001676 

553  001704 
554 

555 
556 
557 
558 

559  001706 

560  001712 

561  001716 

562  001722 

563  001724 

564  001726 
565 

566 
567 
568 

569  001746 

570  001746 

571  001752 

572  001754 

573  001762 

574  001764 
575 

576 
577 
578 

579  002004 

580  002012 

581  002014 
582 

583  002016 

584  002022 
585 

586 
587 
588 
589 

590  002042 

591  002046 
592 

593  002050 

594  002054 
595 

596  002056 

597  002064 


003375 


20$: 
101$: 


BGT     10$ 
RETURN 
ERR0R$  UIDTL 


Executor  node 
JeXNOD: 


;  User  id  field  too  large 


READ  DECNET  HOME  BLOCK 


016767 
052767 


012700 
012701 

103401 


005767 
001004 
016767 


032767 
001001 


000014G  000012G 
OOOOOOG  OOOOOOG 


GETRV  $DECPT,#P$END 

MOV  $eFR+D$LNUM,RQe+LR.ADD  ;  Store  executor  node 

BIS  #VF.ADD,$VFLAG  ;  Reminder  to  use  address  check,  not  name  check 

RETURN 


000024G 
000006 


OOOOOOG 
OOOOOOG 


OOOOOOG 


Store  group  name 

§GR0::  MOV  #RQ8+L0.GR0,R0 

MOV  #MXGRPN,R1 

CALL  STORID 

BCS  101$ 

RETURN 

101$:   ERROR$  NAMETL 


Hello  timer 
$HTM:: 


Buffer  ptr 

Max.  size  of  old-format  group  name 
Check  and  store  group  name 
Branch  if  name  too  long 


CTDOOI] 
CTDOOn 
[TD001] 
[TD001] 
[TD001] 
[TDOOl] 


0O0032G 


TST  .PNUMH        ;  Must  be  a  word  value 

BNE  101$  ;  If  ne,  illegal 

MOV  .PNUMB,RQB+LO.HTM  ;  Store  the  timer  value. 

RETURN 


10$: 

101$:   ERROR$  BDHELT 


If  node  name  specified  ... 

OOOOOOG  llFNNA::BIT     #VF .ADD,$VFLAG 
BNE     99$ 
RETURN 


062716  000002 


99$: 


ADD     #2,(SP) 
ERR0R$  BDGRP 


Illegal  timer  value. 


Look  at  node  address  bit: 

Set  means  address  was  specified. 

Otherwise,  we're  golden. 

BAD  PARAM  GROUPING. 


012700 
000430 

012700 
000425 

032767 
001427 


002156' 
002152' 
000001 


Test  whether  a  particular  entity  was  specified. 

LOGGING  function  codes 


.ENABL  LSB 

$IFLOG::MOV     #IFLOGT,R0 

BR      10$ 


$IFALI::MOV 
BR 

OOOOOOG  $IFXAC::8IT 
BEQ 


#IFALIT,RO 
10$ 

#0P$XAC,$0PT0N 
99$ 


ALIAS  function  codes 
CI  for  X25-ACCESS  bit. 


uAC   A^k   C  -, 


I  15 

-St;  n :>././. 


[ 


H  16 
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1280  005052  101$;   ERROR*  NSLINE        ;  Line  not  in  system 

1281 
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ALPVCO  -  Al'.ocate  PVC  name  block  Cnew  format]  i   circuit  block 
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535 
536 
537 
538 
559 
5A0 
541 
542 
543 
544 
545 
546 
547 

548  001152 

549  001152 

550  001156 

551  001162 

552  001164 

553  001170 

554  001174 

555  001200 

556  001202 

557  001204 

558  001206 

559  001216 

560  001222 

561  001226 

562  001230 

563  .01234 

564  '  ^1240 

565  Ubl246 

566  001254 

567  001262 

568  001266 

569  001272 

570  001276 
571 

572 
573 

574  001312 

575  001316 
576 

577 
578 

579  001320 

580  001324 

581  001330 
582 

583  or,  1334 
594  001336 
585  001342 


.SBTTL  ALPVCO  -  Allocate  PVC  name  block  [new  format]  &   circuit  block 

***  ALPVCO  -  Allocate  PVC  name  block  [new  format]  &  cif-cuit  block 

INPUTS 

R1  -  Port  number  allocated  to  PVC 
All  parsed  fields  for  PVC 

OUiPUTS 

Registers  preserved 

Carry  clear  PVC  block  linked  into  chain 

Carry  set  if  unable  to  allocate  PVC  or  X25 


circuit  block 


ALPVCO: 


010146 
116701 
0(2701 

012603 
103455 
010005 

012702 
012700 
112001 
110167 

116767 
016767 
016767 
110367 
116701 
062701 


103407 


J16700 
062700 


000241 


000026' 
000016 


00001 6G 
000026' 

000002G 

000025'  00001 5G 
000004'  000010G 
OOOOOOG  00001 2G 
000014G 
000026' 
000016 


CALL 

SSAVAL 

SAVMAP 

MOV 

R1,-(SP) 

MOVB 

PVCNML.Rl 

ADD 

#C$LEN,R1 

CALL 

SALPOL 

MOV 

(SP)+,R3 

BCS 

50$ 

MOv 

R0,R5 

CEACCS 

R0,R4 

MOV 

#$BFR+C$GNAM,R2 

MOV 

*PVCNML,RO 

MOVB 

(R0)+,R1 

MOVB 

R1,$BFR+C$NML 

CALL 

MOVE 

MOVB 

PVCFLG,$BFR+C$FLG 

MOV 

PVCLCN,$BFR+C$LCN 

MOV 

DTEDES,$BFR+C$DTE 

MOVB 

R3,$BFRtC$P0RT 

MOVB 

PVCNML.Rl 

ADD 

#C$LEN,R1 

PUTAD 

R4,R1 

Attempt  to  allocate  X25  circuit  block 


CALL 
BCS 


ALLXCB 
50$ 


OOOOOOG 
000006 


Link  PVC  into  chain 


50$: 


MOV 
ADD 
CALL 

CLC 

RESMAP 

RETURN 


$PSIPT,RO 
#H$PVC,RO 
LNKEND 


Save  registers 

Save  current  mapping 

Save  port  number 

Get  length  of  PVC  name 

Compute  total  length  of  PVC  name  block 

Attempt  to  allocate  block 

Get  port  number  back 

Branch  if  allocation  failed 

Save  unmapped  address  of  allocation 

Map  to  allocation 

Target  for  PVC  name 

Address  of  PVC  name  buffer 

Get  length  of  name 

Move  name  length 

Move  PVC  name 

Move  PVC  flags 

Move  channel  number 

Move  DTE  descriptor 

Move  port  numoer 

Recompute  block  length 

Write  out  PVC  name  block 


Allocate  block 
Exit  if  no  store 


Form  address  of  Usthead 

Link  PVC  name  (address  of  PVC  in  R5) 


Signal  success 
Restore  mapping 


[TD001] 
[TDOOl] 
[TD001] 
CTD001] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[T0001] 
[TDOOl] 
[TDOOl] 
[TDOOl] 


.1  1 


I  2 


♦♦F1LE»»ID**VFPR[)T 


vv 

vv    F 

FFFFFFFFF 

PPPPPPPP 

RRRRRRRR 

DDDDDDDD 

TTTTTTTTTT 

vv 

vv    F 

FFFFFCFFF 

PPPPPPPP 

RRRRRRRR 

DDDDDDDD 

TTTTTTTTTT 

vv 

vv   F 

PP      PP 

RR      RR 

DD 

DD 

vv 

VV    F 

P'^      PP 

RR      RR 

DD 

DD 

vv 

vv    F 

PP      PP 

RR      RR 

DD 

DD 

vv 

VV    F 

PP      PP 

RR      RR 

DD 

DD 

vv 

VV    F 

FFFFFFF 

PPPPPPPP 

RRRRRRRR 

DD 

DD 

\/v 

VV   F 

FFfFFFF 

PPPPPPPP 

RRRRRRRR 

DD 

DD 

vv 

VV    F 

PP 

RR  RR 

DD 

DD 

vv 

VV    F 

PP 

RR  RR 

DD 

DD 

vv 

VV     F 

PP 

RR    RR 

DD 

DD 

vv 

VV     F 

PP 

RR    RR 

DD 

DD 

VV       F 

PP 

RR      RR 

DDDDDDDD 

VV       F 

PP 

RR      RR 

DDDDDDDD 

SSSSSS3S 

TTTTTTTTTT 

SSSSSS5S 

TTTTTTTTTT 

SS 

SS 

SS 

S5 

S5SSSS 

SSSSS5 

SS 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

VFPRDT 

SYMBOL 

SYMBOL 

CERR 

CFGBF 

CFGSZ 

CFLIN 

CH<RDT 

COUNT 

FMT10 

FMT8 

FH.10 

FM.8 

F.RSIZ 

HSRDTE 

LNKEND 

NEXT 

N$$VCT 

PCKBCD 

RDEND 

RDNAM 

RDTDF 

RDTE 

RDTEMX 

RDTEN 

RDTENO 

RDTEP 

RDTEST 

RDTKW 

RDTLN 

RDTNAM 

RDTST 

RTSPC 

RSDAL 

RSDTE 

R$LEN 

RSNAM 

SPACE 

STRNXT 

SYNERR 

SYSFDB 

S$$BAS 

SALPHA 

SALPOL 

$ANY 

$BFR 

SBLANK 

SCEACC 

SDIGIT 

SDNUMB 

$EOS 

SERRLO 

SERRLl 

$ERRl2 

SERRU 


_J 
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PAGE   1 

CREF        OA.OO 


SYMBOL      VALUE 


CERR 

CFGBF 

CFGSZ 

CFLIN 

CHKRDT 

COUNT 

FHT10 

FMT8 

FM.IO 

FM.8 

F.RSIZ 

HSRDTE 

LNKEND 

NEXT 

N$$VCT 

PCKBCD 

RDEND 

RDNAM 

RDTDF 

RDTE 

RDTEMX 

RDTEN 

RDTENO 

RDTEP 

RDTEST 

RDTKW 

RDTLN 

RDTNAM 

RDTST 

RTSPC 

R$DAL 

RSDTE 

R$LEN 

RSNAM 

SPACE 

STRNXT 

SYNERR 

SYSFDB 

S$$BAS 

SALPHA 

SALPOL 

$ANY 

$BFR 

SBLANK. 

SCEACC 

SDIGl! 

SDNUMB 

$EOS 

SERRLO 

SERRLl 

$ERRL2 

SERRIT 


GX 
GX 
GX 
GX 
R 
GX 
GX 
GX 


GX 

GX 
GX 

GX 


****** 
****** 
****** 
****** 

000A50 

****** 
****** 
****** 
000000 
000000 
****** 

OOOOOA 

****** 
****** 
****** 
****** 

000212 
000052  R 
OOOOCO  R 
000006  R 
000006 
00002^  R 
000166  R 
000025  R 
000130  R 
000000  RG 
000017 
000000  R 
000000  RG 
******  GX 
000013 
OOOOU 
000024 
000002 
000040 

:  ****** 

****** 

:  ****** 

:  ****** 

:  000022 

****** 

:  000020 

*♦♦*♦* 

:   000006 

:   ****** 

:  000024 

:  000014 

:  000012 
000036  R 
000066  R 
000122  ' 

****** 


GX 
GX 
GX 


GX 
GX 
GX 


GX 


REFERENCES 

8-104 

9-129 

9-128 

8-104 

12-232 
♦11-206 

8-104 

8-106 
#8-104 
#8-106 
♦12-261 

12-263 

12-264 
♦11-207 

12-241 

12-231 
#12-227 
#11-179 

9-125 
#7-95 
#6-83 
#7-96 
#11-214 
#7-97 
#11-201 

9-127 
#7-94 
#7-93 
#10-146 

8-104 
♦12-253 

12-257 

12-234 

12-247 
#6-84 

11-208 
♦9-130 
♦12-261 

8-104 
#10-146 

12-237 
#10-146 

12-242 
#10-146 

12-241 
#10-146 
#10-146 
#10-146 
#8-104 
#8-105 
#8-106 

9-140 


8-105 


8-105 

#13-289 

12-253 

8-105 

#8-105 

♦13-291 
13-290 

11-214 
13-297 


11-202 
11-180 
11-214 

12-230 

#10-146 
7-95 
11-183 

8-105 


12-261 
13-500 
11-184 
11-216 
♦9-133 
♦13-291 
8-104 


12-246 
13-297 


11-196 
11-221 
12-272 


8-106 
8-106 

♦13-298 


VFPRNW 
Parse 

19 
19 
19 
19 
2C 
2C 
20 
2C 
20 
2C 
20 
2C 
2C 
2C 
21 
21 
21 
21 
21 


11-207 
12-249 


12-255 

7-97 
11-187 

8-106 
13-298 


♦13-298 
8-105 


♦12-253 


12-271 


12-229 
13-302 


11-201 
12-248 


12-228 
13-301 


12-254 


8-105 


12-256 


-106 


13-294 


8-106 


13-299 


.1     ^ 


VFPRNW  -    INITIAL    CONFiG   FILE    SC   MAi 
Parse   table    for   RNASDF 

196 
197 
198 

199  000062 

200  000062 

201  000062 

202  000062 
205  000062 

204  000062 

205  000062 

206  000062 
207 

208  000062 

209  000062 

210  000062 
211 

212  000062 

213  000062 
2K  000062 


I  4 
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;  Parser  subexpressions 

STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 

OPSEP 
ISKIPSF 

COMMA 

ISKIPSF 

SLAMDA, 

SEXIT 

STATES 
TRANS 
TRANS 

SKIPSP 
SBLANK 
SLAMDA 

SKIPSP 
SEXIT 

STATES 
TRANS 
TRANS 

END 

SEOS.SEXIT 
COMENT.SEXIT 

Skip  separators  between  operands 
Skip  trailing  spaces 

Ensure  separating  comma 

Skip  leading  spaces 

RETURN 

Skip  leading  spaces  and  tabs 

RETURN 

End-of-line  test 


J  « 


VFPRNW 
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VFPX 
X29$ 


ALNET 

A$SCHI<,= 

A$$CPS= 

A$$PR1= 

A$$TRP= 

BNQST 

BRA   = 

BRA5T 

CERR  = 

CFGBF 

CFGSZ  = 

CFLIN  = 

CKNET 

CLRSTR 

COMENT= 

COMMA  = 

C$$CKP= 

C$$ORE= 

C$$RSH= 

OBLQT 

DQUOTE= 

D$$BUG= 

D$S1SK= 

D$$L11= 

D$$YNC= 

D$$VNM= 

END 

E$$XPR= 

fMTIO  = 

FMT8 

FM.IO  = 

FM.8  = 

F$$LVL= 

F.RSIZ= 

G$$TPP 

G$$TSS- 

G$$TTIC  = 

G$$URD= 

HF$DLM= 

HF$GWY= 


0005AOR 

000000 

000000 

000000 

000000 

000226R 

000074 

000220R 

****** 


n  ****** 


GX 
GX 

*»*»♦♦  (3x 

******  GX 

000406R 

001012R 

000073 

000054 

000000 

000400 

177564 

000266R 

000042 

177514 

000000 

000001 

000000 

000000 

0001 66R 

000000 

******  GX 


=  ****** 
000000 
000000 
000001 


******  GX 

000000 

000000 

000000 

000000 

000002 

000010 


HF$H0S= 

HF$XDF= 

H$CUG 

HSDST 

H$D29 

003  H$FLG 
HSGLEN 

003  H$GLT 
HSGNAM 
H$GNML= 
H$GPT 
HSHITS 
HSHLEN 
HSLBDA 
HSLBDN 
HSLDTE 
HSLEN 
H$L0TS 
HSNETW 

003  H$NML  = 
H$NPT 
HSPTB 
HSPVC 
HSRDTE 
H$RNW 
HSSVC 

003  H$TRB 
HSXAVL 
HSXBIA 
H$X29C 
I$$RAR= 
I$$RDN= 
KET   = 
K$$CNT= 
K$$CSR= 
K$$LDC= 
K$$TPS= 
LDSLP  = 
LNKEND= 
L$$ASG= 


000004 

000020 

000010 

000012 

000014 

000000 

000104 

000044 

000050 

000020 

000046 

000034 

000044 

000070 

000072 

000002 

000042 

000032 

000024 

000006 

000022 

000020 

000006 

000004 

000042 

000036 

000016 

000100 

000074 

000040 

000000 

000000 

000076 

177546 

177546 

000000 

000074 

000000 

******  GX 

000000 


L$SDRV= 

L$$P11= 

L$$11R= 

HAXJD  = 

HAXSTR= 

MOVE  = 

HXACAC= 

MXACPA= 

MXACUS= 

MXN01D= 

M$$CR8= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$0VR= 

NQST 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

OPSEP 

P$$P45= 

P$$WRD= 

QBfiAST 

QST 

Q$$OPT= 

RNAACT 

RNACCT= 

RNADF 

RNAL  = 

RNAPAS 

RNAUSR 

RNETUK= 

RNNL  = 

RNN0DE= 


000000 

000001 

000000 

000020 

000020 

******  GX 

000020 

000010 

000020 

000006 

000124 

000000 

000000 

000000 

000000 

000000 

000300R 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000140R 

000000 

000000 

000244R 

000254R 

000010 

00031 2R 

******  GX 

000040R 

******  GX 

000250R 

000206R 

******  GX 

******  GX 

******  GX 


.    ABS.      000104 

000 

(RW,I,G8L,ABS,0VR) 

001050 

001 

(RW,I,LCL,REL,C0N) 

DATA          000206 

002 

(RW,D,LCL,REL,C0N) 

SSTATE      000320 

003 

(RU,D,LCL,REL,C0N) 

$KTAB        000004 

004 

(RW,D,LCL,REL,CON) 

SKSTR        000016 

005 

(RW,D,LCL,REL,rON) 

Errors   detected: 

0 

•»»   Assembler   statistics 

tJo-k     tUe     reads 

:   0 

k  .   k      f 1 le  writes 

■   0 

5  ^e  of  work   file 

:    1380^ 

Words     (   54  Pages) 

i:ize  of   core  pool 

:    1444( 

Words      (    55  Pages) 

RNPASS= 

RNPL  = 

RNTL  = 

RNUL  = 

RNUSER= 

RNWDF 

RNWEND 

RNWKU 

RNWNET 

RNWNOD 

RNWST 

RTSPC  = 

R$ACC 

R$ACL 

R$NML 

RSNOD 

003  RSNWK 
R$NUL 
R$NXT 
RSPAL 
R$PAS 
R$USL 
R$USR 
R$$DER= 
R$$K11= 

003  R$$SND= 
R$$11M= 
SKIPSP 

003  SPFILL= 

"~  STORCH 
STRBUF 
STRING 
STRLEN 

003  SYNERR= 
SYSFD8= 
S$$WRG^ 
S$$YSZ= 
T$$KMG= 
T$$MIN= 
V$$CTR= 


003 


******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

OOOOOOR 

000354RG 

OOOOOORG 

000062R 

000144R 

OOOOOORG 

******  GX 

000064 

000063 

000002 

000023 

000003 

000104 

000000 

000052 

000053 

000031 

000032 

000000 

000001 

000000 

000000 

0001 56R 

******  GX 

001020R 

000165R 

0001 76R 

000164R 

******  GX 

******  GX 

000000 

007600 

000000 

000000 

001000 


003 


X$$DBT= 
$ALPHA= 
$ALPOL= 
$ANY  = 
$BFR  = 

003  $BLANK= 
$CEACC= 

004  $DIGIT= 
$DNUMB= 
$EOS  = 
SERRRA 
SERRRB 
$ERRRC 
SERRRX 
$ERR1T= 
$EXIT  = 
$FAIL  = 
$GETAD= 
$6ETR\/= 
$LAMDA= 
$NUHBR= 
$PSIPT= 
$PUTAD= 
$QRNA 
SQRNU 
$RADDR= 
$RAD50= 

003  $RBLCK= 
$SAVAL= 
$STRNG= 

002  $SUBXP= 

003  $$$FLG= 
""'  $$$KEY= 

$$$R  = 
$$$STA= 
$$$TMP= 
.PCHAR=: 
.PSTCN= 
.PSTPT= 
.TPARS= 


002 


000000 

000022 

******  GX 

000020 

******  GX 

000006 

******  GX 

000024 

000014 

000012 

OOOOOOR 

000026R 

000050R 

0001 04R 

******  GX 

000000 

177777 

****** 

****** 

000000 

000002 

******  GX 

******  GX 

000006RG 

OOOOOORG 

******  GX 

000016 

****** 

******  GX 

000004 

000010 

177777 

000001 

000010 

000000 

000007R 

******  GX 

******  GX 

******  GX 

******  GX 


GX 
GX 


GX 


002 
002 
002 
002 


005 


J  5 
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VFPX3! 
TPARS 


151 
152 
153 
154 
155 

156  000052 

157  000056 

158  000060 

159  000064 

160  000066 

161  000074 
162 

163  000076 

164 

165 

166 

167 

168  000104 

169  000110 

170  000112 

171  000120 
172 

173  000122 

174 

175 

176 

177 

178  000130 

179  000134 

180  000136 

181  000142 

182  000160 

183  000164 
184 

185  000166 

186  000172 

187  000176 

188  000200 

189  000204 

190  000210 

191  000212 

192  000214 
193 

194  000216 

195  000224 

196  000232 

197  000236 

198  000254 

199  000260 

200  000264 

201  000302 

202  000306 

203  000312 
204 

205  000314 

206  000322 
207 


.SBTTL  X29$DF  ACTION  ROUTINES 


005767 
001007 
105767 
001004 
116767 


005767 
001004 
016767 


016700 
001467 
062700 

005767 
001053 


OOOOOOG 
000001 G 
OOOOOOG  000206' 


OOOOOOG 
OOOOOOG  000210' 


MAXIMUM  CIRCUITS 


X29MXC:  TST 
BNE 
TSTB 
BNE 
MOVE 
RETURN 


101$:   EMSGSR  98 

COUNTER  TIMER 
X29CTM: 


.PNUMH 

101$ 

.PNUMBtl 

101$ 

.PNUMB,MAXVC 


101$: 


TST 
BNE 
MOV 
RETURN 


EMSG$R  9C 


.PNUMH 

101$ 

.PNUMB.CTIMR 


SINGLE  WORD  VALUE? 

NO-  ILLEGAL 

SINGLE  BYTE   VALUE? 

NO-   ILLEGAL 

SAVE  MAXIMUM  CIRCUITS  VALUE 

RETURN 

ILLEGAL  MAX  CIRCUITS  VALUE 


SINGLE  WORD  VALUE? 

NO-  ILLEGAL 

SAVE  COUNTER  TIMER  VALUE 

RETURN 

ILLEGAL  COUNTER  TIMER  VALUE 


OOOOOOG 

000040 

OOOOOOG 


012701  000016 


103451 
012702 
012701 
005022 
005301 
001375 


016767 
016767 
005067 

016701 
062701 


OOOOOOG 
000007 


000206'  000002G 
000210'  OOOOOOG 
000010G 


OOOOOOG 
000040 


010067  OOOOOOG 


END  OF  X29$DF  MACRO 

X29END:  MOV  $PSIPT,RO 

BEQ  101$ 

ADD  #H$X29C,R0 

GETRV  R0,#2 

TST  $BFR 

BNE  101$ 

MOV  #Q$LEN,R1 

CALL  $ALL16 

BCS  102$ 

MOV  #$BFR,R2 

MOV  #Q$LEN/2,R1 

10$:    CLR  (R2)+ 

DEC  Rl 

BNE  10$ 

MOV  MAXVC,Q$MXVCt$BFR 

MOV  CTIMR,Q$CTIM+$BFR 

CLR  Q$TCLZ+$BFR 

PUTRC  RO,#Q$LEN 

MOV  $PSIPT,R1 

ADD  #H$X29C,R1 

GETRV  R1,*2 

MOV  R0,$6FR 

PUTRC 

RETURN 

101$:   EMSG$R  9A 

102$:   EMSG$R  90 


POINT  TO  HOME  BLOCK 

THIS,  OF  COURSE,  CAN  NEVER  HAPPEN 

POINT  TO  X29  LISTHEAD 

READ  IN  LISTHEAD 

X.29  DATABASE  ALREADY  EXIST? 

YES-  ILLEGAL  2ND  OCCURRENCE 

GET  LENGTH  OF  X.29  DATABASE 

ALLOCATE  FROM  DSR 

BR  IF  UNABLE  TO  ALLOCATE 

POINT  TO  X29  BLOCK 

GET  LENGTH  IN  WORDS 

ZERO  THE  BLOCK 

MORE  TO  ZERO? 

YES,  KEEP  GOING 

;  STORE  MAXIMUM  CIRCUITS  VALUE 

;  STORE  COUNTER  TIMER  VALUE 

STORE  TIME  COUNTERS  LAST  ZEROED 

WRITE  UPDATED  X29  BLOCK 

GET  HOME  BLOCK  POINTER 

POINT  TO  X29  LISTHEAD 

READ  IN  X29  LISTHEAD 

STORE  POINTER  IN  HOME  BLOCK 

REWRITE  UPDATED  LISTHEAD 

RETURN 

ILLEGAL  OCCURRENCE  OF  X29$DF 
X.29  BLOCK  ALLOCATION  FAILURE 
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VFPX3P   -    INITIAL    CONFIG   FILE    SC  MACRO 
TPARS    STATE    TABLES 

HA 

K5 

U6 

U7 

•■  ,8  000060 

H9 

150 

151 

152 

153  000060 

ISA  000060 

155 

156  000060 

157  000060 
158 

159  000060 

160  000060 
161 

162  000060 

163  000060 
16A 

165  000060 

166  000060 
167 

168  000060 

169  000060 
170 

171  000060 

172  000060 
173 

17A  000060 

175  000060 


V05.03b  Saturday  29-Jun-85 


02:A 


1  Page  9 


.SBTTL  TPARS  STATE  TABLES 
TPARS  STATE  TABLES 

ISTATS  X3PST,X3PKU 


;  X3P$[)F 

STATES 
TRANS 

X3PDF 
!!X3PSDFX,,,1,SYNERR 

STATES 
TRANS 

$NUMBR,,BLKDEF 

STATES 
TRANS 

<',> 

STATES 
TRANS 

$NUMBR,,BLKMAX 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

SNUMBR,,WNDDEF 

STATES 
TRANS 

<',> 

STATES 
TRANS  $NUM8R,SEXIT,WNDMAX 


DEFAULT  BLOCK  SIZE 


MAXIMUM  BLOCK  SIZE 


DEFAULT  WINDOW  SIZE 


MAXIMUM  WINDOW  SIZE 
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VHDAT   -   HELP  SUBROUTINE    DATA 
Symbol    table 


I  8 

MACRO  V05.03b  Saturday  29-Jun-85  02:^2  Page  5-1 


A$$CHK= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

C$SCKP= 

Ct$ORE= 

C$$RSH= 

DATSET 

DEVA 

DEVL  = 

D$$BUG= 

D$$1SK= 

D$$L11= 

D$$YNC= 

D$$YNM= 

E$$XPR= 

FILA 


000000 
000000 
000000 
OOOGOO 
000000 
OOOAOO 
17756A 
0001 60R 

0001  r^iR 

000003 
1775U 
000000 
000001 
000000 
000000 
000000 
00020AR 


FILL  = 
F$$LVL= 

G$$TPP: 

Gt$TSS= 
G$$TTK= 
G$$WRD: 
I$$RAR= 
I$$RDN: 
K$$CNT: 
K$$CSR: 
K$$LDC: 
K$$TPS: 
LD$LP  ■■ 
LSSASG^ 
L$$DRV: 
LSSPTI^ 
L$$11R^ 


000012 
000001 
000000 
000000 
000000 
000000 
000000 
000000 
1775A6 
177546 
000000 
000074 
000000 
000000 
000000 
000001 
000000 


H$$CRB= 

M$$CRX= 

H$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

N 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

P$$P45= 

P$$URD= 


000124 
000000 
000000 
000000 
000000 
000000 
000003 
000001 
000001 
000001 
000001 
000001 
000010 
000001 
000001 
000000 
000000 


Q$$OPT= 
R$$DER= 
R$$K11= 
ft$$SND= 
R$$11M= 
S$$URG= 
S$$YSZ= 
S.ANM1= 
S.ANM2= 
S.FDB  = 
S.FNAM= 
S.FNB  = 
S.FNBW= 
S.FNTY= 
S.FTYP= 
S.NFEN= 
T$$KMG= 


000010 
000000 
000001 
000000 
000000 
000000 
007600 
000014 
000005 
00014  0 
000006 
000036 
000017 
000004 
000002 
000020 
000000 


T$$M]N= 

UICA 

UICL  = 

V$$CTR= 

X$$DBT= 

SHDFNB 

SHDSP 

SHEFN  = 

$HFDB 

$HLUN1= 

$HLUN2= 

$HMOD 

SHNAME 

$$$   = 

...PC1= 

...TPC= 


000000 
000177R 
000005 
001000 
000000 
0001 56RG 
0001 50RG 
000001  G 
000004RG 
000004  G 
000001  G 
OOOOOORG 
0001 52R6 
000003 
000010R 
000140 


.  ABS.  000000 
000216 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


•••  Assembler   statistics 


0 

0 

10536  Words 

14440  Words 

RSX-11M/PLUS 


Work  file  reads: 
Wr  k  file  writes: 
Size  of  work  file: 
Size  of  core  pool: 
Operating     system: 

SYfvHD^!v2!n32i°34]VHDAT/CR/-SP=SY:[1J]RSXMCM.SML/ML,C130J10]NETLIB/ML,C130J0]RSXM^ 


42  Pages) 
55  Pages) 
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VHELP 

CREATED  BY 

MACRO 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERE 

OPSSTA 

; 

OOOOOA 

#5-68 

OPSTPA 

= 

000020 

#5-68 

OPSTRl 

- 

000040 

#5-68 

OP$UCS 

r 

000020 

#5-68 

OPSUSE 

= 

000002 

#5-68 

OPSVEC 

r 

000040 

#5-68 

OPSVER 

- 

000040 

#5-68 

OPSXAC 

- 

000001 

#5-68 

OP$XPR 

= 

000002 

#5-68 

0P$X5S 

~ 

000004 

#5-68 

0P$X9S 

- 

000010 

#5-68 

QFSACT 

- 

000001 

#5-68 

QFSALL 

~ 

000002 

#5-68 

QF$<NO 

r 

000004 

#5-68 

QFSLQO 

- 

000010 

#5-68 

RQB 

- 

*«»**.     6X 

6-84 

TYSCHA 

- 

000400 

#5-68 

TYSEVE 

= 

001000 

#5-68 

TYSSTA 

r 

002000 

#5-68 

TYSSUM 

~ 

000000 

#5-68 

WC.CNT 

= 

000400 

#5-68 

WC.EVE 

= 

004000 

#5-68 

WC.TRI 

~ 

002000 

#5-68 

WC.UNT 

- 

001000 

#5-68 

SHELP 

- 

«*«»»»  Gx 

6-85 

SVHELP 

000000  RG 

#6-83 

ON  29-JUN-85  AT   02:42 


I     9 

PAGE   4 

CREF        04.00 


VIM! 

SYMBI 

SYMBI 

SVIM 
$$ 


$$$ 
$$$$ 

.CEA 
.MGM 
.PDV 
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VIM!  CREATED  BY     MACRO     ON  29-JUN-85  AT   02:42 

SYMBOL    CROSS   REFERENCE 


1  10 

PAGE   2 

CREF       OA.OO 


VlNl    ■ 
LOCAL 


SYMBOL      VALUE 


SVIMl 


m 

.CEAVL 
.MGMGE 
.PDVTA 


000000  R6 
177777 


001346 
002004 


R 

R 
6X 
GX 
GX 


REFERENCES 

#5-99 

5-321 
#5-324 

5-328 

5-331 
#5-321 
#5-324 

5-282 

5-118 

5-103 


5-321 

5-325 

#5-328 

#5-331 

5-324 

#5-326 

5-228 


#5-321 
5-325 
5-329 
#5-332 
#5-325 
#5-332 


5-322 

#5-325 

5-329 

5-326 


5-322 
#5-326 
#5-329 

#5-327 


#5-322 
5-327 
5-330 

5-332 


5-323 
5-327 
5-330 


5-323 
#5-327 
#5-350 


#5-323 
5-328 
5-331 
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VINI  -  VNP  INITIALIZATION 
LOCAL  DATA 


MACRO  V05.03b  Saturday  29-Jun-85 


1  11 

02:4 


3  Page  5 


VIN 
CON 


54 
55 

56  000000 
000003 
57 
58 


IK 
072 


.SBTTL  LOCAL  DATA 

102     060  DEFDEV:  .ASCIZ  /L80:[/ 
135     000 

.EVEN 


J  11, 


[" 


VlNl  -  VNP  INITIALIZATION 
CONSTANT  DEFINITIONS 
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626  003150 

627  003156 

628  005UA 
629 

630 
651 
632 
633 
63^ 
655 
636 
657 
638 
639 
640 
6A1 
642 
645 
644 
645 
646 
647 
648 
649 
650 
651 
652 
655 

654  005156 

655  005164 

656  005166 

657  005172 

658  005200 

659  005202 
660 

661  005206 

662 

665  005214 

664 

665 

666 

667 

668 

669  005216 

670  005254 

671  005262 


016767 
062767 


OOOOOOG  OOOOOOG 
177776  OOOOOOG 


14$: 


16$: 


022767 
001002 
005067 
022767 
001002 
005067 


177777  OOOOOOG  15$: 

OOOOOOG 

MllT!     OOOOOOG  50$: 

OOOOOOG 

40$: 


MOV 
ADD 
GETRV 

.IF  DF 

CMP 

BEQ 

SWTCHl 

GETRV 

CMP 

BEQ 

SWTCHl 

GETRV 

MOV 

BLT 

DEC 

BEQ 

MOV 

ASL 

ASL 

ASL 

MOV 

ADD 

MOV 

BR 

.ENDC 

CMP 
BNE 
CLR 
CMP 
BNE 
CLR 

SWTCHl 

RETURN 


.CRAVL,$RADDR 

#-2,$RADDR 

,#6 

R$$MPL 

#-1,.P0LHD 

U$ 

#$POLHD 

.POLHD 

*-1,.ICAVL 

15$ 

#$1CAVL 

.JCAVL,#4 

.MPR0,R5 

15$ 

R5 

15$ 

R3,R2 

H. 
R2 

R2 

$1CAVL,$ICAVL(R 
#2,R2 

$JCAVLt2,$ICAVL 
16$ 


ERRORS 


110$: 


ERMSG$ 
ERBLK$ 
ERRPT$ 


SET  ADDRESS  OF   RSX   i    OL 

ADJUST   TO  POINT  AT      jUNDING   FACTOR 

READ   IN   5  WORD   LISTHEAD 


SECONDARV  POOL   SUPPORTED 

IF   NO  -  BRANCH 

POINT  TO  CORRECT  INTERNAL  CELL 

READ  LISTHEAD 

KB  AVAILABLE  LIST   SUPPORTED   ? 

IF  NO  -  BRANCH 

POINT  TO  CELL 

READ  LISTHEAD  AND  SIZE 

MULTIPROCESSOR  SUPPORT  ? 

IF  NO  -  BRANCH 

FIRST  PROCESSOR  ALREADY  SET  UP 

IF  NO  MORE  -  BRANCH 

COPY  CPU  NUBER 

MULTIPLY  BY  8. 


25 


#-1,.DLC0V 

50$ 

.DLCOV 

#-l,.CRCOV 

40$ 

.CRCOV 


;  COPY  ADDRESS 
GET  BLOCK  ADDRESS 
(R2)  ;  COPY  BLOCK  ADDRESS 
;  CONTINUE 


WAS  DLC  OVERHEAD  DEFINED  ? 

IF  NE,  YES 

ELSE,  DEFAULT  TO  ZERO 

WAS  CRC  OVERHEAD  DEFINED  ? 

IF  NE,  YES 

ELSE,  DEFAULT  TO  ZERO 

SWITCH  BACK  TO  DEFAULT  BUFFER 


<IUeqal  executiue  size  (  !!0  ).> 

,<$8FR> 

,$ER0UT, FATAL 


;[MP01] 
;CMP01] 
;CMP01D 
; [MP01 ] 
;CHP01] 
;[MP01] 
;[MP01] 
;[MP01] 
;CMP01] 
;[MP01] 
;CMP01] 
;[MP01] 
;[MP01] 
;CMP01D 
;CMP01] 
;[MPOn 
; CMPOl : 
;[MP01] 
; CMPOl ] 
; CMPOl] 
; CMPOl ] 

; CMPOl] 


MA  rnn  unc  n7U 
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VINI      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:43 
SYMBOL  CROSS  REFERENCE 


SYMBOL   VALUE 


FRKHD 

F.EFB< 

F.ERR 

F.FACC 

F.FFBY 

F.HIBK 

f .NRBD 

F.RACC 

F.RSI2 

F.RTYP 

F.URBD 

F5.11S 

GTDUIC 

HEADR 

LSBBLK 

LSBXFR 

MGEXT 

MGMGE 

NETPF 

NSO 

NST 

NS2 

NS3 

NSA 

NS5 

NS6 

NS7 

NTUIC 

OKLIST 

PARHD 

PATT 

PDVTA 

PHDR 

PLGTH 

PPRO 

P.BLKS 

P.NAM 

P.REL 

R$$MPL 

R.FIX 

SB.DEF 

SB.LNK 

SB.SYB 

SB.\/AL 

STKDP 

SYMDV 

SYSFDB 

SYSIZ 
SYSNM 
SYSPMT 


003A42  R 
000010 
000052 
000043 
000014 
000004 
000024 
000016 
000002 
000000 
000020 
000400 
004760  R 
003454  R 
000360 
000550 
003644  R 
003656  R 
004022  R 
003524  R 
003536  R 
003550  R 
003562  R 
003574  R 
003606  R 
003620  R 
003632  R 
004034  R 
002634  R 
003372  R 
003764  R 
004046  R 
003776  R 
003500  R 
004010  R 
000016 
000004 
000014 


000002 
000000 
000004 
000010 
003466 
002264 


GX 


R 
R 
GX 


003404  R 
005416  R 
001314  R 


REFERENCES 

12-829 

11-608 

8-266 
♦8-168 
♦11-602 

11-604 
♦8-220 
•8-177 
♦8-179 

8-173 
♦8-177 

9-440 

9-356 

12-832 

8-179 

8-182 

12-868 

12-871 

12-901 

12-844 

12-847 

12-850 

12-855 

12-856 

12-859 

12-862 

12-865 

9-394 

10-485 

12-817 

12-892 
#12-916 

12-895 

12-838 

12-898 

13-952 

15-952 

15-960 

7-95 

11-589 

8-176 

10-482 

10-496 

9-451 

9-394 

12-835 

9-456 

8-167 

11-604 

12-820 

12-825 

8-142 


#12-852 

♦11-610 

9-460 


11-606 


♦9-397 
♦8-176 
♦11-625 

#14-1020 
#12-855 

8-180 

8-184 
#12-871 
#12-874 
#12-904 
#12-847 
#12-850 
#12-855 
#12-856 
#12-859 
#12-862 
#12-865 
#12-868 

12-904 
#10-557 
#12-820 
#12-895 

#12-898 
#12-841 
#12-901 

15-954 

8-189 
11-650 

#10-564 

#10-565 

9-452 

♦10-495 

#12-858 

#10-478 

8-173 

11-606 

#12-823 

#12-826 

#8-279 
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CREF       04.00 


9-463 


♦9-439 
♦11-661 


♦8-218 


♦11-586 


♦11-612 


♦11-628 


#12-907 


8-200 
12-700 


10-489 
10-495 


►8-179 
11-608 


8-208 
12-913 


10-491 
#10-566 


♦8-220 
♦11-610 


8-222 


10-511 


8-266 

♦11-612 


9-335 


9-568 


9-422 


10-543 


10-512         #10-565 


♦9-597 
♦11-625 


♦9-459 
♦11-628 


♦11-586 
♦11-661 


♦11-602 


in-a";    AT   n:3./.x 
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VNCP  -  VNP  GET  COMMANJDS  NCP  STV  MACRO  V05.03b  Saturday  29-Jun-85 
Table  ot  contents 


1  I'i 

02:144 


VNi 


PCKBCD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 

GETLIN  -  GET  SLT  AND  PDV  ADDRESS  FOR  LINE 

CHKIOG  -  CHECK  FOR  LOGGING  FUNCTION 

STORID  -  Store  id-stn'ng  according  to  system  type 

1500   MOVE  -  Move  bytes 

15?2    SPFILL  -  Fill  area  with  spaces 


9-  1324 

11-  1578 

12-  H12 
15-  U57 
U- 
15- 


[TD001] 
[TDOOn 
[TD001] 


,;MD     nCT     rnWIMAMHC     KiTD     CTV     MArDT     ^;^'^     (T^h     <;at-iirHAv     ?Q-.ll 


J  u 

-85   n?:44 


Psap   U 


L 


VNCP 


VNP  GET  COMMANDS  NCP  STY  MACRO  V05.0?b  Saturday  29-Jun-85 


1  15 

02;^'; 


Page  7-6 


598  002066 
599 

600  002070 

601  002076 

602  002100 
603 

60A  002102 

605  002110 

606  002112 
607 

608  0021 U 

609  002122 

610  002124 
611 

612  002130 

613  002130 
6U  002132 
615 

616  002134 

617  002134 

618  002140 

619  002142 
620 

621  002142 

622  002144 
623 

624  002144 
6?"  002150 
6, 

U<-   00215c 
002155 

628  002156 
002161 

629  002162 
630 

631 
632 
633 
634 

635  002166 

636  002172 

637  002176 

638  002200 

639  002204 

640  002206 

641  002212 

642  002214 

643  002220 

644  002222 

645  002226 
646 

647 
648 
649 

650  002230 

651  002230 

652  002234 


000416 

032767 
001422 
000411 

032767 
001415 
000404 

032767 
001410 
012700 


112001 
001404 


120167 
001403 


000772 
062716 


000002  OOOOOOG 

000004  OOOOOOG 

000010  OOOOOOG 
002162" 


016 
000 
020 
noo 
056 


012702 

103411 

103003 
010067 
000402 
010067 

062716 


OOOOOOG 


000002 

017 
021 
037 


000003 

000002G 
000030G 
000002 


030 
031 
000 


SlfXPR: 

$1FX5S: 

$IFX9S; 

5$: 

10$:; 


BR 

:8IT 
BEO 
BR 

:81T 
BEQ 
BR 

:8IT 
BEQ 
MOV 


5$ 

#0P$XPR,$0PT0N 

99$ 

5$ 

#0P$X5S,$0PT0N 

99$ 

5$ 

#0P$X9S,$0PT0N 

99$ 

#iFMODT,RO 


Ck  for  X25-PROTOCOL  bit. 

Ck  for  X25-SERVER  bit. 

Ck  tor  X29-SERVER  bit. 
MODULE  function  codes. 


20$:; 
29$:; 

19$:; 

99$: 
100$: 

IFALIT 

IFLOGT 

IFMODT 


WHILE  next  table  entry  <>  0 
MOVS  (R0)t,R1 
BEQ   19$ 
DO 

IF  this  entry  matches  the  current  function  code, 
CMPB  Rl.RQBST 
BEQ  100$ 
ENDIF 


THEN  succeed. 


BR      10$ 
ENDWHILE 


ADD 
RETURN 

.BYTE 

.BYTE 

.BYTE 
.EVEN 
.DSA8L 


;  Line  name 


$LNAME: 


10$: 
20$: 
101$: 


:MOV 
CALL 
BCS 
CALL 
BCC 
MOV 
BR 
MOV 

RETURN 
ADD 
RETURN 


#2,(SP) 

LS.ALl,  LX.ALI, 

LS.LOG,  LX.LOG, 

LS.MOD,  LD.MOD, 
LS8 


#3,R2 

RAD 

101$ 

CHKLOG 

10$ 

RO.RQB+LR.LIN 

20i 

R0,RQB+LO.LIO 

*2,(SP) 


005767  OOOOOOG 
001004 


;  Listen  timer 

IlTM:: 

TST 
BNE 


;  No  match,  so  fai  L. 

LD.ALI,  0 
LD.LOG,  0 
0 


Set  max  field  length 

Convert  up  to  3  characters 

If  cs,  more  than  3 

Check  for  logging  function 

Br  if  logging  function 

Set  line  name 

And  exit 

Set  line  name  for  logging 


.PNUMH 
101$ 


Must  be  a  word  value 
It  ne,  illegal 


,  (Mr  n 
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h'M 


1285 

128^ 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

129^ 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

13U 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 


006052 
006056 
006062 
006064 
006066 
006070 
006074 
006076 
006100 
006102 
006104 
006106 
006112 
006114 
006116 
006122 
006124 
006130 
006132 
006134 
006140 
006142 
006144 


016700 
016701 
160102 
100427 
010246 
012702 
112022 
005301 
001375 
012601 
001404 
112722 
005301 
001374 
012700 
010701 

010146 
010701 

012600 
000241 


006146 
006146 
006154 
006156 
006160 
006172 
006176 
006200 
006202 


Get  up  to  6  RAD50  characters 


OOOOOOG 
OOOOOOG 


000064' 

000040 
000064' 


ftAD: 

10$; 

20$: 
30$: 

40$: 


MOV 

MOV 

SUB 

BMI 

MOV 

MOV 

M0V8 

DEC 

BNE 

MOV 

BEO 

MCVB 

DEC 

BNE 

MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

CLC 

RETURN 


.PSTPT.RO 

.PSTCN.RI 

R1,R2 

40$ 

R2,-(SP) 

#ASCn,R2 

(R0)t,(R2)* 

Rl 

10$ 

(SP)+,R1 

30$ 

#'  ,(R2)* 

Rl 

20$ 

#ASCII,R0 

PCRI 

$CAT5 

Rl,-fSP) 

PCRI 

$CAT5 

(SP)t,RO 


Find  a  DCB  .iddress 


016767 
000261 
001411 

020067 
001363 
000241 


FNDDC8: 
OOOOOOG  OOOOOOG  10$: 


OOOOOOC 


20$: 


MOV 

SEC 

BEQ 

GETRV 

CMP 

BNE 

CLC 

RETURN 


$BFR,$RADDR 

20$ 

,#D.PCB 
R0.$6FR+D.NAM 
lOl 


Page  8 


Get  field  address 

And  length 

Max  characters  or  less? 

If  mi,  no  (c-bit  is  set) 

Save  fill  length 

Get  ascii  worRarea  address 

Copy  the  field 


Blank  fill  needed? 

If  eq,  no 

Fill  with  blanks 


Convert  to  radSO 


Save  first  half 
Convert  second  half 

Restore  first  half 
Indicate  success 


Get  next  DCB  in  list 

Assume  no  more 

I f  eq,  end  of  list 

Read  in  DCB 

Is  this  the  right  DCB  ? 

If  ne,  no 

Else,  indicate  success 


J  16 

uMD   r.tn    rnMMSMht:   MrD   CTV   MArpn   v!)^   n^h    <;sriirrisv   ?9-.)(in-85    02:44 


Paae  9 
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VfPPVC  •  INITIAL  CONFIG  FILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85  02:38  Page  18 
ALPV    Allocate  PVC  name  block  [old  format]  8  circuit  block 


588 
589 
590 
591 
592 
593 
59^; 
595 
596 
597 
598 
599 

600  001344 

601  001344 

602  001350 

603  001354 

604  001356 

605  001362 

606  001366 

607  001370 

608  001372 

609  001374 
'0  001404 

1  001410 
t^2  001414 

613  001420 

614  001424 

615  001432 

616  001440 

617  001446 

618  001452 
619 

620 
621 

622  001470 

623  001474 
624 

625 
626 

627  001-.76 

628  001502 

629  091506 
630 

631  001512 

632  001514 

633  001520 


.SBTTL  ALPVCl  -  Allocate  PVC  name  block  [old  format]  i   circuit  block 

***  ALPVCl  -  Allocate  PVC  name  block  [old  format]  &   circuit  block 

INPUTS 

Rl  -  Port  number  allocated  to  PVC 
All  parsed  fields  for  PVC 

OUTPUTS 

Registers  preserved 

Carry  clear  PVC  block  linked  into  chain 

Carry  set  if  unable  to  allocate  PVC  or  X25  circuit  block 


010146 
012701 

012603 
103451 
010005 

012702 
012701 
012700 

116767 
016767 
016767 
110367 


103407 


016700 
062700 


000241 


000016 


000002G 

000006 

000027' 

000025'  00001 5G 
000004'  00001 OG 
OOOOOOG  00001 2G 
00001 4G 


CALL  SSAVAL 

SAVMAP 

MOV  RI.-(SP) 

MOV  #C$LEN,R1 

CALL  SALPOL 

MOV  (SP)+,R3 

BCS  50$ 

MOV  R0,R5 

CEACCS  R0,R4 

MOV  #$BFR+C$NAM,R2 

MOV  #PVNAMX,R1 

MOV  #PVCNAM,RO 

CALL  MOVE 

M0V8  '^VCFLCSBFR+CSFLG 

MOV  kVCLCN,$BFR+C$LCN 

MOV  DTEDES,$BFR+C$DTE 

MOVS  R3,$BFRtC$P0RT 

PUTAD  R4,#C$LEN 

Attempt  to  allocate  X25  cir-uit  block 


CALL 
BCS 


ALLXCB 
50$ 


OOOOOOG 
000006 


Link  PVC  into  chain 


50$: 


MOV 
ADD 
CALL 

CLC 

RESMAP 

RETURN 


$PSIPT,kO 
#H$PVC,RO 
LNKEND 


Save  registers 

Save  current  mapping 

Save  port  number 

Get  length  of  PVC  name  block 

Attempt  to  allocate  block 

Get  port  number  back 

Branch  if  allocation  failed 

Save  unmapped  address  of  allocation 

Map  to  allocation 

Target  for  PVC  name 

Length  of  PVC  name 

Source  of  PVC  name 

Move  PVC  name 

Move  PVC  flags 

Move  channel  number 

Move  DTE  descrir  '.or 

Move  porf  numbt- 

Write  ou   ^VC   ne  block 


Allocate  block 
Exit  if  no  store 


;  Form  address  of  listhead 

;  Link  PVC  name  (address  of  PVC  in  R5) 

;  Signal  success 

;  Restore  mapping 


[IDOOn 
[TD001] 
CTD001] 
[TD001] 
[TD001] 
CTDGOl] 
[TD001] 
CTDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
CTDOOI] 
CTDGOl ] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
CTDOOI] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 
[TDOOl] 


n 


VFPRDT  -  INITIAL  CONFIG  FILE  SC  MACFiO  V05.05b  Saturday  29-Jun-85  02:39 
Table  ot  contents 

MACRO  DEFINITIONS 

LOCAL  SYMBOL  DEFINITIONS 

LOCAL  DATA 

ERROR  MESSAGES 

LOOK  FOR  RDTSDF  MACRO 

TPARS  STATE  TABLES 

RDTSDF  ACTION  ROUTINES 

CHKRDT  -  CHECK  FOR  UNIQUE  RDT 


s- 

ss 

ft- 

/« 

t- 

«ft 

H- 

1()() 

9- 

IH 

n- 

142 

1- 

^f', 

5- 

2/1. 

VFPRDT 

CREATED  BY 

MACRO     ON  29 

-JUN-85  AT 

02:39 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SEXIT 

- 

000000 

#10-H6 

$FAIL 

r 

Mllll 

#10-U6 

$GETAD 

- 

****** 

GX 

13-298 

SGETRV 

- 

****** 

GX 

13-291 

SGPRM 

- 

****** 

10-U6 

SLAMDA 

= 

000000 

#10-U6 

SNUMBR 

- 

000002 

#10-V.6 

SPSIPT 

:; 

****** 

GX 

12-262 

13-289 

SPUTAD 

= 

****** 

GX 

12-261 

$QRDT 

000000 

RG 

#9-125 

SRAODR 

~ 

****** 

GX 

*12-261 

»13-291 

*13-298 

$RAD50 

- 

000016 

#10-U6 

SRBLCK 

- 

****** 

GX 

12-239 

*12-265 

13-293 

SRONLY 

- 

****** 

10-U6 

10-146 

10-146 

SSAVAL 

= 

****** 

GX 

12-236 

13-292 

SSAVRG 

r 

****** 

GX 

12-227 

SSTRNG 

- 

000004 

#10-146 

SSUBXP 

- 

000010 

#10-K6 

$$$FLG 

- 

177777 

#10-146 

$$$KEY 

~ 

177777 

#10-146 

.PSTCN 

~ 

****** 

GX 

11-179 

.PSTPT 

- 

«*♦*♦* 

GX 

11-188 

.TPARS 

- 

****** 

GX 

9-131 

J     3 

PAGE   2 

CREf        04.00 


♦13-308 


VFPRNi. 
Parse 

21 
21 

21 
21 

2; 
2; 
2; 
2; 
2; 
2; 
2; 
2; 
2; 
2; 
2: 
2: 
2: 
2: 

2' 
2: 
2 
2 
2: 
2: 
2' 
2' 
2' 
2. 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


K      \ 
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VFPRNW  -  INITIAL  CONFIG  fILE  SC  MACRO  VO5.03b  Saturday  29-Jun-85  02:40 
Parse  table  for  RNASDF 


Page  13 


216 
217 
218 
219 
220 
221 
222 
223 
22A  000062 

225  000062 

226  000062 

227  000062 
228 

229  000062 

230  000062 

231  000062 

232  000062 

233  000062 

234  000062 

235  000062 

236  000062 

237  000062 

238  000062 

239  000062 
240 

241  000062 

242  000062 

243  000062 

244  000062 
2'.5  000062 
246  000062 
247 

248  000062 

249  000062 

250  000062 

251  000062 
252 

253  000062 


Parse  a  string 

String  can  be  sequence  of  alphanumeric  characters  terminated  by  non  alphan. 
or  sequence  of  characters  in  quotes  ('...') 
or  sequence  of  characters  in  angle  brackets  (<...>)        , 
or  sequence  of  characters  in  quotes  and  angle  brackets  (<  ...  >) 


VFPRNW 
Symbol 

Operat 

Elapse 
SY:VFP 


STATES     STF)]NG 

TRANS       BRA,BRAST,CLRSTR 
TRANS       DQUOTE,QST,CLRSTR 
TRANS       SLAI»1DA,NQST,CLRSTR 


STATES 

BRAST 

TRANS 

DQUOTE,QBRAST 

TRANS 

SLAMDA 

STATES 

BNQST 

TRANS 

KET.SEXIT 

TRANS 

SEOS.SEXIT 

TRANS 

SANY, BNQST, STORCH 

STATES 

Q8RAST 

TRANS 

IQST 

STATES 

TRANS 

KET,SEXIT 

STATES 

QST 

TRANS 

DQUOTE.DBLOT 

TRANS 

SANY, QST, STORCH 

STATES 

DBLQT 

TRANS 

DQUOTE, QST, STORCH 

TRANS 

SLAMDA, SEXIT 

STATES 

NQST 

TRANS 

SALPHA,NQST, STORCH 

TRANS 

SDIGIT, NQST, STORCH 

TRANS 

SLAMDA, SEXIT 

STATES 


;  Parse  quoted/unquoted  string 

;  Check  Tor  bracketed  string 

;  Check  for  quoted  string 

;  Must  be  unbracketed,  unquoted 

;  String  in  brackets 

;  Check  for  quoted,  bracketed 

;  Bracketed  unquoted  string 

;  Exit  on  end  bracket 

;  Exit  at  end-of-string 

;  Accept  any  other  character 

;  Quoted,  bracketed  string 

;  Get  quoted  string 

;  Ensure  closing  bracket 

;  Quoted  string 

;  If  quote,  check  for  double  quote 

;  Accept  any  other  character 

.  Recognise  two  quotes  as  quote  char 

;  Exit  on  sinqle  quote 

;  Unquoted  string 

;  Accept  alpha-numerics  only 

;  Exit  on  anything  else 

;  End  of  state  tables 


1 
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VFPRNW  -   INITIAL   CONFIG   FILE   SC  MACRO  V05.03b  Saturday  29-Jun-85  02:40     Page  23-2 
Symbol    table 

Opefat'ng      system:    RSX-11M/PLUS 
SY??FPRNw'v2;t?3^?n°]VFPRNW/CR/-SP=SY:[1J]RSXMCM.SML/ML,[130J10]NETLIB/MLj130 


VFPX 
X29I 


n 


J  6 

VFPX29  -  CONFIG  flLE  ACTION  RDU  MACRO  V05.05b  Saturday  29-Jun-85  02:41 
X29$Df  ACTION  ROUTINES 


Page  9-1 


VFPX3 
CHNtD 


208 


000001 


.END 


K  6 


VFPX5P  - 

INITi; 

CHNSDF  STATE  U 

177 

178 

179 

180 

181 

182 

000060 

183 

000060 

184 

185 

000060 

186 

000060 

187 

188 

000060 

189 

000060 

190 

000060 

191 

192 

000060 

193 

000060 

19A 

195 

196 

197 

198 

000060 

199 

000060 

200 

000060 

201 

202 

000060 

J  7 

INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:41  Page  10 

.SBTTL   CHNSDF  STATE  TABLE 


;  CHNSDF  STATE 

TABLE 

STATES 
TRANS 

CHNDF 
3!CHNSDF%,,,1,SYNERR 

STATES 
TRANS 

$NUMBR,,CHLO 

STATES 
TRANS 
TRANS 

:END,SEXIT,CHEND 
<'  ,> 

STATES 
TRANS   SNUMBR,END,CHH] 


CHECK  FOR  END  Of  SOURCE  LINE 

STATES  END 
TRANS   <';>,SEXIT 
TRANS   SEOS.SEXIT 

STATES 


LOW  END  OF  CHANNEL  RANGE 


HIGH  END  OF  CHANNEL  RANGE 


VHDAT 

CREATED  BY 

MACRO  ON 

29-JUN-85  AT 

02:'.2 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

DAtSET 

000160 

R 

5-68 

#5-73 

OEVA 

0001 7A 

R 

5-73 

#'-75 

5-76 

DEVL 

=  000003 

5-73 

#5-76 

FILA 

000204 

R 

5-73 

#5-81 

5-82 

FILL 

=  000012 

5-73 

#5-82 

N 

=  000003 

#5-68 

5-68 

S.FDB 

=  OOOKO 

5-68 

5-68 

UICA 

000177 

R 

5-73 

#5-78 

5-79 

UlCL 

=  000005 

5-73 

#5-79 

SHDFNB 

000156 

RG 

#5-68 

SHDSP 

000150 

RG 

#5-68 

SHEFN 

=  000001 

G 

#5-68 

SHFDB 

OOOOOA 

RG 

#5-68 

SHLUNI 

=  000004 

G 

#5-68 

$HLUN2 

=  000001 

G 

#5-68 

SHMOD 

000000 

RG 

#5-68 

SHNAME 

000152 

RG 

#5-68 

$$$ 

=  000003 

#5-68 

5-68 

...PCI 

=  000010 

R 

#5-68 

J  8 

PAGE  1 

CREF   OA.OO 


VHELP 

MACRO 

MACRO 

CALLR 
VNPDF 


t      H 


VHELP  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:42 

MACRO   CROSS   REi^ERENCE 
MACRO   NAME  REFERENCES 


J     9 

PAGE   5 

CREF        04.00 


CALLR 
VNPDFI 


#5-59 
#5-59 


6-85 
5-68 


VIM! 

MACR 

MACR 

CALL 
ERBL 
ERMS 
ERRF 
GETA 
GETR 
HWDC 
PHBD 
PUTR 
RANC 

RETl 
SUTC 
VNP[ 


K    9 


VlMl 

CREATED  BY     MACRO     ON  29- 

■JUN-85  AT 

02:42           PAGE 

MACRO   CROSS 

REFERENCE 

CREF 

MACRO  NiAME 

REFERENCES 

CALL 

5-100 

5-103 

5-127 

5-185 

ERBLK$ 

#5-82 

5-324 

5-326 

5-332 

ERMSG$ 

#5-82 

5-321 

5-322 

5-323 

ERRPT$ 

#5-82 

5-315 

5-316 

5-317 

GET  AD 

#5-82 

5-244 

GETRV 

#5-82 

5-103 

5-127 

5-185 

HWDDFS 

#5-82 

5-84 

PHBDFS 

#5-92 

5-93 

PUTRC 

#5-82 

RAND 

#5-103 
#5-295 

5-103 
5-295 

#5-127 

5-127 

RETURN 

5-306 

SWTCHI 

#5-82 

5-101 

5-105 

5-172 

VNPDBG 

#5-95 

5-99 

J  10 

04.00 

5-244 
5-325 

5-284 

#5-185 
5-224 


VlNl 
CONST 


5-284 
5-327 

5-295 

5-185 
5-281 


5-295 
5-328 


#5-244 
5-288 


5-315 
5-329 


5-244 


5-316 
5-330 


#5-284 


5-317 
5-331 


5-284 


K  10 


VIM  -  VNP  INITIALIZATION 
ONSTANT  DEFINITIONS 

60 
61 
62 
63 
64 
65       000001 


J  11 

MACRO  VD5.03b  Saturday  29-Jun-85  02:45  Page  6 

.SBTTL  CONSTANT  DEFINITIONS 


VlN 
CON 


CONVERSION  FLAG  FOR  .PPASC  ROUTINE 


UlCCFG  =  1 


NO  ZERO  SUPPRESSION,  INCLUDE  SEPARATORS 


L 


K  11 


r 


VINl  -  VNP  INITIALIZATIOM 
COI^STANT  DEFINITIONS 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

68-; 

685 

686 

687 

688 

689 

690 

691 

692 

693 

69A 

695 

696 

697 

698  005276 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

127 

728 

729 


J  12 

MACRO  V05.03b  Saturday  29-Jun-85  02:43  Page  12 


BELOW  FIND  A  TABLE  OF  SYMBOLS  THAT  ARE  LIKELY  TO  BE  NEEDED 
AT  SOME  TIME  DURING  THE  RUNNING  OF  VNP.  THESE  SYMBOLS  MUST 
BE  LOOKED  UP  IN  EACH  RSX11M.STB  %   CEX.STB  ENCOUNTERED  SINCE 
THEIR  VALUES  CHANGE  FROM  SYSTEM  TO  SYSTEM.  THE  STRUCTURE  BELOW 
IS  USED  TO  LOOK  UP  THE  SYMBOLS.  AFTER  LOOKUP,  THEIR  VALUES 
ARE  MOVED  TO  THE  ROOT  SEGEMNET  VRES  AND  ARE  DEFINED  GLOBALLY. 
GENERALLY,  ANY  SYMBOL  WHOSE  VALUE  WAS  LOOKED  UP  IN  THE  SYMBOL 
TABLE  HAS  A  GLOBAL  SYMBOL  NAME  THE  STARTS  WITH  A  '.'.  IF 
THIS  SYMBOL  IS  THE  ADDRESS  OF  A  DESIRED  VALUE,  AND  IF  THIS 
SYMBOL  WILL  BE  REFERENCED  OFTEN  DURING  THE  RUNNING  OF  VNP, 
THE  IT'S  VALUE  IS  READ  IN  FROM  THE  EXEC  IMAGE  AND  A  SECOND 
SYMBOL  NAME  IS  CREATED  IN  THE  ROOT  STARTING  WITH  A  '$'. 
SPARHD  AND  SFMASK  ARE  SUCH  SYMBOLS. 

NOTE  THAT  THERE  IS  A  ONE-TO-ONE  CORRESPONDANCE  BETWEEN  THE 
SYMBOLS  IN  THIS  TABLE  AND  THE  CORRESPONDING  SYMBOLS  IN  THE 
ROOT  MODULE  VRES.  IF  YOU  ADD  A  SYMBOL  TO  THIS  TABLE,  THEN  YOU 
BETTER  ADD  AN  ENTRY  TO  THE  TABLE  STARTING  AT  'SSYMTB'.  THE 
SYMBOLS  THAT  ARE  ADDRESS  OF  WORDS  IN  THE  EXEC  THAT  ARE 
FREQUENTLY  USED  BY  VNP  ARE  LOOKED  UP  IN  THE  ROUTINE  'VSYM1' 
AND  ARE  LOADED  INTO  THE  ROOT  USING  A  NAME  STARTING  WITH  '$' 
INSTEAD  OF  '.'. 


EXST8: 


003276  003310'  000000 
003302  075455  063320 
003306  000000 


.IF 

NDF,R$$MPL 

S.MPR: 

.WORD 

CRAVL,0        ; 

.RAD50 

"S.MPR" 

.WORD 

0 

.IFF 

MPRO: 

.WORD 

KDAS.O 

.RAD50 

"M$$PR0" 

.WORD 

0 

KDAS: 

.WORD 

SCMOF ,0 

.RAD50 

"K$$DAS" 

.WORD 

0 

SCMOF: 

.WORD 

CPPAR, 0 

.RAD50 

"SSCMOF" 

.WORD 

0 

CPPAR: 

.WORD 

K6TAB,0 

.RAD50 

"SCPPAR" 

.WORD 

0 

K6TAe: 

.WORD 

Ml  000,0 

.RAD50 

"$K6TAB" 

.WORD 

0 

M100Q: 

.WORD 

CPURM.O 

"$mio6q" 

.RAD50 

.WORD 

0 

CPURM: 

.WORD 

UMRPT, 0 

.RAD50 

"SCPURM" 

.WORD 

0 

UMRPT: 

.WORD 

URMTB,0 

.RAD50 

"SUMRPT" 

REFERENCE  POINT 

USED  ONLY  TO  FORCE  ERROR  IF  ON  RSX-11M-PLUS 

NUMBER  OF  PROCESSORS  OR  -1  IF  SINGLE  PROC 
KERNAL  DATA  SPACE  ENABLED  OR  -1  IF  NOT 
STARTING  PHYSICAL  ADDRESS  OF  4K  DATA  SPACE 
POINTER  TO  PCB  OF  CPU  PARTITION 
TABLE  OF  POINTERS  TO  EACH  PROCESSOR'S  AREA 
100  MSEC  TIMER  OFFSET  INTO  CPU  PARTITION 
CPU  URM  MAPPING  TABLE  POINTER 
PER  CPU  NETWORK  POOL  UMR  POINTER 


K  12. 


17  n 11 


I 


VlNI  CREATED  BY     MACRO     ON  29-JUN-85  AT   02:43 

SYMBOL  CROSS  REFERENCE 


J  13 

PAGE   3 

CREF       04.00 


SYMBOL 

VALUE 

REFERENCES 

S.MPR 

003276 

R 

#12-702 

TLGTH 

003740 

R 

12-886 

#12-889 

TSKHD 

003714 

R 

12-880 

#12-883 

UICCFG 

=  000001 

#6-65 

14-1024 

UMRHD 

003670 

R 

12-874 

#12-877 

VCHECK 

004130 

R 

#13-947 

VCTR 

003512 

R 

12-841 

#12-844 

VFILE 

000202 

R 

7-88 

#8-140 

8-248 

8-250 

VF.INI 

~      ****** 

GX 

7-106 

VF.SS 

~      ****** 

GX 

8-160 

9-442 

VSYMB 

001 5A0 

R 

7-90 

#9-302 

VSYMl 

002662 

R 

7-92 

#11-585 

Vl.NSY 

=  ****** 

GX 

8-252 

SAZFS 

-   ****** 

GX 

9-362 

9-429 

$8FR 

~   ****** 

GX 

8-180 

8-182 

8-184 

•8-218 

8-220 

*10-511 

•10-512 

10-529 

10-531 

11-585 

13-952 

13-954 

13-960 

13-962 

•13-972 

SCBOMG 

-   ****** 

GX 

9-410 

9-415 

$CEX 

=   ****** 

GX 

9-423 

SCLBUF 

r     ****** 

6X 

8-141 

•8-143 

•8-146 

9-330 

9-343 

SCLCSI 

=     ****** 

GX 

8-161 

SCLEVL 

3       ****** 

GX 

8-152 

SCLFDB 

~       ****** 

GX 

9-460 

9-463 

SCLFLG 

r     ****** 

GX 

»8-144 

•8-151 

•8-154 

SCLIOS 

-     ****** 

GX 

8-156 

SCLPMT 

=     ****** 

GX 

8-140 

•8-142 

'8-147 

SCRAVL 

=     ****** 

GX 

11-625 

SOEVHD 

-     ****** 

GX 

•11-622 

SDFUIC 

=     ****** 

GX 

9-347 

9-354 

9-360 

9-402 

9-420 

SEROUT 

-     ****** 

GX 

7-116 

8-249 

8-251 

8-253 

8-254 

10-519 

11-671 

13-986 

13-988 

13-991 

SEXSIZ 

::     ****** 

GX 

•11-615 

SFMASK 

r     ****** 

GX 

7-108 

•11-613 

11-617 

SGENND 

r     ****** 

GX 

•13-962 

•13-963 

13-964 

SGENST 

-     ****** 

GX 

♦13-960 

13-961 

13-963 

SGETRC 

=     ****** 

GX 

8-179 

SGFTRV 

=:     ****** 

GX 

9-397 

9-439 

11-586 

11-612 

11-614 

SLOWSZ 

r      ****** 

GX 

•8-193 

•8-196 

•8-201 

SNTUIC 

-     ****** 

GX 

•9-398 

9-408 

9-413 

SPARHD 

z      ****** 

GX 

•11-624 

13-947 

SPUTRC 

r     ****** 

GX 

8-219 

SRADDR 

-     ****** 

GX 

•8-179 
•11-627 

•9-397 
•13-949 

•9-439 

•11-586 

•11-612 

$RSIZ 

r     ****** 

GX 

•8-175 

SRSIZE 

-     ****** 

GX 

8-175 

•  13-948 

$RSX 

::      ****** 

GX 

9-325 

SSAVAL 

r     ****** 

GX 

14-1020 

$STB 

=     ****** 

GX 

9-361 

9-428 

SSVMBL 

~     ****** 

GX 

9-364 

9-431 

SSYMND 

r     ****** 

GX 

10-501 

10-513 

$SYMTB 

-     ****** 

GX 

10-479 

$SYs:z 

-     ****** 

GX 

•11-587 

11-596 

13-965 

9-398  9-440  ^9-451  *9-452 

11-661  11-670         ^13-947  13-949 

13-1007 


14-1023 

9-449  9-450 

13-993 


9-453 


10-516 


11-621  11-623  11-628  13-951 


11-614         *11-621         *11-623         •11-626 
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VN 


1 

2 

3 

i, 

5 

6 

7 

8 

9 

10 
11 
12 
13 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


.TITLE  VNCP  -  VNP  GET  COMMANDS  NCP  STYLE 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

module  description: 

VNP  -  COMMAND  LINE  PARSER 

Distributed  Systems  Software  Engineering 

Ident  history: 

1.00  27-feb-78 

Version  2.0  release 

2.00  14-dec-79 

Decnet-llm/s  \/3.0 
Decnet-llm-plus  v1 .0 

3.00  16-APR-82 

DECNET-11M  V3.1 
0ECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI .0 
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655  002256 

65A  0022AA 

655  0022A6 

656 

657 

658 

659 

660  002266 

661  002272 

662  002274 

663  002300 

664  002302 

665  002310 

666  002312 

667  0023U 
668 

669 
670 
671 

672  00233A 

673  0023A0 
67A  002342 

675  002346 

676  002350 

677  002356 

678  002360 

679  002362 
680 

681 
682 

683  002402 

684  002406 

685  002410 

686  002414 

687  002416 

688  002424 

689  002426 

690  002430 
691 

692 
693 

694  002450 

695  002454 

696  002456 

697  002462 

698  002464 

699  002472 

700  002474 

701  002476 
702 

703 
704 

705  002516 

706  002522 

707  002524 

708  002530 

709  002532 


016767  OOOOOOG  000034G 


MOV     .PNUMB,RQB*LO.LTM  ;  Store  the  timer  value. 
10$:    RETURN  ,,    ,   . 

101$:   ERROR$  BDLIST         ;  Ulegal  timer  value. 


005767 
001010 
105767 
001 005 
016767 
001401 


005767 
001010 
105767 
001005 
016767 
001401 


005767 
001010 
105767 
001005 
016767 
001401 


005767 
001010 
105767 
001005 
016767 
001401 


005767 
001010 
105767 
001005 
016767 


OOOOOOG 
000001 G 
OOOOOOG  000022G 


Multipoint  active 

iMACT::  TST 

BNE 

TSTB 

BNE 

MOV 

BEQ 

RETURN 
101$:   ERR0R$ 


ratio 

.PNUMH 

101$ 

.PNUMBtl 

101$  ; 

.PNUMB,RQBtLO.MAC 

101$ 


OOOOOOG 
000001 G 
OOOOOOG  000024G 


ILLMAC 

Multipoint  dead  ratio 
iMOEA 


101$: 


TST 

BNE 

TSTB 

BNE 

MOV 

BEQ 

RETURN 

ERROR$ 


.PNUMH 

101$ 

.PNUMB+1 

101$ 

.PNUMB.RQBHO.MDE 

101$ 

ILLMDE 


OOOOOOG 
000001 G 
OOOOOOG  000060G 


OOOOOOG 
000001G 
OOOOOOG  000056G 


Incoming  timer 

iiNC::  TST  .PNUMH         ; 

BNE  101$ 

TSTB  .PNUMBtl 

BNE  101$ 

MOV  .PNUMB.RQB+LO.INC 

BEQ  101$ 

RETURN 

101$:   ERR0R$  ILLJNC         ; 


Outgoing  timer 

$OUT:;  TST 
BNE 
TSTB 
BNE 
MOV 
BEQ 

RETURN 
ERROR$ 


+  1 


101$: 


.PNUMH 

101$ 

. PNUMB 

101$ 

. PNUMB, RQB  +  LO. OUT 

101$ 

RLOUT 


OOOOOOG 
000001 G 
OOOOOOG  000062G 


Inactivity  timer 
INA 


TST 

BNE 

TSTB 

BNE 

MOV 


.PNUMH 
101$ 
.PNUMB+1 
101S 


Must  be  a  word  value 

If  ne,  illegal  value 

Must  be  a  byte  value 

If  ne,  illegal  value 

;  Store  active  ratio 
If  zero,  illegal  value 

Illegal  active  ratio 


Must  be  a  word  value 
If  ne,  1  llegal  value 
Must  be  a  byte  value 
If  ne,  illegal  value 
;  Store  active  ratio 
If  zero,  illegal  value 

Illegal  active  ratio 


Must  be  a  word  value 
If  ne,  i  llegal  value 
Must  be  a  byte  value 
If  ne,  illegal  value 
;  Store  incoming  timer 
If  zero,  illegal  value 

Illegal  incoming  timer  value 


Must  be  a  word  value 
If  ne,  illegal  value 
Must  be  a  byte  value 
If  ne,  illegal  value 
;  Store  outgoing  timer 
If  zero,  illegal  value 

Illegal  outgoing  timer  value 


Must  be  a  word  value 

If  ne,  illegal  value 

Must  be  a  byte  value 

If  ne,  illegal  value 


.PNUMB, RQB+LO. INA  ;  Store  inactivity  timer 


K  15 

_  0 1:  no.// 


VNCP  -  VNP  GBI  COMMANDS  NCP  STY  MACRO  V05.03b  Saturday  29-Jun-85 
PCKBCD  -  PACH;  STRING  OF  DIGITS  IN  BCD  FORMAT 
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132^ 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1352 

1335 

133'!. 

1335 

1556 

1337 

1538 

1339 

15^0 

15A1 

13^2 

13^5 

1544 

1545 

1546 

1347 

1548 

1549 

1350 

1351 

1552 

1353 

1554 

1355 

1556 

1557 

1558 

1559 

1360 

1561 

1562 

1563 


006204 
006206 
006210 
006212 
006214 
006216 
006220 
006222 
006226 
006250 
006254 
006236 
006242 
006244 
006246 
006256 
006260 
006262 
006264 
006266 
006270 
006272 
006274 


.SBTTL   PCK8CD  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 

PCKBCD  -  PACK  A  STRING  OF  DIGITS  IN  BCD  FORMAT 

INPUTS: 

RO  -  NUMBER  OF  BYTES  IN  PACKED  ADDRESS 

R1  -  ADDRESS  OF  BUFFER  CONTAINING  ASCII  DIGITS  TO  PACK 

R2  -  NUMBER  OF  DIGITS  SPECIFIED 

R5  -  ADDRESS  OF  BUFFER  TO  STORE  PACKED  DATA 

OUTPUTS: 

BUFFER  SPECIFIED  IN  R5  CONTAINS  DATA  IN  BCD  FORMAT 
R3  DESTROYED 


010505 

105025 

005300 

003575 

005005 

005505 

112100 

020027  000060 

105422 

022700     000071 

103417 

162700  000060 

005703 

001007 

005203 
005205 
000401 
005303 
150015 
005302 
003352 


PCKBCD: 

MOV 

10$: 

CLRB 

DEC 

BGT 

CLR 

DEC 

20$: 

MOVB 

CMP 

BLO 

CMP 

BLO 

SUB 

40$: 

TST 

BNE 

ASL$ 

NC 

NC 

BR 

50$: 

DEC 

60$: 

B1S8 

DEC 

BGT 

70$: 

RETURN 

R5,R3 

(r5)  + 

RO 

10$ 

R3 

R5 

CR1)+,R0 

R0,#60 

70i 

#71, RO 

70$ 

#60, RO 

R5 

50$ 

4,R0 

R3 

R5 

60$ 

R5 

R0,(R5) 

R2 

20$ 


GET  ADDRESS  OF  PACKED  DATA 

INITIALIZE  PACKED  ADDRESS 

MORE  TO  INITIALIZE? 

BR  IF  YES 

POSITION  INIDCATOR  (0=HIGH  FOUR  BITS) 

UPDATE  ADDRESS  FOR  FIRST  TIME 

GET  DIGIT  TO  PACK 

IS  THIS  A  VALID  DIGIT? 

BR  IF  NO  (SETS  CARRY) 

STILL  VALID? 

BR  IF  NO 

CONVERT  TO  BINARY 

STORE  IN  HIGH  FOUR  BITS? 

BR  IF  NO 

MOVE  TO  HIGH  FOUR  BITS 

INDICATE  STORE  IN  LOW  FOUR  BITS  NEXT 

POINT  TO  NEXT  BYTE 

BR  TO  STORE  DECIMAL 

INDICATE  STORE  IN  HIGH  FOUR  BITS  NEXT 

PACK  THE  NUMBER  INTO  THE  BUFFER 

MORE  TO  CONVERT? 

BR  IF  YES 
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VFPRD 


635 

636 

637 

638 

639 

6AC 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651  001522 

';52  001526 

653  001532 

654  001536 

655  001542 

656  001560 

657  001572 

658  001576 

659  001600 

660  001614 

661  001620 

662  001622 
665  001624 

664  001626 

665  001630 

666  001632 

667  001634 

668  001642 

669  001646 

670  001652 

671  001654 

672  001660 

673  001662 

674  001664 

675  001670 

676  001674 


016700 
062700 


016701 
006301 

012702 
005001 
005722 
005201 
005722 
001011 
005742 
016767 
010267 
110167 
000404 
020167 
103761 
000261 


.SBTTL  FNDPRT  -  FIND  FREE  PORT  ENTRY 


FNDPRT  -  FIND  FREE  PORT  ENTRY 

INPUTS: 

PORTNO  -  TOTAL  NUMBER  OF  PORTS 

OUTPUTS: 

CARRY  CLEAR  -  FREE  PORT  FOUND 

R1  -  PORT  NUMBER  ALLOCATED 

PVCPRT  -  PORT  NUMBER 

PRTADD  -  MAPPED  ADDRESS  OF  ENTRY  IN  PORT  TABLE 
CARRY  SET  -  FREE  PORT  NOT  FOUND 


FNDPRT: 


;CTD001D 
•.♦-28 


OOOOOOG 
000020 


OOOOOOG 


OOOOOOG 


10$: 


OOOOOOG  000002' 

000000' 

000024' 

OOOOOOG 


15$: 


20$: 


SAVRG 

<R0,R2> 

SAVE  R0,R2 

SAVMAP 

SAVE  CURRENT  MAPPING 

MOV 

$PSIPT,RO 

GET  ADDRESS  OF  PSI  HOME  BLOCK 

ADD 

itHiPTB.HO 

POINT  TO  PORT  TABLE  LISTHEAD 

GETRV 

R0,#2 

READ  IN  LISTHEAD 

CEACC$ 

$BFn,RO 

GET  MAPPED  ADDRESS 

MOV 

PORTNO, R1 

GET  NUMBER  OF  PORTS 

ASL 

R1 

GET  NUMBER  OF  BYTES  IN  PORT  TABLE 

GETAD 

R0,R1 

READ  IN  PORT  TABLE 

MOV 

#$BFR,R2 

POINT  TO  PORT  TABLE 

CLR 

R1 

PORT  NUMBER  COUNTER 

TST 

(R2)  + 

SKIP  FIRST  ENTRY  (NOT  AVAILABLE) 

INC 

R1 

INCREMENT  PORT  NUMBER 

TST 

(R2H 

IS  THIS  A  FREE  PORT? 

BNE 

15$ 

BR  IF  NO 

TST 

-(R2) 

POINT  TO  PORT  ENTRY 

MOV 

$R8LCK,f:^tbia 

SAVE  BIAS  OF  PORT  TABLE 

MOV 

R2, PRTADD 

SAVE  MAPPED  ADDRESS  OF  ENTRY 

MOVB 

R1, PVCPRT 

•  SAVE  PORT  NUMBER  ALLOCATED 

BR 

20$ 

•  AND  EXIT 

CMP 

R1, PORTNO 

•  END  OF  LIST? 

BLO 

10$ 

•  BR  IF  NO 

SEC 

•  INDICATE  NUMBER  OF  PORTS  EXCEEDED 

RESMAP 

■  RESTORE  PREVIOUS  MAPPING 

RESRG 

<R2,R0> 

■  RESTORE  R0,R2 

RETURN 

VFPRDT 
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1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
53 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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.TITLE  VFPRDT  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  UITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 


SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
A  COMMITMENT  BY  DIGITAL  EQUIPMENT 


THE  INFORMATION  IN  THIS  SOFTWARE  IS 
AND  SHOULD  NOT  BE  CONSTRUED  AS 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  CONFIG  FILE  ACTION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  02-MAR-82 

DECNET-IIM/S  V3.0 
DECNET-11M-PLUS  Vl.O 

^.00  16-APR-82 

DECNEi-IIM  V3.1 
DECNET-ilM-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-ilM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM.  3  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Mkro/RSX  Vl.O 


OF   ITS 


VFPRDT 

MACRO  ( 

MACRO  ^ 

CALL 

CEACCS 

DBGTPS 

EMSGSR 

GETAD 

GETRV 

ISTATS 

MTRAN$ 

NTLER$ 

PHBDFS 

PUTAD 

RAND 

RDTDFS 

RESMAP 

RETURN 

SAVMAP 

STATES 

TRAN$ 


VFPRDT  CREATED  BY     MACRO     ON  29-JUN-85   AT   02:39 

1ACR0   CROSS   HEfERENCE 
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CREf       OA.OO 


MACRO  NAME 

CALL 

CEACCS 

DBGTPS 

EMSGtR 

GETAD 

GETRV 

ISTATS 

MTRANS 

NTLERS 

PHBDFt 

PUTAD 

RAND 

RDTDFS 

RESMAP 

RETURN 

SAVMAP 

STATES 

TRANS 


REFERENCES 

9-131 

13-291 
#5-61 
#10-116 
#5-60 
#5-61 
#5-61 
#5-60 
#10-116 
#5-60 
#5-60 
#5-61 
#12-261 
#5-60 
#5-73 

9-135 
#5-69 
#5-60 
#5-60 


11-208 
13-292 
12-211 
#10-161 
9-110 
13-298 
13-291 
10-116 

8-101 
5-63 
12-261 
12-261 
5-61 
12-265 
1  1-192 
12-259 
10-150 
#10-151 


11-216 
13-297 
13-297 
#10-170 
11-196 


8-105 


#13-291 

13-308 

11-209 

13-293 

#10-153 

#10-151 


12-231 
13-298 


■1-221 


8-106 


13-291 


11-217 

#10-156 
#10-157 


12-232 


12-271 


#13-298 


12-266 

#10-159 
#10-160 


5 

12-236 

12-237 

12-211 

12-261 

12-261 

12-272 

13-298 

13-309 

#10-162 

#10-168 

#10-172 

#10-163 

#10-161 

#10-169 

#10-170 

K  4 
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255 
256 
257 
258 
259 
260 
261 
262 
263 
26^ 
265 
266 
267 
268 

269  000062 

270  000062 

271  000066 

272  000072 

273  000074 

274  000100 

275  000104 

276  000110 

277  0001H 

278  000120 

279  000124 

280  000130 

281  000134 
282 

283  000136 


.SBTTL  Syntax  action  routines 

•**  RNWNET  -  Check  network  name 

INPUTS 

.PSTPT  -  Points  to  parsed  string 
.PSTCN  -  Number  of  characters  in  string 

OUTPUTS 

Username  checked  and  stored 

Error  condition  if  invalid  username 


016701 
020127 
101021 
110167 
016700 
012702 

105067 
105067 
105067 
105067 


OOOOOOG 
000020 

OOOOOOG 
0000006 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


RNUNE  T : 


101$: 


MOV  . PSTCN, R1 

CMP  R1,#MAXID 

BHI  101$ 

MOVS  RI.RNTL 

MOV  . PSTPT, RO 

MOV  #RNETWK,R2 

CALL  MOVE 

CLRB  SNNL 

CLR8  RNUL 

CLRB  RNPL 

CLRB  RNAL 
RETURN 

EMSG$R  RA 


;  Get  length  of  siring 

;  Check  if  network  name  too  long 

;  Branch  if  error 

;  Move  network  name  length  to  data  area 

;  Move  network  name  to  data  area 


;  Clear  remaining  field  lengths 


;  Illegal  network  name 


VFPRNW     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:40 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


ALNET 

BRA 

CERR 

CFGBF 

CFGSZ 

CFLIN 

CKNET 

CLRSTR 

COMENT 

COMMA 

DQUOTE 

FMTIO 

FMT8 

FM.IO 

FM.8 

F.RSIZ 

HSRNW 

KET 

LNKEND 

MAX  ID 

MAXSTR 

MOVE 

MXACAC 

MXACPA 

MXACUS 

MXNOID 

N$$VCT 

RNAACT 

RNACCT 

RNADF 

RNAL 

RNAPAS 

RNAUSR 

RNETWK 

RNNL 

RNNODE 

RNPASS 

RNPL 

RNTL 

RNUL 

RNUSER 

RNWDF 

RNWEND 

RNWtCW 

RNWNET 

RNWNOD 

RNWST 

RTSPC 

R$ACC 

R$ACL 

RINML 


000540  R 
00007A 
*»♦*»*  GX 
»*»««♦  GX 
»*«*»*  GX 
»»«»«♦  GX 
000406  R 
001012  R 
000075 
000054 
000042 

****** 
****** 

000000 
000000 

****** 

000042 
000076 
****** 
000020 
000020 
****** 


GX 
GX 


GX 


GX 


GX 


000020 
000010 
000020 
000006 

****** 

000312  R 

****** 

000040 

****** 

000250 
000206 
****** 
****** 
****** 
****** 
****** 


GX 

R 
GX 

R 

R 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 


****** 
****** 

000000 
000354  RG 
000000  RG 
000062  R 
000144  R 
000000  RG 
******  GX 
000064 
000063 
000002 


REFERENCES 

19-393 
#5-55 

7-90 

9-129 

9-128 

7-90 

19-391 
#22-505 
#5-54 
#5-53 
#5-52 

7-90 

7-93 
#7-90 
#7-93 
«20-417 

20-416 
#5-56 

21-491 
#5-62 
#5-64 

14-276 

21-487 
#5-61 
#5-60 
#5-59 
#5-58 

20-421 
#18-367 

18-375 

9-123 
*14-280 
#17-343 
#16-320 

14-275 
*14-277 

15-502 

17-549 
♦14-279 
*14-275 
*14-278 

16-526 

9-120 
#19-590 

9-127 
#14-269 
#15-296 
#10-144 

7-90 

21-486 
»21-485 

20-425 


#21-448 
7-91 


7-91 
#20-415 


7-91 

#7-91 

•20-422 
21-490 


14-271 

8-101 

15-503 

18-369 
17-545 
16-522 
15-298 
21-455 


♦18-571 


20-427 
♦15-500 


♦17-347 

20-424 

♦16-524 


#10-144 

7-91 
♦21-465 


7-92 
7-92 


7-92 
#7-92 
♦21-488 


25-519 
16-527 


21-467 


21-485 


21-470 


21-478 
21-461 
21-475 


7-92 
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7-95 
7-95 


17-550 


18-574 


21-465 


21-472 


21-477 


21-482 


7-95 


Symbol  table 


A$$CHk;= 

AS$CPS= 

A$$PR!= 

A$$TRP= 

CERR  = 

CFGBF  = 

CFGSZ  = 

CFLIN  = 

CTIMR 

C$SCKP= 

C$$ORE= 

CtSRSH= 

D$$BUG= 

D$$1SK= 

D$$L11= 

D$$YNC= 

DI$YNM= 

END 

E$$XPR= 

EMTIO  = 

FMT8  = 

FM.IO  = 

FM.8  = 

F$$LVL= 

F.RSIZ= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

HF$DLM= 

HF$GWY= 

ABS. 

DATA 
SSTATE 
$KTAB 
SKSTR 


000000 

000000 

000000 

000000 

«**•**  GX 

♦««♦*•  GX 

*•*♦»«  GX 

*»*♦♦*  GX 

000210R 

000000 

000^00 

17756A 

1775U 

000000 

000001 

000000 

000000 

000030R 

000000 

**«♦♦•  GX 

»»•*♦*  GX 

000000 

000000 

000001 

**«*»»  GX 

000000 

000000 

000000 

000000 

000002 

000010 

0001 OA 
000330 
000212 
OOOO-iO 
000002 
000007 


HF$H0S= 

HF$XDF= 

H$CUG 

H$DST 

H$D29 

H$FLG 

HSGLEN 

H$GLT 

002  HSGNAM 
H$GNML= 
H$GPT 
HSHITS 
HSHLEN 
HSLBDA 
H$LBDN 
HSLDTE 
H$LEN 

003  HSLOTS 
HSNETW 
HSNML  = 
HSNPT 
H$PTB 
H$PVC 
HSRDTE 
H$RNW 
H$SVC 
H$TRB 
HSXAVL 
HSXBIA 
H$X29C 


OOOOOA 
000020 
000010 
000012 
OOOOK 
000000 
000104 
000044 
000050 
000020 
000046 
000034 
000044 
000070 
000072 
000002 
000042 
000032 
000024 
000006 
000022 
000020 
000006 
000004 
000042 
000036 
000016 
000100 
000074 
000040 


Errors  detected: 


000 
001 
002 
003 
004 
005 
0 


(RW,1,GBL,ABS,0VR) 
(RU,I,LCL,REL,C0N) 
(RW,D,LCL,REL,CON) 
(RU,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


»»'  Assembler  statistics 


Work   file  reads:  0 

Work   file  writes:  0 

Size  of  work  file:  13400  Words  (  53  Pages) 

Size  of  core  pool:  14440  Words   (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


turday 

?9-Jun-85 

02:41  Page  9-2 

$$RAR= 

000000 

Q$CLEN=  000006 

$BFR  = 

******  GX 

$$RDN= 

000000 

QSCTIM  000000 

$BLANK= 

000006 

K$$CNT= 

177546 

QSICRE  000014 

$DIGIT= 

000024 

K$$CSR= 

177546 

0$LEN   000016 

$DNUMB= 

OOOOU 

K$$LDC= 

000000 

OSMXAC  000012 

$EOS  = 

000012 

K$$TPS= 

000074 

QSMXVC  000002 

$ERR1T= 

******  GX 

LD$LP  = 

000000 

QSTCLZ  000010 

$ERR9A 

OOOOOOR 

002 

L$$ASG= 

000000 

Q$$0PT=  000010 

$ERR9B 

000036R 

002 

L$$DRV= 

000000 

RTSPC  =  ******  GX 

$ERR9C 

000076R 

002 

L$$P11= 

000001 

R$$DER=  000000 

$ERR9D 

0001 32R 

002 

L$$11R= 

000000 

R$$K11=  000001 

$EXIT  = 

000000 

HAXVC 

000206R 

002  R$$SND=  000000 

SFAIL  = 

177777 

M$$CR8= 

000124 

R$$11M=  000000 

$GETRV= 

******  GX 

M$$CRX= 

000000 

SYNERR=  ******  GX 

$LAMDA= 

000000 

M$$FCS= 

000000 

SYSFDB=  ******  GX 

$NUMBR= 

000002 

M$$MGE= 

000000 

S$$WRG=  000000 

$PSIPT= 

******  GX 

l»l$$NET= 

000000 

S$$YS2=  007600 

$PUTRC= 

******  GX 

M$$OVR= 

000000 

T$$KMG=  000000 

$QX29 

OOOOOORG 

N$$ACC= 

000001 

T$$MIN=  000000 

$RADDR= 

******  GX 

NSSBUF:: 

000001 

V$$CTR=  001000 

$RAD50= 

000016 

N$$LDV= 

000001 

X$$DBT=  000000 

$STRNG= 

000004 

N$$MCP= 

000001 

X29CTM  000104R 

$SUBXP= 

000010 

N$$MLL= 

000001 

X29DF   OOOOOOR 

003  $$$FLG= 

vini 

N$$MOV= 

000010 

X29END  0001 30R 

$$$KEY= 

000000 

N$$NCT= 

000001 

X29KW   OOOOOORG 

004  $$$R  = 

000010 

N$$PEM= 

000001 

X29MXC  000052R 

$$$STA= 

000000 

P$$P45= 

000000 

X29ST   OOOOOORG 

003  $$$TMP= 

OOOOOOR 

005 

P$$URD= 

000000 

$ALL16=  ******  GX 

.PNUHB= 

******  GX 

QSACTC 

000004 

$ALPHA=  000022 

.PNUMH= 

******  GX 

QSAUC 

000006 

$ANY  ^  000020 

.TPARS= 

******  GX 

vFPx: 
X3P$C 


SYtvFPX29!v2;[?5^J54]VfPX29/CR/-SP=SY:[1  J]RSXMCI»1.SML/ML,[130J10]NETLIB/MLJ130J0]RSXMCM/PA:1,[132J^ 


L 
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X3P$DF  ACTION  ROUTINES 
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204 
205 
206 
207 
208 

209  000060 

210  000064 

211  000066 

212  000072 
213 

214 

215 

216  000074 

217 

218 

219 

220 

221  000102 

222  000106 

223  000110 

224  000114 

225  000116 

226  000122 
227 

228 
229 

230  000124 

231  000132 
232 

233 
234 
235 

236  000140 

237  000144 

238  000146 

239  000152 
240 

241 

242 

243  000154 

244 

245 

246 

247 

248  000162 

249  000166 

250  000170 

251  000174 

252  000176 

253  000202 
254 

255 

256 

25/  000204 

258  000212 


103403 
010067 


OOOOOOG 


103406 
020067 
103406 
010067 


OOOOOOG 
OOOOOOG 


103403 
110067 


OOOOOOG 


.SBTTL   X3P$DF  ACTION  ROUTINES 


;   DEFAULT  BLOCK 

SIZE 

BLKDEF:    CALL 
BCS 
MOV 
RETURN 

CHK6LK 

101$ 

RO.BLKSZD 

;   ERRORS 

101$:        EM5G$R 

P7 

;   MAXIMUM  BLOCK 

SIZE 

BLKMAX:    CALL 
BCS 
CMP 
BLO 
MOV 
RETURN 

CHKBLK 

101$ 

RO.BLKSZD 

io5$ 

R0.6LKSZM 

':    ERRORS 

101$:        EMSG$R 
102$:        EMSG$R 

P8 
01 

;    DEFAULT  WINDOW   SIZE 

WNDDEF:    CALL 
BCS 
MOVE 
RETURN 

CHKWND 

101$ 

RO.WNDSZD 

;    ERRORS 

103406 
020067 
103406 
010067 


P9 

MAXIMUM  WINDOW  SIZE 
WNDMAX 


OOOOOOG 
OOOOOOG 


CALL 

BCS 

CMP 

BLO 

MOV 

RETURN 


ERRORS 


l01$: 
102$: 


EMSGSR 
EMSGSR 


CHKWND 

101$ 

RO.WNDSZD 

lOJS 

RO.WNDSZM 


00 
02 


CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 
BR  IF  ILLEGAL  VALUE 
STORE  DEFAULT  BLOCK  SIZE 


ERROR  -  ILLEGAL  DEFAULT  BLOCK  SIZE 


CHECK  FOR  LEGAL  BLOCK  SIZE  VALUE 

BR  IF  ILLEGAL  VALUE 

IS  DEFAULT  IN  RANGE? 

BR  IF  NO 

STORE  MAXIMUM  BLOCK  SIZE 


VHC 

MAC 

MAC 

FDE 
FDE 
HLF 


ERROR 
ERROR 


ILLEGAL  MAXIMUM  BLOCK  SIZE 
DEFAULT  EXCEEDS  MAXIMUM 


CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 
BR  IF  ILLEGAL  VALUE 
STORE  DEFAULT  WINDOW  SIZE 


ERROR  -  ILLEGAL  DEFAULT  WINDOwSIZE 


CHECK  FOR  LEGAL  WINDOW  SIZE  VALUE 

BR  IF  ILLEGAL  VALUE 

IS  DEFAULT  IN  RANGE? 

BR  IF  NO 

STORE  MAXIMUM  WINDOW  SIZE 


ERROR 
ERROR 


ILLEGAL  MAXIMUM  WINDOW  SIZE 
DEFAULT  EXCEEDS  MAXIMUM 


VHDAT  CREATED  BY 
MACRO  CROSS  REFERENCE 
MACRO  NAME      REFERENCES 


MACRO  ON  29-JUN-85  AT  02:42 
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*FIL 


FDBDFS 

#5-68 

5-68 

FDBSZ$ 

#5-68 

5-68 

HLPDF$ 

#5-59 

5-68 

vv 
vv 
vv 
vv 
vv 
vv 
vv 
vv 
vv 
vv 


vv 
vv 


LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLL 

LLLL 


I   8 


K     9 


■'F!LE'-*1D'«V1MI 


vv 

vv 

11 

III 

MM 

MM 

III 

III 

vv 

vv 

II 

III 

MM 

MM 

111 

III 

vv 

vv 

MMMI^ 

MMMM 

I 

vv 

vv 

MMMf 

MMMM 

1 

vv 

vv 

MM 

*IM  MM 

I 

vv 

vv 

MM 

m    m 

1 

vv 

vv 

MM 

m 

1 

vv 

vv 

MM 

MM 

vv 

vv 

MM 

MM 

vv 

vv 

MM 

MM 

1 

vv 

vv 

MM 

MM 

I 

v\/ 

vv 

MM 

MM 

I 

vv 

II 

HI 

MM 

MM 

111 

111 

vv 

II 

nil 

MM 

MM 

III 

III 

vv 
vv 
vv 
vv 
vv 
vv 
vv 
vv 
vv 
vv 


ssssssss 

TTTTl 

TTTTT 

ssssssss 

TTTT 

TTTTT 

ss 

T 

ss 

T 

ss 

T 

ss 

T 

ssssss 

T 

ssssss 

T 

ss 

T 

ss 

T 

ss 

T 

ss 

T 

LLLLLLLLLL 

ssssssss 

FT 

LLLLLLLLLL 

ssssssss 

IT 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLL 

LLL 


L  9 


n 
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,f  1LE.«ID««\/IM0 


VlNI 
CONST 


vv 

vv 

III 

III 

MM 

MM 

000000 

vv 

vv 

HI 

III 

MM 

MM 

000000 

v\/ 

vv 

I 

MMM^ 

MMMM 

00      00 

vv 

vv 

I 

MMM^ 

MMMM 

00      00 

vv 

vv 

I 

MM 

^M  MM 

00      00 

vv 

vv 

I 

MM 

*IM  MM 

00     00 

vv 

vv 

I 

MM 

MM 

00      00 

\l\l 

vv 

I 

MM 

MM 

00      00 

vv 

vv 

1 

MM 

MM 

00      00 

vv 

vv 

MM 

MM 

00      00 

\l\l 

vv 

MM 

MM 

00      00 

\/v 

vv 

I 

MM 

MM 

00      00 

vv 

III 

II! 

MM 

MM 

000000 

vv 

III 

HI 

MM 

MM 

000000 

5SSSSSSS 

TTTTT 

TTTTT 

ssssssss 

TTTTT 

TTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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VlNl  -  VNP  INITIALIZATION 

CONSTANT  DEFINITIONS 

67 

68 

69 

70 

71 

72 

73 

71, 

75 

76 

77 

78 

79 

80 

81 

82 

83  000006 

8A  000006 

85  000006 

86 

87  000006 

88  000006 

89  000012 

103431 

90  OOOOU 

91  000020 

103426 

92  000022 

93  000026 

103A23 

94 

95 

96 

97 

K  n 
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cot 


»*-$VINI 

INPUTS: 

NONE 

OUTPUTS: 

SYSTEM  IMAGE  FILE  OPENED  AND  VERIFIED 
SYMBOLS  DEFINED  FROM  STB  FILE 
ALL  REGISTERS  DESTROYED 

.MCALL  HWDDF$,LBLDF$,PCBDF$,SUTCHO,ERMSG$,ERBLK$,ERRPT$,SWTCHI,GETRV 

.MCALL  CALLR 

.ENABL  LC  ;  ENABLE  LOWER  CASE 


$VINI: 


99 
100 
101 

102  000030 

103  000034 

104  000036 

105  000044 

106  000052 
107 

108  000060 

109  000066 

110  000070 

111  000072 

112  000076 
113 

114 
115 

116  000100 

117  000114 

118  000177 


103421 
016767 
016767 
052767 

032767 
001403 
005002 


10$: 


OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 

020000  OOOOOOG 


100$: 


HWDDF$ 
LSLDF$ 
PCBDF$ 


CALL 

BCS 

CALL 

BCS 

CALL 

BCS 

.IF  DF 
BIT 
BEQ 
MOV 

.ENDC 

CALL 

BCS 

MOV 

MOV 

BIS 

BIT 

BEQ 

CLR 

CALL 

RETURN 


ERROR  TEXT 


110$: 


ERRPT$ 
ERMSG$ 
ER8L<$ 


VFILE 

100$ 

VSYMB 

100$ 

VSVMl 

100$ 

R$$MPL 

*DF.DAS,$DFLAG 
10$ 
#$IC8D,$ICBLN 


$XXINI 

110$ 

$XX8UF,$XBUF2 

$XXLEN,$XLEN2 

#VF.IN1,$VFLAG 

#FE.CEX,$FMASK 

100$ 

R2 

$VIM1 


HARDWARE  DEFINITIONS 

LABEL  BLOCK  OFFSETS 

PARTITION  CONTROL  BLOCK  OFFSETS 


OPEN  SYSTEM  IMAGE  FILE 

EXIT  GRACEFULLY 

OPEN  SYMBOL  TABLE  FILE  AND  DEFINE  SYMBOLS 

CAREFULLY  CAREFULLY 

UPDATE  SYMBOL  TABLE 

ERROR 


D-SPACE  PROBLEM  ? 

IF  NO  -  BRANCH 

IF  YES  -  UPDATE  KB  SIZE 


INITIALIZE  OND  OF  TASK  BUFFER 
GET  TASK  DIRECTIVE  NOT  SUPPORTED 
INITIALIZE  NETLOADER  BUFFER  POINTERS 

INDICATE  SUCCESSFUL  INITIALIZATION 

IS  COMEXEC  LOADED  ? 
IF  EQ,  NO 

NO  RELOCATION  BIAS 
LOAD  CETAB  IMAGE,  ETC. 


CMPOl] 
CMPOl] 
CMPOl] 
CMPOl] 

; CMPOl] 


ERfiOR1,$EROUT, FATAL     ;  GTSKSS  DIRECTIVE  NOT  SUPPORTED 
<GTSK$S  directi'i/e  not  supported  by  operating  system. > 
ERR0R1 
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VIM  -  VNP  INITIALIZATION 
CONSTANT  DEFINITIONS 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 
758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 


K   12 

MACRO  V05.03b  Saturday  29-Jun-85  02:43  Page  12-1 


UHMTB: 

STMFC: 

LTMFC: 

CC8AF: 

RDBAF : 

LD8AF : 

SDBAF : 

CCBAL: 

CMFRK: 

CEX: 

OBJHD: 

FILHD: 

CCBLH: 

SDBLH: 

RD6LH: 

SKS5: 

NTLPT: 

PSIPT: 

POLHD: 


.WORD 

.UORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 

.WORD 

.WORD 

.RAD50 


0 

STMFC, 0 

"SURMTB" 

0 

LTMFC, 0 

"SSTMFC" 

0 

CCBAF.O 

"SLTMFC" 

0 

RDBAF, 0 

"SCCBAF" 

0 

LD8AF,0 

"$RD8AF" 

0 

SDBAF, 0 

"SLDBAF" 

0 

CCBAL, 0 

"SSDBAF" 

0 

CMFRK, 0 

"SCCBAL" 

0 

CEX,0 

"SCMFRK" 

0 

OBJHD.O 

"$CEX'' 

0 

FILHD, 0 

"$08JHD" 

0 

CCBLH, 0 

"SFILHD" 

0 

SDBLH, 0 

"SCCBLH" 

C 

RDBLH,0 

"SSDBLH" 

0 

SKS5,0 

"SRDBLH" 

0 

NTLPT, 0 

"S.KS5" 

0 

PSIPT, 0 

"SNTLPT" 

0 

POLHD, 0 

"IPSIPT" 

0 

SECFR,0 

"SPOLHD" 


UNIBUS  RUN  CONECTIVITY  TABLE 
100  MSEC  TIMEOUT  FUNCTION  CODE 
LONG  TIMEOUT  FUNCTION  CODE 
ALLOCATION  FAILURES 


NUMBER  OF  DYNAMIC  CCB  ALLOCATIONS 
;  FORK  BLOCK  LISTHEAD 
;  CEX  ADDRESS  IN  RSX  EXEC  SPACE 
;  OBJECT  LISTHEAD 
;  FILTER  LISTHEAD 
;  CCB  LISTHEAD 
;  SDB  LISTHEAD 
;  LDB  LISTHEAD 

S.KS5  SCB  OFFSET 

NTL  HOME  BLOCK 

PSI  HOME  BLOCK 

SECONDARY  POOL  LISTHEAD 


;[MPOi: 

.■rMPOi] 

;[MP01] 
;CMP01] 
;CMP01] 
;[MP01] 
;CMP01] 
; CMP01 ] 
;[MP01] 
; [MP01 ] 
;[MP01] 
; [MP01 ] 
;CMP01] 
;[MP01] 
;CMP01] 
;tMP01] 
;CMP01] 
;CMP01] 
; [MP01 ] 
;CMP01] 
;[MP01] 
;CMP01] 
;CMP01] 
;[MP01] 
;[MP01] 
.-[MPOl] 


r 
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SYMBOL  CROSS  REFERENCE 
SYMBOL   VALUE 


SVCTOF 

tVCTVB 

SVFLAG 

SVFLGI 

SVGCL 

SVIMI 

SVINI 

$XBUF2 

SXFRAD 

$XLEN2 

SXXBUF 

SXXINl 

SXXLE^J 

$$ 


=  »«»m   GX 
=  .....*  GX 

=  ....*♦  GX 
=  «»»**«  GX 
=  .».*♦*  GX 
=  »»»»•«  GX 
000006  RG 
GX 
GX 
GX 
GX 
GX 
GX 


=  ****** 


=  ****** 
=  ****** 
=  ****** 
=  177777 


$$$ 


$$$$ 

.COO 

.CRAVL 

.CRCOV 

.csn 

.CSI2 

.DEVHD 

.DLCOV 

.EXSIZ 

.FMA5K 

.NTUIC 

.OPEN 

.PARHD 

.PLGTH 

.PPASC 

.RDFUI 

.SYSIZ 


=  004604  R 


004754  R 
003322  R 


"   •**♦♦* 


****** 


GX 

GX 

G 

G 

GX 

GX 

GX 

GX 

GX 

G 

GX 

GX 

GX 

GX 

GX 


REFERENCES 

»11-591 
*11-590 
»7-106 
•8-252 

8-145 

7-111 
»7-87 
*7-104 
♦8-217 
*7-105 

7-104 

7-102 

7-105 

7-117 

8-262 
#8-266 

8-270 

9-459 
#9-462 
#10-531 

13-1001 

13-1005 
#7-117 

8-269 
#10-530 

13-1004 
#7-118 
#10-531 

12-805 

11-626 

11-657 

8-162 

8-164 

11-621 

11-654 

11-614 

9-437 
*9-394 

8-168 

11-623 

13-948 

14-1025 

14-1021 

11-586 


»8-160 


7-117 
#8-262 

8-267 
#8-270 

9-459 
#9-463 

11-669 

13-1001 
#13-1005 

7-118 
#8-270 

10-531 
#13-1005 
#8-261 
#11-670 
#12-808 

•11-659 
8-162 
8-164 

•11-656 

11-612 

9-395 

8-168 


K  13 

PAGE   4 

CREF       04.00 


•9-442 


#7-117 
#8-263 

8-267 

8-271 
#9-459 

10-528 

11-669 
#13-1001 

13-1006 
#8-260 

8-272 
#11-669 

13-1007 
#8-263 

11-671 


9-397 


#7-118 

8-264 
#8-267 

8-271 
#9-460 

10-528 
#11-669 
#13-1002 

13-1006 

8-261 
#9-458 

11-670 

#8-266 
#13-1000 


8-260 

8-260 

#8-260 

#8-261 

8-262 

8-264 

#8-264 

8-265 

8-265 

#8-265 

8-268 

8-268 

#8-268 

#8-269 

8-270 

#8-271 

#8-272 

9-458 

9-458 

#9-458 

9-461 

9-461 

#9-461 

9-462 

9-462 

#10-528 

#10-529 

10-530 

10-530 

#10-530 

#11-670 

13-999 

13-999 

#13-999 

#13-1000 

13-1003 

13-1003 

#13-1003 

#13-1004 

13-1005 

#13-100^. 

#13-1007 

#8-262 

8-263 

#8-264 

8-266 

#8-267 

9-460 

#9-461 

9-463 

#10-528 

10-529 

#13-999 

13-1000 

#13-1001 

13-1002 

#13-1003 

#8-269 

#8-272 

#9-460 

#9-463 

#10-529 

#13-1002 

#13-1004 

#13-1007 

L  13 


n 


L 
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5^ 
55 
56 
57 
58 
59 
60 

61  000000 

62  000000 

63  000000 
64 

65 

66  000077 

67  001777 

68  000006 

69  000077 

70  000031 

71  000031 

72  000006 

73  00002C 
7A        OOOOOo 

75  000006 

76  000050 

n  000006 

78  000020 

79  000040 
80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 

102  OOOOOO 
103 
104 
105 

106  COOOOO 

107  000014' 

108  000016' 
109 

110 


Macro  caUs  and  Local  data 

MCALL  VNPDF$,D1R$,QI0W$,UCBDF$,GETRV,SAVRG,RESRG,ASL$,DHBDF$,SWTCHI 
.ENA8L  LC 

Netldr  request  block  offsets 

Define  ucb  offsets 

DEFINE  DECNET  HOME  BLOCK  OFFSETS 


Maximum  area 

Maximum  node  address 

Maximum  alias  name  length 

Maximum  number  of  object  task  copies 

Maximum  line  cost  ualue 

Maximum  line  cost  value 

Maximum  destination  name  length  Cold  formatJ 

Maximum  DTE  address  length 

Maximum  group  name  length  Cold  format] 

Maximum  PSI-circuit  name  length  Cold  format] 

Maximum  sink  name  length 

Maximum  node  name  length. 

Max  length  of  net.  mgmt.  'id-string' 

ASCII  space  character 


VNPDFS 

UCBDFS 

DHBDFS 

MXAREA  =  63. 

MXADDR  =  1023. 

MXALIN  =  6. 

MXCOP  =  63. 

MXCST  =  25. 

MXCST  =  25. 

HXDSTN  =  6. 

MXDTEL  =  16. 

MXGRPN  =  6. 

MXPSCN  =  6. 

MXSNKN  =  40. 

MXNODN  =  6. 

MAXID  =  16. 

SPACE  =  40 

;  Define  error  message 

text 

.MACRO  ETEXTS 

MSG, TEXT 

MSG: 

.ASCII   "VNP  - 

TEXT" 

L'MSG'=.-MSG 

.ENDM   ETEXTS 

;  Print  error  message 

CTDOOl] 
CTD001] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 
CTDOOl] 


.MACRO 

ERRORS  MSG, WARN 

MOV 

#MSG,EBUF 

MOV 

*L'MSG',ELEN 

.IF  N8 

WARN 

CALL 

ERRHDL 

.IFF 

JMP 

ERRHDL 

.ENDC 

.ENDM 

ERRORS 

.PSECT 

DATA,D 

Set  dpb  buffer  address 
and  buffer  length 

Call  the  error  handler 

Jump  to  the  error  handler 


Error  message  dpb 


<,,40> 
;  General  purpose  dpb  (no  i/ertical  foratting 


EMSG:   QIOWS   I0.WLB,1,1 

E8UF=EMSGtQ.I0PL 

ELEN=E8UF+2 


r 
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710  0025'!.0 

711  002542 

712  0025AA 
713 

7U 
715 

716  002564 

717  002570 

718  002572 

719  002576 

720  002600 

721  002606 

722  002610 

723  002612 
724 

725 
726 

727  002632 

728  002636 

729  002640 

730  002644 

731  002650 

732  002652 

733  002656 

734  002660 
735 

736 
737 
738 

739  002700 

740  002704 

741  002706 

742  002712 

743  002716 

744  002720 

745  002724 

746  002726 
747 

748 
749 
750 
751 

752  002746 

753  002752 

754  002760 
755 

756  002762 

757  002766 

758  002770 

759  002772 

760  002776 

761  003000 
762 

763 
764 
765 
766 


001401 


005767 
001010 
105767 
001005 
016767 
001401 


005767 
001010 
016700 
022700 
103403 
010067 


005767 
001010 
016700 
022700 
103403 
010067 


005067 
016767 


016700 
005700 
001424 
022700 
103421 
000241 

000012 


OOOOOOG 
000001 G 
OOOOOOG  000064G 


OOOOOOG 


OOOOOOG 
000100 

000006G 


OOOOOOG 

OOOOOOG 
000100 

000004G 


000100' 
OOOOOOG  000102' 


000102' 
000077 


BEQ 

RETURN 
101S:   ERRORS 

101$ 
ILLINA 

;  Retransmit  factor 

iRET::   TST 
BNE 
TSTB 
BNE 
MOV 
BEQ 
RETURN 

101$:   ERROR$ 

.PNUMH 

101$ 

.PNUMBtl 

101$ 

.PNUMB.RQB+LO.RET 

101$ 

ILLRET 

;  Controller  table  count 

iMXCO::  TST 
F.NE 
'•10V 
CMP 
OLO 
MOV 
RETURN 

101$:   ERROR$ 

.PNUMH 

101$ 

.PNUMB.RO 

*64.,r0        ; 

101$ 

RO.RQBtLO.CON 

MXCN64 

;  Line  table  count 

ImXLI::  TST 
BNE 
MOV 
CMP 
BLO 
MOV 
RETURN 

101$:   ERRORS 

.PNUMH 

101$ 

.PNUMB.RO 

*64.,R0 

101$ 

R0,RQB*LO.LIN 

MXLN64 

Store  node  area/address 


$ARAD1::CLR 
MOV 
RETURN 

$ARAD2::M0V 
TST 
BEQ 
CMP 
F'O 
L  . 

.REPT 

ROL 

.ENDM 


AREAN 
.PNUMB.ADDRS 


ADDRS,R0 

RO 

101$ 

#MXAREA,R0 

101$ 


10. 
RO 


If  ^ero,  illegal  ualue 
Illegal  inactivity  timer  value 


Must  be  a  word  value 
If  ne,  illegal  value 
Must  be  a  byte  value 
If  ne,  illegal  value 
;  Store  retransmit  factor 
If  zero,  illegal  value 

Illegal  retransmit  factor  value 


Double  prfci.ii  loii? 

If  ne,  yes  -  too  big 

Get  line  table  count 

Is  the  count  too  big? 

If  lo,  yes 

Set  controller  increment  value 


Double  precision? 

If  ne,  yes  -  too  big 

Get  line  table  count 

Is  the  count  toe  big? 

If  lo,  yes 

Set  line  increment  value 


assume  default  area 

store  area  or  address,  not  determined  yet 


store  area  number 

check  for  area  lower  limit 

if  illegal  -  branch 

check  for  high  limit 

if  illegal  -  branch 

do  not  rol  c-bit 

position  area  bits 


L  15 

_  Q  c  m  .  /  / 
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PCI^BCO  -  PACK  STRING  OF  DIGITS  IN  BCD  FORMAT 

Help  action  routine 


1365 
1366 
1367 

1368  006276  010A67  000002G 

1369  00630? 
157C 

1371 

1372 

1373 

137^  006304 

1375  0063'2 

13'6 


tHLPAC::M0V     R/,  ,RQB+LR.HLP 
RETURN 


Error  hanlder 

fRRHDL:  DIRS    #EMSG 
RETURN 


Save  address  of  help  string 


Print  error  message 


L  1 
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Page  20 


VFPRD 
MACRO 


678 
f"i 
680 
681 
682 
683 
66'. 
635 
686 
68~ 
688 
689 
690 
691 
692 
693 
694 
6-5  0016^6 

696  001706 

697  001712 

698  001720 

699  001722 

700  001726 
001742 
001746 


^01 
'02 


705  001750 
"04  301752 

705  001754 

706  001756 
7C7  001762 
708  OOV70 
7C9  001776 
710  002004 
"       002012 

002020 


7i; 


713  002026 

714  002032 

715  002040 

716  002044 

717  0020";? 

718  002C'  ■■ 
71Q  002064 
720  002C7C 
72'  C02076 
722  002IC4 
-23  002' U" 
'24  002' 16 


012701 
032767 
001402 
012701 

012702 
105022 
005301 
003375 
010500 

016767 
016767 
016767 
016767 
116767 
016767 
010067 
062767 
010067 
062767 
010067 
062767 
010067 
062767 
'16767 
112767 


.SBTTL  INIXCB  -  INITIALIZE  X25  CIRCUIT  BLOCK 


INIXC8  -  INITIALIZE  X25  CIRCUIT  BLOCK 

INPUTS: 

RO  -  UNMAPPED  ADDRESS  OF  CIRCUIT 
SPFLAG  -  PSI  characteristics  word 


IQK 


;[TD001] 


OUTPUTS: 

R3  -  MAPPED  ADDRESS  OF  X25  CIRCUIT  BLOCK 

X25  CIRCUIT  BLOCK  INITIALIZED  ACCORDING  TO  VALUES 

SPECIFIED  IN  PVCSDF 
R0,R1,fi2  DESTROYED 


000106 

OOOOOOG  COOOOOG 

000106 

OOOOOOG 


INIXCB: 

5$: 
10$: 


000012' 

000010' 

000006' 

OOOOOOG 

000024' 

000004' 

000070G 

000066 

000074G 

000072 

000064G 

000062 

000100G 

000076 

000054' 

000001 


000020G 
000016G 
000060G 
000024G 
000021 G 
000026G 

000070G 

000074G 

000064G 

000100G 
'00005G 
00001 5G 


CEACCS 

MOV 

BIT 

BEQ 

MOV 

GETAD 

MOV 

CLRS 

DEC 

BGT 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

ADD 

MOV 

ADD 

MOV 

ADD 

MOV 

ADD 

MOVB 

MOVB 

PUTAD 

RETURN 


R0,R3 

#X$LEN,R1 

*PF.PSV,tPFLAG 

5$ 

#X$GLEN,R1 

R3,R' 

#$BFfi,R2 

(R2)  + 

R1 

10$ 

R3,fiO 

BIASX 

PVCWSZ,X$WSZ+$BFR  ; 

PVCPSZ,X$PKSZ+$BFR; 

PVCCTM,X$CTIM+$BFR; 

OTEDES,X$DTE+$BFR  ; 

PVCPfiT,X$PRT+$BFR  ; 

PVCLCN,X$LCN+$BFR  ; 

R0,X$TXQ<-2+$BFR 

#X$TXQ,X$TXQ+2+$BFR 

R0,X$RXQt2*-$BFR 

#X$fiXQ,X$RX0+2+$BFR 

R0,X$UAQt2+$8FR 

#X$WA0,X$UAQ+2+$BFR 

R0,X$ABQ+2+$BFR 

#X$AB0,X$ABQ+2+$BFR 

SP$P4,X$STt$BFR   ; 

#XT$PVC,X$TYP*$BFR 


GET  MAPPED  ADDRESS  OF  CIRCUIT  BLOCK 

GET  SIZE  OF  CIRCUIT  BLOCK 

Check  for  PSV  module 

Branch  if  not  pres'  " 

PSV  needs  longer  X,>.> 

READ  IN  CIRCUIT  BLOCK 

GET  CIRCUIT  BLOCK  ADDRESS 

INITIALIZE  CIRCUIT  BLOCK  TO  ZEROES 

MORE  TO  INITIALIZE? 

BR  IF  YES 

COPY  VIRTUAL  ADDRESS  OF  XCB 

BIAS  CORRECTLY  FOR  APR6 

STORE  WINDOW  SIZE 

STORE  PACKET  SIZE 

STORE  COUNTER  TIMER 

STORE  DTE  DESCRIPTOR  ADDRESS 

STORE  PORT  NUMBER 

STORE  LOGICAL  CHANNEL  NUMBER 
INITIALISE  TRANSMKSION  QUEUE 


lTDOOI] 
CTD001] 
[TD001] 
LTDOOI] 
**-1 


INITIALISE  RECEIVED  DATA  QUEUE 

'initialise  ACKNOWLEDGEMENT  QUEUE 

' INITIALISE  ABORTED  DATA  QUEUE 

SET'pORT  in  DATA  TRANSFER  STATE 
SET  CIRCUIT  TYPE  AS  PVC 
WRITE  UPDATED  CIRCUIT  BLOCK 


VfPRDT   -   INITIAL   CONFIG   HLE   SC  MACRO  V05.03b  Saturday  29-Jun-85 
MACRO  DEHNHIONS 

55 
56 
57 
58 
59 
60 
61 
62 

63  000000 

64  000000 
65 
66 
67 
68 
69 
70 
71 
72 
73 
?A 
75 
76 


1)2:39 


9  Page  5 
.SBTTL  MACRO  DEFINITIONS 

LIBRARY  MACROS 

.MCALL  RDT[)F$,EHSG$R,PHBDF$,NTLER$,STATE$,1  STATS,  TRANS 
.MCALL  GETAD,PUTAD,GETRV,CEACCS 


PHBDFS 
RDTDFS 


LOCAL  MACRO  DEFINITIONS 

.MACRO  SAVMAP 

MOV  SRBLCK,-(SP) 

.ENDM 

.MACRO  RESMAP 

MOV  (SP)+,SRBLCK 

.ENDM 


PSI  HOME  BLOCK  0-FSETS 
REMOTE  DTE  NAME  BLOCK  OFFSETS 


_J 


L     3 


*F1LE-»ID"VFPRNW 


\^\/ 

vv   F 

FFFFFFFFF 

PPPPPPPP 

RRRRRRRR 

NN 

NN 

UU      UU 

vv 

vv   F 

FFFFFFFFF 

PPPPPPPP 

RRRRRRRR 

NN 

NN 

UU      WW 

vv 

vv   F 

PP      PP 

RR      RR 

NN 

NN 

UU      UU 

y\i 

vv   F 

PP      PP 

RR      RR 

NN 

NN 

UU      UU 

\i\i 

vv   F 

PP      PP 

RR      RR 

NNNN 

NN 

UU      UU 

vv 

vv   F 

PP      PP 

RR      RR 

NNNN 

NN 

UU      UU 

vv 

vv   F 

FFFFFFF 

PPPPPPPP 

RRRRRRRR 

NN 

NN  NN 

UU      UU 

vv 

VV   F 

FFFFFFF 

PPPPPPPP 

RRRRRRRR 

NN 

\IN  NN 

UU      UU 

vv 

vv   F 

PP 

RR  RR 

NN 

NNNN 

UU  UU  UU 

\/\; 

VV   F 

PP 

RR  RR 

NN 

NNNN 

UU  UU  w 

vv 

vv     F 

PP 

RR    RR 

NN 

NN 

uuuu  uuuu 

vv 

VV     F 

PP 

RR    RR 

NN 

NN 

uuuu  uuuu 

vv       F 

PP 

RR      RR 

NN 

NN 

UU      UU 

VV       F 

PP 

RR      RR 

NN 

NN 

UU      UU 

VFPRN 
Synta 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


ssssssss 

riTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

ss 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

:s 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 

n      r 
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Syntax  action  routines 


285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 


000144 

000144  016701  OOOOOCG 

000150  020127  000006 

000154  101011 

000156  110167  OOOOOOG 

000162  016700  OOOOOOG 

000166  012702  OOOOOOG 

000172 

000176 

000200 


***  RNUNOD  -  Check  node  name 

INPUTS 

.PSTPT  -  Pointer  to  parsed  string 
.PSTCN  -  Number  of  characters  in  string 

OUTPUTS 

Node  name  checked  and  stored 

Error  condition  if  invalid  node  name 


RNUNOD : 


MOV 

. PSTCN, R1 

CMP 

R1,*MXN0ID 

BHl 

101$ 

MOVB 

RI.RNNL 

MOV 

. PSTPT, RO 

MOV 

#RNN0DE,R2 

CALL 

MOVE 

RETURN 

101$:   EMSGSR  RB 


;  Check  if  node  name  too  long 

;  Branch  if  error 

;  Move  node  length  to  data  area 

;  Move  node  name  to  data  area 


Illegal  node  name 


M  L 


VFPRNW     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:40 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


R$NOD 

R$NWK 

R$NWL 

R$PAL 

RSPAS 

RiUSL 

R$USR 

SPFILL 

STORCH 

STRBUF 

STRLEN 

SYNERR 

SYSFOB 

S$$BAS 

SALPHA 

SAL POL 

$ANY 

$BFR 

SBLANK 

SCEACC 

$DBG$ 

SDIGIT 

SDNUMB 

$EOS 

SERRRA 

$ERRRB 

SERRRC 

SERRRX 

SERRIT 

SEXIT 

SFAIL 

SGETAD 

SGETRV 

tGPRM 

SLAMDA 

SNUMBR 

SPSIPT 

SPUTAD 

SQRNA 

SQRNW 

SRADDR 

$RAD50 

SRBLCK 

SRONLY 

SSAVAL 

SSTRNG 

SSUBXP 

$$$FLG 

$$$KEY 

.PCHAR 

.PSTCN 


GX 

R 

R 

R 
GX 
GX 


GX 
GX 

GX 


000023 
000003 
000104 
000052 
000053 
000031 
000032 

~      ****** 

001020 
000165 
000164 

=  ****** 
=  ****** 
=  ****** 
=  000022 

-  ****** 

=  000020 

-  ****** 

=  000006 
=  ****** 

-  ****** 
=  000024 
=  000014 
=  000012 

000000  R 

000026  R 

000050  R 

000104  R 

-  ****** 

=  ooocoo 

=  177777 

=      ****** 

-  ****** 
=   ****** 

=  000000 
=  000002 

-  ****** 

-  ****** 

000006  RG 
000000  RG 

r  ******   QX 

=   000016 

=    ******  GX 

rr  ****** 
=     ****** 

=  000004 
=  000010 
=  177777 
r  177777 
=  *..*».  GX 
=  »♦***»  GX 


GX 


GX 
GX 


GX 
GX 


GX 


REFERENCES 

21-466 

20-426 

20-422 
•21-480 

21-481 
•21-475 

21-476 

21-468 
#23-519 
#8-101 
#8-100 
•9-130 
•20-417 

7-90 
#10-144 

21-452 
#10-144 

20-418 
♦21-480 
#10-144 

20-421 

9-125 
#10-144 
#10-144 
#10-144 
#7-90 
#7-91 
#7-92 
#7-93 

9-139 
#10-144 
#10-144 

20-422 

20-417 

10-144 
#10-144 
#10-144 

20-415 

21-488 
#9-123 
#9-120 
•20-417 
#10-144 

20-414 

10-144 

21-449 
#10-144 
#10-144 
#10-144 
#10-144 

23-522 

14-270 


21-464 
21-451 


16-325 
16-321 
•9-133 
♦20-422 
7-90 


20-423 
21-481 

21-455 


14-233 
15-306 
16-330 
19-398 


21-489 


•20-422 

♦20-432 
10-144 


15-297 


21-457 


17-348 
17-344 

•21-488 
7-91 


20-426 
•21-485 


19-397 
17-353 


•21-488 

21-450 
10-144 
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21-488 

18-372         •23-522 
18-368         ^22-505 

23-519 

23-521 

•23-523 

7-91               7-92 

7-92 

7-93 

7-93 

21-456         •21-463 
21-486 

21-464 

21-466 

♦21-475 

21-476 

18-377 

•21-492 

VFPX29 

CREATED  BY 

MACRO  ON  29-JUN-85 

AT  02:41 

SYMBOL 

CROSS  REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

CERR 

=  »*♦«*»  GX 

6-74^ 

6-75 

6-76 

CFGBF 

=  »»*«•»  GX 

(--107 

CFGSZ 

=  »«««♦»  GX 

7-106 

CFLIN 

=  »♦**»»  GX 

6-74 

6-75 

6-76 

CTIMR 

000210  R 

#6-86 

♦9-170 

9-195 

FMTIO 

I  .*»*»*  GX 

6-74 

6-75 

6-76 

FMT8 

=  ««**»»  GX 

6-77 

FM.10 

=  000000 

#6-74 

#6-75 

#6-76 

FM.8 

=  000000 

#6-77 

F.RSIZ 

I  *»»***  GX 

♦9-181 

♦9-197 

♦9-200 

H$X29C 

OOOOAO 

9-180 

9-199 

MAXVC 

000206  R 

#6-85 

♦9-160 

9-194 

OICTIM 

000000 

♦9-195 

Q$LEN 

000016 

9-185 

9-189 

9-197 

QSMXVC 

000002 

•9-194 

QSTCLZ 

000010 

♦9-196 

RTSPC 

=  »»»»»»  GX 

6-74 

6-75 

6-76 

SYNERR 

=  »«♦**»  GX 

♦7-108 

♦7-111 

SYSFDB 

=  »»*»*♦  GX 

♦9-181 

♦9-197 

♦9-200 

S$$BAS 

r  ****** 

6-74 

6-74 

6-75 

X29CTM 

000104  R 

#9-168 

X29DF 

000000  R 

7-103 

X29END 

000130  R 

#9-178 

X29KW 

000000  RG 

7-105 

#8-124 

X29MXC 

000052  R 

#9-156 

X295T 

000000  RG 

#8-124 

SALLib 

-   ******  GX 

9-186 

SALPHA 

=  000022 

#8-124 

$ANY 

=  000020 

#8-124 

$BFR 

=  ******  GX 

9-182 

9-188 

♦9-194 

SBLANK 

=  000006 

#8-124 

SDiGIT 

=  000024 

#8-124 

SDNUMB 

=  000014 

#8-124 

SEOS 

=   000012 

#8-124 

SERRU 

=  ******   GX 

7-118 

$ERR9A 

000000  R 

#6-74 

9-205 

$ERR9B 

000036  R 

#6-75 

9-163 

$ERR9C 

000076  R 

#6-76 

9-173 

$ERR9D 

000132  R 

#6-77 

9-206 

lEXIT 
$FAIL 

=  000000 
=  177777 

#8-124 
#8-124 

SGETRV 

tGPRM 

SLAMDA 

SNUMBR 

SPSIPT 

SPUTRC 

$QX29 

SRADDR 

$RAD5C 

$RONL  Y 

tSTRMG 


=  ******  GX 
-  ****** 
=  000000 
=  000002 

r  ******   GX 

=  ******  GX 
000000  RG 

r  «**.*.   GX 

r  000016 
=  000004 


9-181 

8-124 

#8-124 

#8-124 

9-178 

9-197 

#7-103 

•9-181 

#8-124 

8-124 

#8-124 


9-200 

9-198 
9-202 

•9-197 

8-124 
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CREF 

04 

00 

6-77 

6-77 

VFPX' 
CHN$I 


6-77 
6-75 


6-76 


6-76 


6-77 


6-77 


♦9-195 


♦9-196 


♦9-201 


♦9-200 
8-124 


n 
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CHNSDF  ACTION  ROUTINES 


Page  12 


260 

.SBTTL 

CHN$DF  ACTION  ROU 

261 
262 
263 

LOW 

END  OF  CHANNEL  RANGE 

26A 

265 

.ENABL 

LS8 

266  000220 

005767 

OOOOOOG 

HLO: 

TST 

. PNUMH 

267  000224 

001157 

BNE 

101$ 

268  000226 

016700 

OOOOOOG 

MOV 

.PNUMB,RO      ; 

269  000232 

003554 

BLE 

101$ 

270  000234 

022700 

OOOOOOG 

CMP 

#CHNLMX,R0 

271  000240 

103551 

BLO 

101$ 

272  000242 

010067 

000000' 

MOV 

RO.CHNLLO       ; 

273  000246 

010067 

000002- 

MOV 

RO.CHNLHl 

274  000252 

RETURN 

275 
276 
277 

HIGH 

END  OF  CHANNEL  RANGE 

278 

279  ,00254 

005767 

OOOOOOG 

[HHI: 

TST 

.PNUMH 

280  000260 

001141 

BNE 

101$ 

281  000262 

016700 

OOOOOOG 

MOV 

.PNUMB,RO 

282  000266 

003536 

BLE 

101$ 

283  000270 

022700 

OOOOOOG 

CMP 

#CHNLMX,RO 

284  000274 

103533 

BLO 

101$ 

285  000276 

010067 

000002' 

MOV 

RO.CHNLHl 
#K$LEN,R1       ; 

286  000302 

012701 

000006 

CHEND: 

MOV 

287 

288  000306 

CALL 

$SAVAL 

289  000312 

CALL 

$ALL16 

290  00f316 

103525 

BCS 

102$ 

291  000320 

005067 

OOOOOOG 

CLR 

$BFR 

292  000324 

016767 

000000'  000002G 

MOV 

CHNLL0.K$L0C+$BFR 

293  000332 

016767 

000002'  000004G 

MOV 

CHNLHI,IC$HIC+$8FR 

294  000340 

PUTRC 

RO.#K$LEN 

295  000356 

SAVMAP 

296  000362 

CEACCS 

DTEDES.R1       ; 

297  000374 

010102 

MOV 

R1.R2 

298  000376 

GETAD 

R1./»L$LEN 

299  000414 

016767 

000034G  OOOOOOG 

MOV 

L$CHLS*-$BFR.$8FR; 

300  000422 

001014 

BNE 

20*.               ; 

301  000424 

010067 

OOOOOOG 

MOV 

RC,$8FR 
#LiCHLS.R1 

302  000430 

062701 

000034 

ADD 

303  000434 

PUTAD 

Rl,#2 
25i 

304  000452 

000417 

BR 

305  000454 

20$: 

GETRV 

$8FR.#K$LEN 

306  000474 

005767 

OOOOOOG 

TST 

W,'^ 

307  000500 

001365 

BNE 

20$          ; 

508  000502 

010067 

OOOOOOG 

MOV 

R0,$8FR 

309  000506 

310 

311  000512 

PUTRC 

016701 

000002' 

25$: 

MOV 

CHNLHI.RI 

312  000516 

166701 

000000' 

SUB 

CHNLL0.R1 

313  000522 

002001 

BGE 

30$ 

314  000524 

005401 

NEG 

Rl 

315  000526 

005201 

30$: 

INC 

R1 

316  000530 

GETAD 

R2,*L$LEN 

IS  THIS  A  LEGAL  VALUE? 

BR  IF  NO 

GET  SPECIFIED  CHANNEL  RANGE 

BR  IF  ILLEGAL  VALUE 

LEGAL  VALUE? 

BR  IF  NO 

SAVE  LOU  END  VALUE 

THIS  IS  DEFAULT  IF  HIGH  END  VALUE  OMITTED 


IS  THIS  A  LEGAL  VALUE? 

BR  IF  NO 

GET  SPECIFIED  CHANNEL  RANGE 

BR  IF  ILLEGAL  VALUE 

LEGAL  VALUE? 

BR  IF  NO 

SAVE  HIGH  END  VALUE 

GET  NUMBER  OF  BVTES  TO  ALLOCATE 

SAVE  ALL  REGISTERS 

ALLOCATE  CHANNEL  LIST  FROM  EXEC  POOL 

BR  IF  UNSUCCESSFUL  ALLOCATION 

INITIALIZE  LINK  WORD 
;  STORE  LOW  END  OF  CHANNEL  RANGE 
;  STORE  HIGH  END  OF  CHANNEL  RANGE 

WRITE  UPDATED  CHANNEL  BLOCK 

SAVE  CURRENT  MAPPING 

CONVERT  TO  MAPPED  ADDRESS 

SAVE  IT 

READ  IN  DTE  BLOCK 

GET  FIRST  CHANNELS  LIST 

BR  IF  NOT  EMPTY 

GET  ADDRESS  OF  CHANNEL  BLOCK 

POINT  TO  CHANNELS  LISTHEAD 

REWRITE  CHANNELS  LISTHEAD 

CONTINUE 

READ  IN  CHANNELS  BLOCK 

END  OF  LIST? 

BR  IF  NOT  END  OF  LIST 

ADD  BLOCK  TO  CHANNELS  LIST 

REWRITE  CHANNELS  BLOCK 

GET  HIGH  END  OF  CHANNELS 
COMPUTE  HIGH  MINUS  LOW 
IF  GE,  RESULT  CORRECT 
ELSE.  GET  ACTUAL  DIFFERENCE 
GET  NUMBER  OF  CHANNELS 
READ  IN  DTE  DESCRIPTOR 
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D2:<" 


VIMI 


3 

S 
6 

7 

8 
9 
10 
11 
12 
13 
1A 
15 
16 
17 
18 
19 
20 
21 
22 
23 
21^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE   VIM]  -  VNP  READ 
.IDENT  /V05.00/ 
.ENABLE  LC 


IN  CEX  IMAGE 


COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  8Y 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  ':OMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  READ  CEX  IMAGES  FROM  DISK 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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VINl 
CONS^ 


1 
2 
3 

L, 

5 

6 

7 

8 
9 

10 
11 
12 
15 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


.TITLE  VIMO  -  VNP  WRITE  IMAGE  OUT  ROUTINES 
.IDENT  /V05.00/ 

COPyRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  WRITE  CEX  IMAGES  BACK  TO  DISK 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  U-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-IIM  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Ptus  V3.0 
DECnet-Micro/RSX  VI. 0 
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VINI  -  VNP  INITIALIZATION 
CONSTANT  DEFINITIONS 


120 
121 
122 
123 
12A 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 

137  000202 

138  000202 
139 

KO  000202     016746 

141  000206  016746 

142  000212  012767 

143  000220  012767 

144  000226  042767 

145  000234 

146  000240  012667 

147  000244  012667 

148  000250  103001 

149  000252 
150 

151  000254  052767 

152  000262  10576/ 

153  000266  00100.^ 

154  000270  04276? 
155 

156  000276  0167CJ 

157  000302  012701 

158  00030b  016002 
159 

160  000312  042767 

161  000320  012700 

162  000324 

163  000540  103521 

164  000342 

165  000352  103514 
166 

167  000354  012700 

168  000360 

169  000572  103512 
170 

171 
172 

173  000574     152767 

174  000402     001514 

175  000404     016767 

176  000412 
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♦♦-VFILE 

OPEN  SYSYEM  IMAGE  FILE 

INPUTS: 

NONE 

OUTPUTS: 

OPEN  SYSTEM  IMAGE  FILE 

/OR/ 

ERROR  MESSAGE  AND  EXIT  WITH  C-8IT  SET 


VII 
COI 


OOOOOOG        VFILE: 
OOOOOOG 

001514'  OOOOOOG 
OOOOOOG  OOOOOOG 
000001  OOOOOOG 

OOOOOOG 
OOOOOOG 


000001  OOOOOOG  1$: 
rOOOOOG 


00000  OOOOOOG 

OOOOOOG 
OOOOOOG 
000002 

OOOOOOG  OOOOOOG 
OOOOOOG 


OOOOOOG 


000001     OOOOOOG 
OOOOOOG  OOOOOOG 


5$: 


.MCALL 
.MCALL 

FDOFFS 
GCLDFS 

MOV 

MOV 

MOV 

MOV 

BIG 

CALL 

MOV 

MOV 

BCC 

RETURN 

BIS 
TST8 
BNE 
81C 

MOV 
MOV 
MOV 

ETC 

MOV 

CSISI 

BCS 

CSI$2 

BCS 

MOV 

OPENSM 

BCS 


0PEN$M,FDAT$R,FDRC$R,CSI$1,CS1$2, CLOSES, GETRC, FDOFFS 
GCLDFS,  PUTRCCSISSW.GETRV 


DEFSL 


$CLPMT,-(SP) 

$CL8UF,-(SP) 

#SYSPMT,SCLPMT 

#F1LE,$CLBUF 

#CL.CMT,SCLFLG 

SVGCL 

(SP)+,SCLBUF 

(SP)+,SCLPMT 

1$ 


*CL.CMT,SCLFLG 

SCLEVL 

5$ 

#CL.)(IT,SCLFLG 

SCLIOS.RO 

#FILE,R1 

2(R0),R2 

#VF.SS,SVFLAG 

#$CLCSI,RO 

,R1,R2 

lioi 

.OUTPUT 
llOS 

#SySFDB,RO 

122S 


FOOL  AROUND  WITH  LABEL  BLOCK 

BITS  #1,SYSFDB+F.RTYP 

BEQ  130S 

MOV  SRSIZE.SRS!/ 

FDATSR  ,#R.FIX 


DEFINE  FDB  OFFSETS 
DEFINE  GCL  OFFSETS 

SAVE  CURRENT  PROMPT  STRING  ADDRESS 
SAVE  CURRENT  BUFFER  IN  USE  BY  GCL 
PROMPT  FOR  FILENAME 
READ  INTO  THIS  BUFFER 
*;  ALLOW  FOR  ";"  IN  FILENAME  SPEC. 
GET  COMMAND  LINE 
RESTORE  BUFFER  ADDRESS 
RESTORE  PROMPT  STRING  ADDRESS 
CONTINUE  GRACEFULLY 
EXIT  GRACEFULLY 

*;  ALLOW  COMMENTS  AGAIN 
ARE  WE  AT  LEVEL  0  ? 
NO 
DON'T  EXIT  AFTER  MCR  COMMAND 

ADDRESS  OF  I/O  STATUS  BLOCK 
ADDRESS  OF  BUFFER 
LENGTH  OF  FILENAME 

ASSUME  NOT  AN  RSXllS  SYSTEM 
ADDRESS  OF  CSI  CONTROL  BLOCK 
CHECK  SYNTAX  OF  FILENAME 
BAD  FILENAME  SYNTAX 
GET  OUTPUT  FILENAME 
BAD  FILENAME  SYNTAX 

POINT  AT  SYSTEM  IMAGE  FILE  FDB 
OPEN  IT 
OPEN  FAILURE 


;  SHOULD  BE  FIXED  LENGTH  RECORDS 
NO  ?? 

SAVE  ORIGINAL  SIZE 
USE  FIXED  LENGTH  RECORDS 


;CMP01] 
;[MP01] 
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VIM    -   VNP    INITIALIZATION 
CONSTANT   DeriNlTIONS 


MACRO  V05.03b   Saturday   29-Jun-85 


D2:A 


787 

.WORD 

0 

788 

SfCFR: 

.WORD 

PDVTA, 0 

789 

.RAD50 

"SSECFR' 

790 

.WORD 

0 

791 

PDVTA: 

.WORD 

PUMRP,  0 

792 

.RAD50 

"SPDVTA' 

793 

.WORD 

0 

794 

PUMRP : 

.WORD 

CTLST, 0 

795 

.RAD50 

"$PUMR" 

796 

.WORD 

0 

797 

CTLST: 

.WORD 

ICAVL,0 

798 

.RAD50 

'■SCTLST' 

799 

.WORD 

0 

800 

ICAVL: 

.WORD 

CRAVL, 0 

801 

.RAD50 

"SICAVL' 

802 

.WORD 

0 

80? 

.ENDC 

804 

805  003310 

005522' 

000000 

CRAVL: 

.WORD 

.-.^OSs"  . 

806  0033U 

124512 

004674 

.RAD50 

"SCRAVL 

807  003320 

000000 

.WORD 

0 

808  003322 

005554" 

000000 

.COO: 

.WORD 

DEVHD.O 

809  003326 

127607 

155600 

.RAD50 

".COO 

810  003332 

000000 

.WORD 

0 

811  003334 

005546' 

000000 

DEVHD: 

.WORD 

EXSIZ, 0 

812  003340 

124545 

105504 

.RAD50 

"SDEVHD' 

813  003344 

000000 

.WORD 

0 

814  003346 

005560' 

000000 

EXSIZ: 

.WORD 

FMASK, 0 

815  003352 

124640 

074102 

.RAD50 

"$EXSIZ' 

816  005356 

000000 

.WORD 

0 

817  003360 

003372' 

000000 

FMASK: 

.WORD 

PARHD,  0 

818  003364 

124675 

004503 

.RAD50 

"SFMASK' 

819  003370 

000000 

.WORD 

0 

820  003372 

003404' 

000000 

PARHD: 

.WORD 

SYSIZ, 0 

821  003376 

125501 

070704 

.RAD50 

"SPARHD' 

822  003402 

000000 

.WORD 

0 

823  003404 

005416' 

000000 

SYSIZ: 

.WORD 

SYSNM, 0 

824  003410 

125721 

074102 

.RAD50 

"SSYSIZ' 

825  003414 

000000 

.WORD 

0 

826  003416 

005450' 

000000 

SYSNM: 

.WORD 

CLINS, 0 

827  003422 

125721 

074375 

.RAD50 

"SSYSNM' 

828  003426 

000000 

.WORD 

0 

829  003450 

003442' 

000000 

CLINS: 

.WORD 

FRKHD, 0 

850  003434 

124504 

055205 

.RAD50 

"SCLINS' 

831  005440 

000000 

.WORD 

0 

852  005442 

003454' 

000000 

FRKHD: 

.WORD 

HEADR, 0 

855  003446 

124702 

045004 

.RAD50 

"SFRKHD' 

834  003452 

000000 

.WORD 

0 

855  005454 

005466' 

000000 

HEADR: 

.WORD 

STKDP, 0 

856  005460 

125005 

005562 

.RAD50 

"$HF4DR 

857  003464 

000000 

.WORD 

0 

858  005466 

005500' 

000000 

STKDP: 

.WORD 

PLGTH, 0 

859  005472 

125714 

042560 

.RAD50 

"SSTKDP 

840  005476 

000000 

.WORD 

0 

841  005500 

005512 

000000 

PLGTH: 

.WORD 

VCTR,0 

842  005504 

064154 

027550 

.RAD50 

"P.LGTH 

845  005510 

000000 

.WORD 

0 

3  Page  12-2 

;  SECONDARY  POOL  BLOCKS  FREE 

;  PDV  TABLE 

;  UMR  BIAS  VALUE 

;  CTB  LIST  HEAD 

;  KB  LIST 

;  DYNAMIC  STORAGE  REGION  LISTHEAD 

;  CONSOLE  OUTPUT  UCB  ADDRESS 

;  DEVICE  TABLE  LISTHEAD 

;  HIGHEST  ADDRESS  IN  SYSTEM 

;  SYSTEM  FEATURE  MASK 

;  PARTITION  CONTROL  BLOCK  LISTHEAD 

;  SYSTEM  SIZE  IN  52-WORD  BLOCKS 

;  SYSTEM  NAME 


;CMPOn 
;[MPOn 
; [MP01 ] 
;[MP01J 
;[MP01] 
;[MPOi: 
;[MP01] 
;CMP01] 
;[MP01] 
;[MP01] 
;[MP01] 
;[MP01] 
.-CMPOI] 
;CMP01] 
;CMP01] 
;[MP01] 


;  LENGTH  OF  PCS 


r 
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VINI 

CREATED  BY  MA. 

RO  ON  29- 

JUN-35  AT  02 

43     PAGE 

5 

MACRO  CROSS 

RF^ERENCE 

CREF 

04.00 

MACRO  NAME 

REFERENCES 

CALL 

7-88 

7-90 

7-92 

7-102 

7-111 

7-116 

8-145 

8-179 

8-219 

8-249 

8-251 

8-255 

8-254 

9-356 

9-362 

9-364 

9-397 

9-410 

9-415 

9-429 

9-A31 

9-4  j6 

9-439 

9-449 

9-450 

9-453 

10-516 

10-519 

11-586 

11-612 

11 -6U 

11-621 

11-623 

11-628 

11-671 

13-951 

13-986 

13-988 

13-991 

13-993 

K-1020 

14-1021 

14-1025 

CALLR 

#7-80 

9-366 

CLOSES 
CM0V5B 

#8-134 
#8-168 

#8-168 

8-168 

8-168 

#8-168 

8-168 

#8-176 

8-176 

8-176 

#8-177 

CMOVtW 

8-177 

#8-168 

8-176 

8-168 
#8-177 

8-168 
8-177 

8-168 
8-177 

#8-168 

8-168 

8-168 

#8-176 

8-176 

8-176 

CSI$ 

#8-162 

#8-164 

CSI$SU 

#8-135 

CSI$1 

#8-134 

8-162 

CSI$2 

#8-134 

8-164 

DIRS 
ERBLKS 

#8-138 
#7-79 

7-118 

8-261 

8-263 

8-266 

8-269 

8-272 

9-460 

9-463 

10-529 

10-531 

11-670 

13-1000 

13-1002 

13-1004 

13-1007 

FRMsnt 

#7-79 

7-117 

8-260 

8-262 

8-264 

8-265 

8-267 

8-268 

8-270 

8-271 

L  ■  \  '  I  J  ^^  V 

9-458 

9-459 

9-461 

9-462 

10-528 

10-530 

11-669 

13-999 

13-1001 

13-1003 

ERRPTS 

13-1005 
#7-79 

13-1006 
7-116 

8-249 

8-251 

8-253 

8-254 

9-449 

9-450 

9-453 

10-516 

10-519 

11-671 

13-986 

13-988 

13-991 

13-993 

ERRS 

#8-168 

8-168 

FDATSR 

#8-134 

8-176 

■^DOFFS 

#8-134 

8-137 

FDOPSR 

#8-168 

8-168 

FDRCSR 

#8-134 

#8-168 

8-168 

8-177 

GCLDFS 

#8-135 

8-138 

GCLS 

#8-138 

GETRC 
GETRV 

#8-134 
#7-79 
13-951 

8-179 
#8-135 

9-397 

9-439 

11-586 

11-612 

11-614 

11-621 

11-623 

11-628 

HWDDFS 

#7-79 

7-83 

LBLDFS 
LDFDBS 

#7-79 
#8-168 

7-84 
8-168 

#8-168 

8-168 

#8-176 

8-176 

#8-177 

8-177 

LDROS 

#8-162 

8-162 

#8-164 

8-164 

OPENS 

#8-168 

8-168 

OPENSM 

#8-134 

8-168 

PCBDFS 

#7-79 

7-85 

PUTRC 
RAND 

#8-135 
#8-179 

8-219 
8-179 

#8-219 

8-219 

#9-397 

9-397 

#9-439 

9-439 

#11-586 

11-586 

#11-612 

11-61? 

#11-614 

11-614 

#11-621 

n-621 

#11-623 

11-623 

#11-628 

11-628 

#13-951 

13-951 

RETURN 

7-112 

8-149 

8-242 

9-443 

10-507 

11-663 

13-981 

14-1026 

SWTCHI 

#7-79 

11-625 

11-661 

SWTCHO 

#7-79 

8-220 
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k   1* 

02;A4 


111 

112  000030 

113 

1U 

115 

116  000060 

117  000062 
118 

119 

120 

121 

122 

123  000064 

12A 

125 

126 

127 

128  000072 

129 

130  000 1 00 

131  000102 
132 

133 
134 
135 
136 
137 
138 
139 

UO  000104 
141 
142 

143  000106 
000111 
144 
145 

146  000114 

147  000137 

148  000172 

149  000226 

150  000257 

151  000321 

152  000357 

153  000421 

154  000455 

155  000507 

156  000550 

157  000607 

158  000637 

159  000667 

160  000737 

161  001000 

162  C01037 

163  001105 

164  001151 

165  001213 

166  001253 


000044' 
000046' 


000062' 


6M5G:   QlOWt   lO.WLB, 

GBUF--GMSGtQ.IOPL 

GLEN=GBUf*2 


1,1, 


,0> 


SCODV:  .8LKW 
SCOUN:  .8LKU 
EVEBEG=SCOUN 


Alias  scope  deuice 
Alias  scope  unit 
Event  beg'nning 


Asci'i  work  area 
ASCII:   .8LKB   6 

Temporary  storage  for  node  id 
NODID:   .SLK8   6 


000000 
000000 


AREA(^- 
ADDR 


.WORD 
.WORD 


Node  id 

Area  number 
Node  address 


076 
000002 

015 

040 

000006 


076 


012 
040 


Error  messages 

MARKER:  .ASCII  /»/ 
LMARICER=. -MARKER 


040  CRLF: 
040 

LCRLF= 


.ASCII  <15><12>" 

.-CRLF 

ETEXTS  SYNERR,  <Syntax  error> 

ETEXTS  ILLNAD,  <Il  legal  node  address> 

ETEXTS  PNAMTL,  <Process  name  too  long> 

ETEXTS  LNAMTL,  <Line  name  too  long> 

ETEXTS  MXLN64,  <Haximum  lines  limited  to  64> 

ETFVTS  PRNMTL,  <Partition  name  too  long> 

ETEa'S  CNUMTL,  <Controller  number  too  rarge> 

ETEXTS  UNUMTL,  <Unit  number  too  large> 

ETEXTS  ILLCSR,  <Illegal  CSR  address> 

ETEXTS  ILLPRI,  <Illegal  interrupt  priority) 

ETEXTS  ILLVEC,  <Illegal  interrupt  y/ector> 

ETEXTS  ILLCOS,  <Illegal  line  cost> 

ETEXTS  PASWTL,  <Password  too  long> 

ETEXTS  MXCN64,  <Maximum  controllers  limited  to  64> 

ETEXTS  TRI8TL,  <T'-ibutary  number  too  large> 

ETEXTS  ILLUCS,  <Illegal  unit  CSR  address> 

ETEXTS  ILLMAC,  <Illegal  multipoint  active  ratio> 

ETEXTS  ILLMDE,  <Ulegal  multipoint  dead  ratio> 

ETEXTS  ONAMTL,  <0wner  process  name  too  long> 

ETEXTS  ILLTRI,  <Ii  legal  tributary  address) 

ETEXTS  ILL08J,  <Illegat  object  type> 


N  U 


L. 


VNCP 


VNP  GET  COMMANDS  NCP  STV  MACRO  V05.05b  Saturday  29-Jun-85 
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76"'  0030i6 

768  005032 

769 

770  003040 

771 

772  003C42 

773 

77A 

775 

776 

777  003062 

778  003066 
779 

780  003070 

781  003076 

782  003116 
783 

784  003124 

785  003130 

786  003134 

787  003140 

788  003144 

789  003146 

790  003154 
791 

792  003156 

793  003164 
794 

795  003172 

796 

797  003174 

798 

799 

800 

801 

802  003214 

803  003214 

804  003220 

805  003224 

806  003226 

807  003232 

808  003236 

809  003240 
810 

811 
812 
813 

814  003260 

815  003260 

816  003264 

817  003266 

818  003272 

819  003274 

820  003302 


010067  000100' 

016767  OOOOOOG  000102' 


MOV 
MOV 


RO.AREAN 
.PNUMB,ADORS 


101$: 


RETURN 

ERR0R$  ILLARE 


005767  000100' 
001C24 


016700  000014G 

042700  OOOOOOC 

010067  000100' 

005767  000102' 

001413 

022767  001777  000102' 

002407 

016767  000102'  000072' 

056767  000100'  000072' 


Node  address 

iNADD::  TST 
BNE 


SUTCHI 

GETRV 

SWTCHI 

MOV 
BIC 
MOV 
TST 
BED 
CMP 
BLT 

MOV 
BIS 


10$: 


ARE  AN 
10$ 

#$HMeUF 
$DECPT,#D$END 


$HMBUFtD$LNUM,RO 

#*CARAMSK,RO 

RO.AREAN 

ADDRS 

101$ 

i»MXADDR,  ADDRS 

101$ 

ADDRS, NODID 
AREAN.NODID 


82' 
8i 


CC33'0 
003316 


823  003322 


012702 

103405 
010067 
010167 


005767 
001021 
105767 
0O1016 
016767 
012767 
012767 
005067 
005067 


RETURN 
101$:   ERROR$   ILLNAD 


;  Object  task   name 

iONAM:: 

000006 

MOV 

CALL 

BCS 

#6,R2 

RAD 

101$ 

000004G 

MOV 

RO.RQBHO.ONM 

000006G 

MOV 
RETURN 

Rl,RQB*LO.0NMt2  ; 

101$: 

ERROR$ 

OTSKTL 

;  Object  type 

d 

iOTYP:: 

OOOOOOG 

TST 
BNE 

.PNUMH 
101$ 

000001G 

TST8 
BNE 

.PNUMBM 
101$ 

OOOOOOG 

000002G 

MOV 

.PNUMB.RQB+LR.TYP 

000001 

OOOOlOG 

MOV 

#1,RQB*L0.C0P 

000002 

000012G 

MOV 

*2,RQBH0.0FL   ; 

000004G 

CLR 

RQ8+L0.0NM 

000004G 

CLft 

R08*L0.0NM 

store  area 

store  node  address 


Illegal  area  number 


Use  default  area  number 
If  no  -  branch 

Set  up  input  buffer 
Re^d  decnet  home  block 
Reset  default  buffer 

;  Get  executor  address 
Get  executor  area 
Store  default  area  number 
Check  lower  address  limit 
If  illegal  -  branch 
Check  high  address  limit 
If  illegal  -  branch 

Store  node  address 
Store  area  number 


Illegal  node  address 


Set  max  field  length 
Convert  task  name  to  radSO 
If  cs.  more  than  6  characters 
Else,  store  object  task  name 


Must  be  a  wnrd  value 

If  ne,  illegal  object  type 

Must  be  a  byte  value 

If  ne.  illegal  value 

;  Save  object  type 

Assume  1  cop)( 

Assume  verification  level  2,  no  flags 

Assume  object  type  ?ero 
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IM 
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1378 
1379 
1380 
1381 
1382 
1383 
138A 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
139A 
1395 
1396 
1397 
1398 
1399 

uoo 

1401 
K02 
K05 
UO'l 
U05 
U06 
1407 
U08 
U09 
H10 


0065U 
006320 
006324 
006326 
006330 
006532 
006334 
006340 
006344 
006346 
006354 
006356 
006360 
006362 
006364 


016700 
016746 
000261 
005316 
002412 
012002 
116201 
066701 
011101 
026167 
001363 
006100 
005726 
006000 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 


.SBTIL   GETLIN  -  GET  SLT  AND  PDV  ADDRESS  FOR  LINE 


Get  I  in  -  get  SLT  and  PDV  address  for  line 

Inputs: 

RQ8*LR.LIN  =  '  ine  name 

Outputs: 

Carry  clear: 

Rl  =  PDV  address 
R2  =  SLT  address 
RO  destroyed 

Carry  set: 
R0,R1,R2  destroyed  -  line  not  in  system 


GETLIN: 
10$: 


OOOOOOG  000002G 


20$: 


MOV 

MOV 

SEC 

DEC 

BLT 

MOV 

M0V8 

ADD 

MOV 

CMP 

BNE 

ROL 

TST 

ROR 

RETURN 


$SLTMA,RO 
$SLTNM,-(SP) 

(SP) 

20$ 

(R0;+,R2 

L.DDM(R2),R1 

$PDVTA,R1 

(R1),R1 

Z.NAM(R1 ),LR.LIN+RQB 

10$ 

RO 

(SP)t 

RO 


Get  first  SLT  address 

Get  number  of  SLT's 

Assume  error 

Decrement  number  of  SLT's 

Br  if  no  more 

Get  SLT  address 

Get  ddm  PDV  index 

Point  to  table  of  PDV's 

Get  PDV  address 

Is  this  the  line  we  want? 

Br  i  f  no 

Saue  carry 

Clean  up  stack 

Restore  carry 


M  16 

_  o  c  m  .  /  / 
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CND-;-  -  MND  HASH  TABLE  EN^RV 


u'FPRC 
LOCAL 


^2t 
'2^ 
728 
?2^ 
730 
73^ 
732 
733 
73^ 
755 
736 
737 
738 
73<; 
-40 
'41 
742 
743 
744 
745 
74fc 
74^ 
748 

750 
751 
752 
753 
754 
755 
'56 
'57 
758 
'59 
760 
761 
'62 
'63 
'64 
765 
'66 

^68 
769 
77C 


002120 
002124 
002^30 
002134 
CCc'36 
002'40 
002144 
002150 
002152 
002154 
002156 
002 160 
002162 
002166 
002204 
002210 
002212 
002214 
002220 
002222 
002224 
002226 
002230 
002256 
002244 
002250 
-02254 


016701 
005401 
0401 OC 
010001 
006500 
006300 
06670C 

005767 
001407 
005202 
026702 
103415 
060201 
OIOICJ 
000746 
016767 
116767 


.SBTTL   FNDHSH  -  FIND  HASH  TABLE  ENTRY 


FNDHSH  -  FIND  HASH  TABLE  ENTRY 

INPUTS: 

PVCLCN  -  LOGICAL  CHANNEL  NUMBER 

PVCPRT  -  PORT  NUMBER 

HSHADD  -  APR6  ADDRESS  OF  HASH  TABLE  ENTRY 

^  '  CARRY  CLEAR  -  TABLE  ENTRY  AVAILABLE  AND  SET  UP  WITH  LCN/PORT 
CARRY  SET  -  NO  ENTRIES  AVAILABLE 
R0,R1,R2  DESTROYED 
MAPPING  PRESERVED 


C16746  OOOOOOG 

005726 
005002 
016700  000004' 


FNDHSH: 


OOOOOOG 


OOOOOOG 
0000020 


OOOOOOG 


10$: 


000004 
000024 


OOOOOOG  20$: 
000002G 

50$: 


SAVMAP 

MOV 

CALL 

TST 

CLR 

MOV 

MOV 

NEG 

BK 

MOV 

ASL 

ASL 

ADD 

GETAD 

TST 

BEQ 


9 


U 

MOV 

BR 

MOV 

MOVB 

PUTAD 

RESMAP 

RETURN 


DTEDES,-(SP) 

SCEACC 

(SP)t 

R2 

PVCLCN, RO 

HSHSZ.RI 

R1 

RI.RO 

RO.RI 

RO 

RO 

HSHADD.RO 

R0,#4 

$BFRt2 

20$ 

R2 

HSHSZ,R2 

30$ 

R2,R1 

RI.RO 

lOi 

PVCLCN, $BFR 

PVCPRT, $BFRt2 


SAVE  MAPPING 

GET  UNMAPPED  DTE  DESCRIPTOR 

MAP  TO  LOCAL  DTE  (AND  ALSO  HASH  TABLE) 

CLEAN  STACK 

INITIAL  OFFSET  FOR  HASH  TABLE  INSERTION 

GET  LOGICAL  CHANNEL  NUMBER 

GET  NUMBER  OF  E'  .RIES  IN  HASH  TABLE 

GET  MASK  FOR  HIGH  BITS 

COMPUTE  ENTRY  NUMBER  (MODULO  TABLE  SIZE) 

SAVE  ENTRY  NUMBER 

MULTIPLY  BY  4  TO  DETERMINE  OFFSET 

...  INTO  HASH  TABLE 

DETERMINE  ENTRY  ADDRESS  IN  HASH  TABLE 

READ  IN  HASH  TABLE  ENTRY 

IS  THIS  ENTRY  AVAILABLE? 

BR  IF  YES  (CLEARS  CARRY) 

ELSE,  COLLISION  -  UPDATE  OFFSET 

ANY  ENTRIES  AVAILABLE? 

BR  IF  NO  (SETS  CARRY) 

CALCULATE  ENTRY  NUMBER  *   OFFSET 

SAVE  ENTRY  NUMBER  +  OFFSET 

FIND  NEXT  AVAILABLE  ENT'iY 

STORE  LOGICAL  CHANNEL  NUMBER  IN  HASH  TABL3 

STORE  PORT  NUMBER  IN  LOU  BYTE  OF  HASH  TABLE 

WRITE  UPDATED  HASH  TABLE  ENTRY 

RESTORE  MAPPING 
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LOCAL  SYMBOL  DEFINITIONS 


78 
■79 


82 
83 

84 


.SBTTL  LOCAL  SYMBOL  DFFINITIONS 


000005 
000040 


LOCAL  SYMBOL  DEFINITIONS 

RDTEMX  =  6 
SPACE  =  AO 


;  MAXIMUM  LENGTH  OF  REMOTE  DTE  NAME 
;  ASCII  SPACE  CHARACTER 


VFPRNW    -    INITIAL 
Table   of   content 


"'Ni  ;G  file   SC  macro  V05.03b   Saturday  29-Jun-85 


H  3 

02:ZC 


5-  50  Local  Symbols 

6-  66  Macro  references  and  aefinitions 

7-  85  Error  messages 

8-  98  Local  Data 

9-  107  $aRNW/$QRNA  -  Look  for  RNW$DF/RNA$DF  macro 

10-  142  Parse  table  for  RNWSDF 

11-  167  Parse  table  for  RNASDF 
U-  255  Syntax  action  routines 

19-  379  End  of  macros  -  check  and  allocate  network  block 

20-  AOO  CKNET   Check  network  name  is  unique 

21-  435  ALNET   Allocate  remote  network  block 

22-  495  Parser  Subexpression  Action  Routines 


VFPR^ 
Syntc 


N  4 

VFPRNW  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:40  Page  16 
Syntax  action  routines 


308 
309 
310 
311 
312 
313 
3U 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 


**•  RNAUSR  -  Check  username 

STRBUF  -  Contains  parsed  string  (minus  delimiters  etc) 
STRLEN  -  Number  of  characters  in  string 

OUTPUTS 

Username  checked  and  stored 

Error  condition  if  invalid  username 


000206 

000206  116701  000164' 

000212  020127  000020 

000216  101011 

000220  110167  OOOOOOG 

000224  012700  000165' 

000230  012702  0000006 

000234 

000240 

000242 


RNAUSR: 


M0V8 

STRLEN, R1 

CMP 

R1,#MXACUS 

BHI 

101$ 

M0V8 

R1,RNUL 

MO" 

#STR8UF,R0 

MOV 

#RNUSER,R2 

CALL 

MOVE 

RETURN 

1011 


EMSGSR  RC 


Get  length  of  string 

Check  it  username  too  long 

Branch  if  error 

Move  username  length  to  data  area 

Move  username  to  data  area 


Illegal  access  data 


VFPRN 

SYMBC 

SYMBO 

.PSTP 
.TPAR 


L 


VFPRMW  CREATED  BY     MACRO     ON  29-JUN-85   Al    02:40 

SYMBOL    CROSS  REFERENCE 

SYMBOL      VALUE  REFERENCES 


M     5 

PAGE   3 

CREF       OA.OO 


.PSTPT 
.TPARS 


GX 
GX 


K-274 
9-131 


15-301 


VFP 

SYM 

SYC 

SSL 
$$$ 
$$$ 
.PN 
.PN 
.TF 


VFPX2<5 

CREATED  BY 

MACRO     ON  29 

-JL 

N-8 

SYMBOL 

CROSS   REFERENCE 

SYMBOL 

VALUE 

REFERENCES 

SSUBXP 
$$tFLG 
$$$<EY 
.PNUMB 
.PNUMH 
.TPARS 

=   000010 
=   177777 
=   177777 

r       ****** 

r     ****** 
=     ****** 

GX 
GX 
GX 

#8- 

#8- 

#8- 

9- 

9- 

7- 

■124 
■124 
■12A 
-158 
■156 
■109 

9- 
9- 

160 
168 

PAGE   2 
CREF 


M     6 

04.00 


VFPX 
CHNt 


9-170 


L 


M  7 

VFPX5P  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:41 
CHN$DF  ACTION  ROUTINES 


317  0OO5A6 

060167 

000036G 

ADD 

R1,L$MCHN+$BFR 

318  000552 

PUTAD 

319  000556 

RESMAP 

320  000562 

35$:    RETURN 

321 

322 

325 

32A 

325  00056A 

;  ERRORS 

101$:   EMSG$R 

09 

326  000572 

102$:   EMSGSR 

08 

327 

.DSABL 

LS8 

328 

329 

000001 

.END 

Page  12-1 


POINT  TO  MAX  CHANNELS  CELL 
REWRITE  DTE  DESCRIPTOR 
RESTORE  PREVIOUS  MAPPING 


ILLEGAL  CHANNEL  RANGE  VALUE 
RESOURCE  ALLOCATION  FAILURE 


VH 

Ta 


r 


N  8 

VHFlP  -  HELP  ROUTINE  FOR  VNP    MACRO  V05.03b  Saturda/  29-Jun-85  02:«2 
Table  ot  contents 

6-   71    SVHELP  -  PROCESS  HEIP  COMMAND 


VlMl 


L 


n  9 

VIM!  -  VNP  READ  IN  CEX  IMAGE    MACRO  V05.03b  Saturday  29-Jun-85  02:42  Page  5 


VIM 


56 

57 

58 

59 

60 

61 

62 

65 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84  000000 

85 

86 

87 

88 

89 

90 

91 

9? 

93  000000 

94 

95 

96 

97 

98 

99  000000 

100  000000 

101  000004 

102  000012 

103  000020 
104 

105  000032 

106  000040 

107  000044 

108  000050 

109  000054 

110  000056 
111 

112 


•*$VIMI  -  READ  IMAGES  INTO  VRES  BUFFER  FROM  SVSTEM  IMAGE 


INPUTS: 

COMEXEC  MUST  BE  LOADED 
R2=TABLE  ADDRESSES  RELOCATION  BIAS 

.PDVTA  -  ADDRESS  OF  FIRST  WORD  OF  CETAB  IN  SYSTEM  IMAGE 
.SLTM8  -  ADDRESS  OF  SYSTEM  LINE  MAPPING  TABLE  IN  SYSTEM  IMAGE 
SPDVTA  -  LABEL  ON  FIRST  WORD  OF  CETAB  TEMPLATE  IN  VRES 
SNTLPT  -  CONTAINS  BIAS  OF  FIRST  BLOCK  OF  NETWORK  POOL 
-  IF  UNMAPPED,  IT  CONTAINS  THE  ADDRESS 

"  ^  ALWAYS  SUCCESSFUL  (  ERROR  EXIT  TAKEN  THROUGH  SPANIC  ) 

TEMPLATE  STARTING  AT  SPDVTA  FILLED  IN  SO  THAT  ALL  EFERENCES 
TO  CETAB  CAN  BE  MADE  EITHER  DIRECTLY,  OR  INDIRECTL   THROUGH 
SPDVTA, $LLCTA,&$SLTMA. 

VNP  VIRTUAL  I/O  ROUTINES  WILL  BE  USING  THE  DEFAULT  BUFFER  $BFR 

ALL  REGISTERS  ARE  PRESERVED 


.MCALL 
HWDDFS 


.IF  DF 
.MCALL 
CTBDFS 
.ENDC 

.MCALL 
PH8DF$ 


GETRV,PUTRC,SWTCHI,GETAD,ERMSG$,ERBLK$,ERRPT$,HWDDF$ 


R$$MPL 
CTBDFS 


PHBDFl 


.MCALL  VNPDBG 
.ENABLE  LC 


SVIMI: 


012767  OOOOOOC  OOOOOOG 


012704 
010467 
022704 
002003 
012767 


OOOOOOC 
OOOOOOG 
001000 

001000  OOOOOOG 


VNPDBG 

CALL 

SWTCHI 

MOV 

GETRV 

SWTCH] 

MOV 

MOV 

CMP 

BGE 

MOV 


VIMI 

SSAVAL 

ffSPDVTA 

#<$CEXND-SPDVTA> 

.PDVTA 

#$CETAB 

#<SCETND-$CETAB> 

R4,SRSIZE 

*5l2.,R4 

5S 

#512.,$RSIZE 


DEFINE  THE  HARDWARE  REGISTERS 
AND  FEATURES  MASK  BITS 


Define  the  PSI  homebLock  flags 


VNP  DEBUGGING  BREAK  POINT 
SAVE  ALL  REGISTERS 
POINT  AT  CEXCM  TEMPLATE  IN  VRES 
SRSIZE  ;  STORE  SIZE  OF  CEXCM 
READ  IN  CEXCM 

POINT  AT  CETAB  TEMPLATE  IN  VRES 
R4  ;  GET  SIZE  OF  CETSSA  PSECT 
ASSUME  LE  512.  BYTES 
IS  IT  TRUE  ? 
IF  GE,  YES 
LIMIT  TRANSFER  TO  512.  BYTES 


RG002 
RG002 
RG002 
RG002 

CMP01] 
[MPOn 
[MP01 ] 
[MP01] 


;[TD001] 
;CTD001] 

;CTD001] 
;I:TD001] 


;  REDUCE  SRSIZE  IF  NECESSARY 


RG002 
RG002 


r 
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VIM 
CONS 


55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71  OOOOOO 

72 

73  OOOOOO 

74  OOOOOO 

75 

76 

77 

78  000004 

016700 

OOOOOOG 

79  000010 

016701 

OOOOOOG 

80  000014 

016702 

OOOOOOG 

81  000020 

001403 

82  000022 

060021 

83  000024 

005302 

84  000026 

85 

86  000030 

003375 

016701 

OOOOOOG 

87  000034 

016702 

OOOOOOG 

88  000040 

001403 

89  000042 

060021 

90  000044 

005302 

91  000046 

003375 

92 

93  000050 

016702 

OOOOOOG 

94  000054 

016701 

OOOOOOG 

95  000060 

001412 

96  000062 

010003 

97  000064 

006203 

98  000066 

005712 

99  000070 

100003 

100  000072 

060312 

101  000074 

052712 

100000 

102  000100 

005722 

103  000102 

005301 

104  000104 

003370 

105 

106 

107 

108  000106 

060067 

OOOOOOG 

109  0001'2 

060067 

OOOOOOG 

110  000116 

11 1 

060067 

OOOOOOG 

♦*$VIMO  -  CETAB  IS  UPDATED  IN  SYS  IMG  FROM  VRES  TEMPLATE 

INPUTS: 

TEMPLATE  STARTING  AT  SPDVTA 

.PDVTA  -  ADDRESS  Of  CETAB  IN  SYSTEM  IMAGE  ,,.,  ^ 

.SLTM8  -  ADDRESS  Of  SYSTEM  LINE  MAPPING  TABLE  IN  SYSTEM  IMAGE 

ALWAYS  SUCCESSfUL,  (  ERRORS  EXIT  THROUGH  SPANIC  ) 

VNP  VIRTUAL  I/O  ROU".  INES  WILL  BE  USING  THE  DEFAULT  BUfFER  $BFR 


.MCALL 
.ENABL 


GETRV,PUTRC,SWTCHO,PUTAD 
LC 


$VIMO:: 


.MCALL  VNP8PT 
VNPBPT  <VJMO> 
CALL    *SAVAL 

RELOCATE  ADDRESSES 


3$: 


MOV 
MOV 
MOV 
BEQ 
ADD 
DEC 
BGT 


$CETDF,RO 

SPDVTA, R1 

$PDVNM,R2 

4$ 

R0,CR1)t 

R2 

3$ 


4$: 

MOV 

$SLTMA,R1       ; 

MOV 

$SLTNM,R2 

BEQ 

6$ 

S$: 

ADD 

R0,(R1)+ 

DEC 

R2 

BGT 

5$ 

6$: 

MOV 

$LLCTA,R2      ; 

MOV 

$SLTNM,R1 

BEQ 

9$ 

MOV 

R0,R3 

ASR 

R3 

^$: 

TST 

(R2) 

BPL 

8$            ; 

ADD 

R3,(fi2) 

BIS 

#160000, (R2) 

H$: 

TST 

(R2)t 

DEC 

R1 

BGT 

7$ 

;•  RELOCATE  TABLE  POINTERS 

«$: 

ADD 

RO,$PDVTA 

ADD 

RO,$SLTMA 

ADD 

RO,$LLCIA 

SAVE  ALL  REGISTERS 


GET  SHIFT  DIFFERENTIAL 
GET  ADDRESS  Of  PDV  TABLE 
AND  NUMBER  OF  PDV  ENTRIES 
IF  EQ,  NONE  ??? 
RELOCATE  PDV  ADDRESSES 
ANY  MORE  ? 
If  GT  YES 

GET  ADDRESS  Of  SLT  TABLE 
AND  NUMBER  OF  SLT  ENTRIES 
IF  EQ,  NONE  ??? 
RELOCATE  SLT  ADDRESSES 
ANY  MORE  ? 
IF  GT,  YES 

GET  ADDRESS  OR  REVERSE  MAPPING  TABLE 

AND  NUMBER  OF  ENTRIES 

IF  EQ,  NONE 

COPY  SHIFT  DIFFERENTIAL 

ADJUST  SHIFT  DIFFERENTIAL 

IS  THIS  A  MULTIPOINT  LINE  ? 

IF  PL,  NO 

ELSE  RELOCATE  ADDRESS 

MAKE  SURE  SIGN  BIT  IS  SET  I 

SKIP  ENTRY 

ANY  MORE  ? 

IF  GT,  YES 


RELOCATE  PDV  TABLE  POINTER 
RELOCATE  SLT  TABLE  POINTER 
RELOCATE  LLC  TABLE  POINTER 
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VlNl  -  VNP  INITIALIZATION 
CONSTANT  DEFINITIONS 


177  0OOA20 
178 

179  000434 

180  00045A 

181  000462 

182  000464 

183  000472 

184  000474 
185 

186  000500 

187  000504 
188 

189 

190 

191 

192 

193  000506 

194 

195  000512 

196  000514 

197  000522 

198  000524 
199 

200 

201  000526 

202 

203 

204 

205  000534 

206 

207  000536 

208 

209 

210 

211 

212 

213 

214 

215 

216  000536 

217  000536 

218  000542 

219  000550 

220  000554 
221 

222 
223 

224  000562 

225  000566 

226  000572 

227  000574 

228  000576 

229  000600 
230 

231 
232 
233 
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VI 
CO 


FDRC$R 

,#FD.INS,,#512.  ; 

026727 
001064 
022767 
001471 
016746 

000360G 

177777 

000350G 

000002 
O0035OG 

GETRC 

CMP 

BNE 

CMP 

BEQ 

MOV 

#-<2«512.>,*L$BSL 
$BFR+L$BBLK,*2  ; 
130$ 

#-1.$BFRtL$BXFR  ; 
132i          ; 
$BFR+L$BXFR,-(SP) 

021627 
101 01 4 

000060 

CMP 
BHI 

.IF  DF 

MOV 

.ENDC 

(SP),#60 
15$ 

R$$MPL 
(SP),$XFRSV 

005067 

OOOOOOG 

CLR 

$LOWSZ 

005216 
062767 
005316 
001373 

001000 

OOOOOOG 

12$: 

INC 
ADD 
DEC 
BNE 

(SP) 

#1000,$LOUSZ 

(SP) 

12$ 

062767 
000400 

000200 

OOOOOOG 

.IF  NDF 

ADD 

.IFF 

ADD 

.ENDC 

BR 

R$$MPL 
*200,$LOWSZ 

*24,$LDWSZ 

16$ 

15$: 

.IF  DF 
MOV 

ER.'<PT$ 
SEC 

RETURN 
.ENDC 

R$$MPL 

(3P)+,$XFRjV 

ERR0,$EROUT 

012667 
012767 

OOOOOOG 
177777 

000350G 

16$: 

MOV 
MOV 
PUTRC 
SWTCHO 

.IF  NDF 

(SP)t,$XFRAD 
#-1,$BFRtL$BXFR 

R$$MPL 

012700 
122710 
001402 
105720 
001373 
105010 

OOOOOOG 
000057 

20$: 
30$: 

MOV 

CMP8 

BEQ 

TSTB 

BNE 

CLR8 

.IFF 

SWTCHI 

#FILE,RO 

#'/,(R0) 

30$ 

(R0)  + 

20$ 

(RO) 

#$VCIVB 

DON'T  TRUNCATE  FILE  ON  PUT$ 

;+2    ;  READ  LABEL  BLOCK 
IS  THIS  REALLY  A  SYSTEM  IMAGE 
CONTEXT  ERROR 
CORRUPT  SYSTEM  IMAGE? 
BR  IF  YES 
;  SAVE  TRANSFER  ADDRESS 

IS  THIS  A  VIRGIN  SYSTEM  IMAGE? 
BR  IF  YES 


SAVE  XfER  ADDRESS 


INITIALIZE  NUMBER  OF  BYTES  SAVE 

DISPLACED  FROM  LOW  MEMORY 
FORM  NUMBER  OF  BLOCKS  IN  BOOT  BLOCK 
FORM  NUMBER  OF  BYTES  IN  BOOT  BLOCK 


PLUS  200  FOR  M  SAVE 

PLUS  24  BYTES  DISPLACED  BY  M+  SAV 

CONTINUE 


SAVE  XFER  ADDRESS 
SYSTEM  NOT  SAVED 
INDICATE  ERROR 


TRANSFER  ADDRESS  (0  IF  SAVED  SYSTEM) 
SET  CORRUPT  FLAG  (  REMOVED  IN  VXIT  ) 
REWRITE  LABEL  BLOCK 
INITIALIZE  OUTPUT  BUFFER  POINTER 


TRUNCATE  FILENAME  STRING  AT  /SS 
IF  IT  EXISTS  ... 

EOS  ? 

NOT  YET 

TERMINATE  STRING  (  MAYBE  TWICE  ) 


SET  UP  INPUT  ADDRESS 


[MP01D 
[MP01] 
CMPOI] 


[MPOn 
CMPOI] 
[MP01] 
CMPOI] 
CMPC1] 
CMPOI] 


CMPOI] 
CMPOI] 
CMPOI] 


; CMPOI] 


.-CMPOI] 


; CMPOI] 

; CMPOI] 
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VlNl  -  VNP  INITIALIZATION 
CONSTANT  DEFINITIONS 


S'.A  003512 

003524' 

000000 

VCTR: 

.'JORD 

845  003516 

106723 

012762 

.RAD50 

8A6  003522 

000000 

.WORD 

847  005524 

003536' 

000000 

NSO: 

.WORD 

848  003530 

125403 

135600 

.RAD50 

849  003534 

000000 

.WORD 

850  003536 

003550' 

000000 

NS1: 

.WORD 

851  003542 

125405 

140700 

.RAD50 

852  003546 

000000 

.WORD 

853  003550 

003562' 

000000 

NS2: 

.WORD 

854  003554 

125403 

144000 

.RAD50 

855  003560 

000000 

.WORD 

856  003562 

003574' 

000000 

NS3: 

.WORD 

857  003566 

125403 

147100 

.RAD50 

858  003572 

000000 

.WORD 

859  003574 

003606' 

000000 

NS4: 

.WORD 

860  003600 

125403 

152200 

.RAD50 

861  003604 

000000 

.WORD 

862  003606 

003620' 

000000 

NS5: 

.WORD 

863  003612 

125403 

155300 

.RAD50 

864  003616 

000000 

.WORD 

865  003620 

003652' 

000000 

NS6: 

.WORD 

866  003624 

125403 

160400 

.RAD50 

867  003630 

000000 

.WORD 

868  003632 

003644' 

000000 

NS7: 

.WORD 

869  003636 

125403 

163500 

.RAD50 

870  003642 

000000 

.WORD 

871  003644 

003656' 

000000 

MGEXT: 

.WORD 

872  003650 

052623 

021424 

.RAD50 

873  003654 

000000 

.WORD 

874  003656 

003670' 

000000 

MGMGE: 

.WORD 

875  003662 

052623 

051135 

.RAD50 

876  003666 

000000 

.WORD 

877  003670 

003702' 

000000 

UMRHD : 

.WORD 

878  003674 

126025 

070704 

.RAD50 

879  003700 

000000 

.WORD 

880  003702 

0037U' 

000000 

DEUMR: 

.WORD 

881  003706 

124545 

102532 

.RAD50 

882  093712 

000000 

.WORD 

88^  003714 

003726' 

000000 

TSKHD: 

.WORD 

88  0037-'0 

125763 

043004 

.RAD50 

885  003724 

000000 

.WORD 

886  003726 

003740' 

000000 

ABTIM: 

.WORD 

887  003732 

124352 

077165 

.RAD50 

888  003736 

000000 

.WORD 

889  003740 

003752' 

000000 

TLGTH: 

.WORD 

890  003744 

100554 

027350 

.RAD50 

891  003750 

000000 

.WORD 

892  003752 

003764' 

000000 

CLKHD: 

.WORD 

893  003756 

124504 

043004 

.RAD50 

894  003762 

000000 

.WORD 

895  003764 

003776' 

000000 

PATT: 

.WORD 

896  003770 

064141 

100040 

.RAD50 

897  003774 

000000 

.WORD 

898  003776 

004010 

000000 

PHDR: 

.WORD 

899  004002 

064150 

015720 

.RAD50 

900  004006 

000000 

.WORD 
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NSO.O 

"V$$CTR" 

0 

NSI.O 

"$NSO" 

0 

NS2,0 

"$NS1" 

0 

NS3,0 

"$NS2" 

0 

NS4,0 

"$NS3" 

0 

NS5,0 

"$NS4" 

0 

NS6,0 

"$NS5" 

0 

NS7,0 

"$NS6" 

0 

MGEXT.O 

■•$NS7'' 

0 

MGMGE, 0 

"M$$EXT" 

0 

UMRHD , 0 

"M$$MGE" 

0 

DEUMR, 0 

"SUMRHD" 

0 

TSKHD,0 

"SDEUMR' 

0 

ABTIM, 0 

"STSKHD' 

0 

TLGTH, 0 

"$A8TIM' 

0 

CLKHD, 0 

"T.LGTH' 

0 

PATT,0 

"SCLKHD' 

0 

PHDR.O 

"P. ATT" 

0 

PPRO,0 

"P.HDR" 

0 
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HIGHEST   LEGAL    INTERRUPT   ADDRESS   *  4 

ERROR  LOG   INTERRUPT    (   VEf  'RS  0  -  76   ) 

VECTORS   TOO  -   176 

VECTORS  200  -  276 

VECTORS   300  -   376 

VECTORS  400  -  476 

VECTORS   500  -   576 

VECTORS   600  -  676 

VECTORS   700  -  776 

11/70  EXTENDED  MEMORY  SUPPORT 

MEMORY  MANAGEMENT 

FREE   UMR   LISTHEAD 

EXEC   UMR  ROUTINE 

TC8   LISTHEAD 

ABSOLUTE    TIME    COUNTER 

TCB   LENGTH 

CLOCK  QUEUE  LISTHEAD 

PCB  ATTACH  LISTHEAD 

PCS  TASK  HEADER  OFFSET 
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__J 


M  13 


•f  lLE«'lD«n'lB10 


VV    vv 

BBBBBBBB 

Ml 

III 

000000 

vv    vv 

BBBBBBBB 

HI 

III 

000000 

vv    vv 

BB     BB 

I 

1 

00     00 

vv    vv 

BB     BB 

1 

1 

00      00 

vv    vv 

BB     BB 

] 

1 

00     00 

vv    vv 

BB     BB 

1 

1 

00     00 

vv    vv 

BBBBBBBB 

1 

1 

00     00 

vv    vv 

BBBBBBBB 

I 

00     00 

vv    vv 

BB     BB 

1 

00     00 

vv    vv 

R8      BB 

1 

00      00 

vv  vv 

BB 

1 

00      00 

vv  vv 

bu     BB 

1 

1 

00     00 

vv 

LLLLLLLLLL 

BBBBBBBB 

111 

111 

000000 

vv 

LLLLLLLLLL 

BBBBBBBB 

111 

111 

000000 

SSS5SSS5 

SSSSSSSS 

SS 

SS 

SS 

SS 

ssssss 

ssssss 

ss 

SS 

SS 

SS 

LLLLLLLLLL 

SSSSSSSS 

LLLLLLLLLL 

SSSSSSSS 

TTTTI 
TTTTT 


TTTT 
[TTTT 
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16^  001505 

168  0013^7 

169  00K07 

170  00U51 

171  001512 

172  001547 
175  001604 
17A  001642 

175  001677 

176  001744 

177  002016 

178  002047 

179  002110 

180  002144 

181  002201 

182  002225 

183  002257 

184  002312 

185  002544 

186  002405 

187  002446 

188  002514 

189  002561 
190 

191 

192  000000 


ETEXTS 

OCOPTL, 

ETEXTt 

OTSKTL, 

ETEXTS 

IVLIID, 

ETEXTS 

GETFAL, 

ETEXTS 

ACCTTL, 

ETEXTS 

UIDTL, 

ETEXTS 

PSWFTL, 

ETEXTS 

NSTERM, 

ETEXTS 

MSUNUM, 

ETEXTS 

MSTRIB, 

ETEXTS 

NSLINE, 

ETEXTS 

BDGRP, 

ETEXTS 

BDHELT, 

ETEXTS 

BDLIST, 

ETEXTS 

NAMETL, 

ETEXTS 

IVDTEA, 

ETEXTS 

DTEAIL, 

ETEXTS 

ILLARE, 

ETEXTS 

ILLSEG, 

ETEXTS 

ULINC, 

ETEXTS 

ILLRET, 

ETEXTS 

ILLINA, 

ETEXTS 

ILLOUT, 

.EVEN 

.PSECT 

<Too  many  object  task  copies> 

<Object  task  name  too  long> 

<In\/alid  h'ne  identification) 

<FaUed  to  get  command  line> 

<Account  field  too  tong> 

<User  id  field  too  long> 

<Password  field  too  long> 

<Terminal  not  in  system> 

'Missing  parameter,  unit  number> 

<Missing  parameter,  tributary  number> 

<Line  not  in  system> 

<Inualid  parameter  grouping) 

<Bad  Hello-timer  value> 

<Bad  Listen-timer  ualue> 

<Name  too  long> 

<Invalid  DTE  address) 

<DTE  address  too  long) 

<I  I  legal  area  number) 

<I I  legal  NSP  segment  size) 

<I I  legal  incoming  timer  value) 

<lllegal  retransmit  factor  value) 

<IUegal  inactivity  timer  value) 

'Illegal  outgoing  timer  value) 


N  U 
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82'.  0OM2b 

825  005330 

826 

827 

828 

829 

850  0033S0 

831  003350 

832  003556 
833 

854 

835 

856 

857  005560 

838  00556A 

859  005370 

840  005572 

841  005576 

842  005400 
845 

844 
845 
846 

847  00542C 

848  005420 

849  003426 

850  005430 

851  005454 
85t'  003440 

855  005444 
854  005446 
855 

856  005450 

857  005454 
858 

859  005456 

860 

861 

862 

863 

864  005476 

865  005502 

866  005506 

867  003510 

868  005514 

869  005516 
870 

8^2 
873 

874  005536 

875  005542 

876  005544 

877  003552 
87g  003554 
8^9  003562 
880  005564 


iovER:: 
042767  000007  000012G        BIC 

RETURN 


RETURN 
101$:   ERRORS  1LL08J 

Object  ueritication  level  specified 

«7,RQB*-L0.0f L   ;  Clear  out  the  verification  leuel 


C12702  000005 

105405 

010067  000026G 


012^02  000005 

105405 

010067  000002G 


Line  owner 


iouN:; 


101$: 


MOV 

CALL 

8CS 

MOV 

RETURN 

ERRORS 


#3,R2 

RAD 

101$ 

PO.RQB+LO.OWN 

ONAMTL 


026727  OOOOOOG  OOOOOOG 
001010 

012700  000002G 

012701  000006 

105404 

062716  000002 


Store  PSI  circuit  name 
SPCIR: 


11$: 

101$: 


CMP 
BNE 
MOV 
MOV 

CALL 

BCS 

RETURN 

ADD 
RETURN 

ERR0R$ 


Process  name 


tPNAM: 


101$: 


MOV 

CALL 

BCS 

MOV 

RETiiRN 

ERR0R$ 


$CMAND,«CM$SH0 

lis 

#RQ8HR.LIN,R0 

#MXPSCN,R1 

STORID 

101$ 


#2,(SP) 
NAMETL 


#3,R2 

RAD 

101$ 

RO.RQBHR.PRO 


Set  ma»  field  length 
Get  3  RAD50  characters 
It  CS,  more  than  5 
Else,  store  line  owner 


;  If  not  show  command,  do  not  accept  name 

;  Buffer  addr 

;  Max.  size  of  old-format  circuit  name 

;  Check  and  store  circuit  name 

;  Branch  if  name  too  long 


Don't  recognize  the  name. 
Show  syntax  error 


Set  max  field  length 
Get  5  radSO  characters 
If  cs,  more  than  5 
Set  process  name 


PNAMTL 


Priority  value 


005767  OOOOOOG 

001011 

022767  000007  OOOOOOG 

105405 

016767  OOOOOOG  000012G 

001401 


iPRI: 


TST 
BNE 
CMP 
BLO 
MOV 
BEQ 
RETURN 


.PNUMH         ;  Must  be  single  precision 

101$ 

*7,.PNUMB      ;  And  less  than  8. 

lOH 

.PNUMB,RQB*LO.PRI  ;  Set  oriority  value 

101$         ;  Zero  value  is  ■''Uegai 


jCTDOOn 
jCTDOOl] 
jCTDOOl] 
;[TD00i: 
;[TD001] 
;CTD001] 
;[TD00n 
;CTD001] 
;[TD001] 
;[TD001] 
;CTD001] 
;[TD001] 
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CHKLOG  -  CHtCK  FOR  LOGCjlNG  FUNCTION 


M  16 

02;Z4 
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1A12 
Hi; 

U15 
K16 
HI' 
H18 
H19 
H?0 
H?l 
H22 
He  3 
H2A 
H?"; 

H27 
H28 
H29 
H30 
H31 
H32 
H35 
H3A 
H35 


006566 
006374 
006376 
00640A 
006406 
006410 
006412 
0064  U 


122767 
001406 
122767 

001402 
000261 
000401 
000241 


000020  OOOOOOG 

000021  OOOOOOG 


.SSflL   CHKLOG  -  CHtCK  FOR  LOGGING  FUNCTION 

Chklog  -  Check  tor  logging  function 

Inputs: 

ROa+LR.STS  -  function  code 

Outputs: 

Carry  clear: 

Function  is  a  logging  function 
Carry  set: 

Function  is  not  a  logging  function 


:"'-.LOG; 

CMPB 

#LS.L0G,LR.STS+R08 

BEO 

10$ 

CMPB 

#LX.LOG,LR.STS*RQB 

BEQ 

10$ 

SEC 

BR 

20$ 

10$: 

CLC 

20$: 

RETURN 

Set  logging? 

Br  i  f  yes 

Clear  logging? 

Br  if  yes 

Else  not  logging  function 

Finish  up 

Indicate  logging  function 


N  1 

-  INITIAL  rONfIG  flLE  5C  MACRO  V05.03b  Saturday  29-Jun-85  02:58  Page  ?2 
BIAS  kPOOL  address  for  APR6 


VFPRI 
LQCAl 


■  •  c 

774 
775 

776 

jy 

778 
77Q 

780 
78' 
782 
78? 
78^ 
785 
786 
787 
738 
78^^ 
790 


002256 

002256  020027     120000 

002262  i03A0ii 

302264  042700  160000 

C0227C  052700  KOOOO 

002 2 7A 


.SSTTL  8IASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

BIASX  -  BIAS  XPOOL  ADDRESS  FOR  APR6 

INPUTS: 

RO  =  ADDRESS  (POOL  OR  APRS) 

OUTPUTS: 

RO  =  ADDRESS  (POOL  OR  APR6) 


BIASX: 


10$: 


CMP 
BLO 
BIC 
BIS 
RETJRN 


RO, #120000 
lOi 

O160000,! 
/(KOOOO, R 


POOL  ADDRESS? 
YES,  LEAVE  AS  IS 
CLEAR  APR  BITS 
BIAS  FOR  APR6 
RETURN 


VTPRDT  - 
LOC*L  DA 

86 
87 
88 
89 
90 
91 
92 
93 
9^ 
95 
96 
97 
98 


INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85 
TA 

000000 

000000 

000017 
000006 

000C24- 
000025  ; 


N    2 

02:3 


9     Page  7 


VFPRNIi 


.S8TTL  LOCAL  DATA 

.NLIST  BEX 
.PSECT  DATA.D 

;  LOCAL 

DATA  FOR  RDTSDF  MACRO 

RDTNAM: 

RDTE: 

RDT^P: 

.BLKB   6 

RDTLN  =  15. 

.BLKB   RDTLN 

RDTEN  =  .-1 

.BLKB   <RDTLNt1>/2 

.EVEN 

;  REMOTE 

;  REMOTE 
;  END  OF 
;  REMOTE 

DTE 

DTE 
DTE 
DTE 

NAME 

ADDRESS 
ADDRESS 
ADDRESS  IN  BCD 

N    3 
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VFPRI 
Synti 


3 
i, 

5 
6 

7 

8 
9 

10 

n 
:2 

13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
31 
35 
36 
37 
38 
39 
-0 
A' 
42 
43 
44 
45 
46 
47 

48 


.TITLE   VFPRNW  -  INITIAL  CONFIG  FILE  SCAN  ACTION  ROUTINES 
.IDENT  /V05.00/ 
.ENABL  LC 


COPYRIGHT  (C)  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD, 


MASS. 


THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  10  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

Parse  tables  and  action  routines  for  processing 
CETAS  PNWSDF  and  RNASDF  macros. 

EUROPEAN  DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  11-0CT-82 

First  written  for  X25  Gateway  RSX  Must  Access 
[Tim  Dixon  EDSG] 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
DECnet-llM-Pius  V3.0 
DECnet-Micro/RSX  Vl.O 


OF   ITS 


L 


N  4 

VFPRNW  -  INITIAL  CONFIG  FILE  SC  MACRO  V05.03b  Saturday  29-Jun-85  02:40  Page  17 
Syntax  action  routines 


332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
3^2 
3i3 
344 
345 
546 
347 
348 
349 
350 
351 
352 
353 


000250 

000250  116701  000164' 

000254  020127  000010 

000260  101011 

000262  110167  OOOOOOG 

000266  012700  000165' 

000272  012702  OOOOOOG 

000276 

000302 

000304 


**♦  RNAPA3  -  Check  password 

STR8UF  -  Contains  parsed  string  (minus  delimiters  etc) 
STRLEN  -  Number  of  characters  in  string 

OUTPUTS 

Password  checked  and  ■stored 

Error  condition  if  inualid  password 


RNAPAS : 


wove 

STRLEN, R1 

CMP 

R1,#MXACPA 

BHI 

101$ 

MOVB 

R1,RNPL 

MOV 

*STR8UF,R0 

MOV 

#RNPASS,R2 

CALL 

MOVE 

RETURN 

101$: 


EMSG$R  RC 


;  Get  length  of  string 

;  Check  if  password  too  long 

;  Branch  if  error 

;  Move  password  length  to  data  area 

;  Houe  password  to  data  area 


I Llegal  access  data 


VFPRN 
MACRC 
NIACRC 
CALL 


CEACC 
DBGTF 

EMSGS 
GETAt 
GETRV 
ISTA1 
MTRA^ 
NTLEF 
PHBDF 
PUTAC 
RAND 
RESM/ 
RETUF 

kNWDF 
SAVM/ 
SOB 
STATl 


TRAN! 


VNPD! 


VfPRNW     CREATED  BY  MACRO  ON  29-JUN-85  AT  02:41 
MACRO  CROSS  REFERENCE 


N  S 

PAGE  4 

CREf   04.00 


MACRO  NAME 
CAUL 

CEACC$ 
DBGTPS 

EMSGSR 

GETAD 

GETRV 

ISTATS 

MTRAN$ 

NTLERS 

PHBDFS 

PUTAD 

RAND 

RESMAP 

RETURN 

KNWDFS 
SAVMAP 
SOB 
STATES 


TRANS 


VNPDBG 


REFERENCES 

9-131 

20-422 

21-488 
#6-69 
#10-144 
#13-235 
#6-68 
#6-69 
#6-69 
#6-68 
#10-144 
#6-68 
#6-68 
#6-69 
#20-417 
#6-69 

9-135 

23-524 
#6-68 
#6-69 

20-430 
#6-68 
#11  171 
#12-201 
#13-241 
#6-68 
#11-175 
#12-200 
#13-227 
#13-245 
#6-70 


14-276 
21-449 
21-491 
20-421 
#11-178 
#13-243 
9-139 
20-422 
20-417 
10-144 

7-90 
6-73 
21-488 
20-417 
#6-81 
14-281 

6-72 
#6-77 

21-459 

10-146 
#11-174 
#12-203 
#13-244 
#10-147 
#11-177 
#12-202 
#13-230 
#13-246 

9-125 


15-303 
21-452 

21-455 
#11-182 
#13-246 

14-283 


7-91 


#20-422 
20-432 
15-304 


20-414 

#10-148 
#11-176 
#12-205 
#13-248 
#10-149 
#11-178 
#12-204 
#13-231 
#13-249 


16-327 
21-455 


#11-188 

#13-250 

15-306 


7-92 


20-422 
21-492 
16-328 


21-450 

#10-151 
#11-180 
#12-208 
#13-253 
#10-152 
#11-181 
#12-206 
#13-233 
#13-250 


17-350 
21-465 


#12-210 

#13-251 

16-330 


7-93 

#21-488 
17-351 


#10-153 
#11-183 
#12-212 

#10-154 
#11-182 
#12-209 
#13-234 
#13-251 


18-374 

19-391 

19-393 

20-417 

?o-«i 

21-468 

21-472 

21-477 

21-482 

21-487 

#12-214 

#13-226 

#13-227 

#13-231 

#13-234 

ir--353 

18-377 

19-397 

19-398 

21-488 

18-375 

19-395 

20-433 

21-493 

22-506 

#10-156 

#10-159 

#10-162 

#10-165 

11-169 

#11-186 

#11-189 

#11-192 

#11-194 

#12-199 

#13-224 

#13-229 

#13-232 

#13-236 

#13-238 

#10-157 

#10-160 

#T0--".3 

#11-170 

#11-172 

#11-184 

#11-187 

#11-l6S 

#11-190 

#11-193 

#12-210 

#12-213 

#12-214 

#13-225 

#13-226 

#13-235 

#13-237 

#13-239 

#13-242 

#13-243 

VFPX29  CREATED  BY      MACRO     ON  29-JUN-85   AT   02:41 

MACRO   CROSS   REFERENCE 


MACRO   NAME 

CALL 

DBGTPS 

EMSG$R 

GETRV 

ISTATS 

MTRANS 

NTLER$ 

PHBDFS 

PUTRC 

RAND 

RETURN 

STATES 

TRANS 

X29DF$ 


REFERENCES 

7-109 
#8-124 
#5-57 
#5-58 
#5-57 
#8-124 
#5-57 
#5-57 
#5-58 
#9-181 

7-113 
#5-57 
#5-57 
#5-57 


9-181 
#8-lA7 
7-118 
9-181 
8-124 

6-74 
5-61 
9-197 
9-181 
9-161 
8-128 
#8-129 
5-60 


9-186 

9-163 
9-200 


6-75 

9-202 
#9-197 

9-171 
#8-131 
#8-132 


9-197 
9-173 

6-76 


9-197 

9-203 

#8-134 

#8-135 


N     6 

PAGE   3 

CREF        04.00 

9-200 
9-205 

6-77 

#9-200 

#8-137 
#8-138 


9-202 
9-206 


9-200 

#8-140 
#8-141 


#9-202 

#8-145 
#8-146 


9-202 

#8-149 
#8-147 


L 


VFPX3P  -   INITIAL   CONFIG  flLE   SC  MACRO  V05.03b 
Symbol    table 
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Saturday  29-Jun-85  02:41  Page  12-2 


VH 


At$CH<= 

A$$CPS= 

A$$PRI= 

A$$TRP= 

BLKDEF 

BLKHAX 

BL<S2D= 

BLKSZM= 

CERR  = 

CFGBF  = 

CFGSZ  = 

CFLIN  = 

CHEND 

CHHI 

Chk;blk= 

CHKUND= 

CHLO 

CHNDF 

CHNLHI 

CHNLLO 

CHNLMN= 

CHNLMX= 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DTEDES= 

D$$BUG= 

D$$ISK= 

n$$Lii= 

D$$YNC= 

D$$YNM= 

END 

E$$XPR 

FMT8 

FM.8  = 

F$$LVL= 

F.RSIZ= 

G$$TPP= 

G$$'^SS= 

.  ABS. 

DATA 
SSTATE 
$<TAB 
$<5TR 


GX 
GX 
GX 
GX 
GX 
GX 


000000 

000000 

000000 

000000 

000060R 

000102R 

****** 
****** 
****** 

***  *** 
****** 
****** 

000302R 
000254R 
****♦+  (3x 
»».«*«  GX 
0O0220R 
000036R 
000002P 
OOOOOOR 
000001 
«»*»♦*  GX 
000000 
000400 
177564 
»*♦•♦»  GX 
177514 
000000 
OOOOOi 
000000 
000000 
000070R 
000000 
-    *♦«»«♦  GX 


000000 
000001 
«*»»»«  GX 
000000 
000000 

000134 
000600 
000056 
000100 
000004 
000016 


G$$TTK= 
G$$URD= 
I$$RAR= 
1$$RDN= 
K$HIC 
K$LEN 
KSLNK 
K$L0C 
K$$CNT= 
K$$CSR= 
K$$LDC= 
Kt$TPS= 
LDSLP  = 
LN$OFF= 
LN$ON  = 
LN$SHU= 
LP$EJP= 
003  LP$ENB= 
002  LP$PCT= 

002  LP$TMR= 
LPSUP  = 
LP$WTD= 
LP$WTS= 
LS$GDN= 
LS$OFF= 
LS$STR= 
LS$UP  = 
LSSWT  = 
LSACHN 
LSAPVC 
LSASVC 

003  LSAUC 
LICHLS 
LSCHTB 
L$CLEN= 
LSCTEN 
LSCTIM 
LSDTEA 

l$d::;l 


000000 
000000 
000000 
000000 
000004 
000006 
000000 
000002 
177546 
177546 
000000 
000074 
000000 
000001 
000000 
000002 
002000 
004000 
001400 
100000 
010000 
020000 
040000 
000004 
000000 
000002 
000003 
000001 
000012 
000014 
000010 
000042 
000034 
000030 
000044 
000032 
000040 
000020 
000017 


Error?  detected:  0 

»••  Assembler  statistics 


000  (RW,I,GBL,A8S,0VR) 

001  (RW,I,LCL,REL,CON) 

002  (RW,D,LCL,REL,C0N) 

003  (RW,D,LCL,REL,C0N) 

004  fRU,D,LCL,REL,CON) 

005  (RW,D.LCL,REL,CON) 


Work  file  reads: 
Work  f i le  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system:  RSX-HM/PLUS 

E'apsed  time:  00:00:30.52 


0 

0 

13997  Words 

15496  Words 


(  55  Pages) 
(  59  Pages) 


LSGLEN 

000134 

M$$FCS= 

000000 

$blank;= 

000006 

LSLEN 

000122 

M$$HGE= 

000000 

$CEACC=: 

*♦**««  GX 

L$LLC^^ 

OOOOU 

M$$NET= 

000000 

$DIGIT= 

000024 

LSLNK 

000000 

H$$0VR= 

000000 

$DNUHB= 

000014 

L'"CHN 

000036 

N$$ACC= 

000001 

$EOS  = 

000012 

L'5NETW 

000114 

N$$BUF= 

000001 

$ERRO0= 

******  GX 

LSNIRE 

000072 

N$$LDV= 

000001 

$ERR01= 

***»«♦  GX 

LSNLRE 

000104 

N$$MCP= 

000001 

$ERR02= 

******  GX 

LSNMAC 

000076 

N$$MLL= 

000001 

$ERR08 

000004R 

LSNMAS 

000074 

N$$H0V= 

000010 

$ERR09= 

******  GX 

LSNMST 

000003 

N$$NCT= 

000001 

$ERRP7= 

******  GX 

LSNNRE 

000106 

N$$PEM= 

000001 

$ERRP8= 

******  GX 

LSNRBY 

000046 

P$$P45= 

000000 

$ERRP9= 

******  GX 

L$NRCA 

000066 

P$$WRD= 

000000 

$ERR1T= 

******  GX 

LSNRFS 

000100 

Q$$OPT= 

000010 

SEXIT  = 

000000 

LSNRPK 

000056 

RTSPC  = 

******  GX 

$FAIL  = 

177777 

LSNRRE 

000105 

R$$DER= 

000000 

$GETAD= 

******  GX 

LSNRST 

000107 

R$$K11= 

000001 

$GETRV= 

******  GX 

LINTBY 

000052 

R$$SND= 

000000 

$LAHDA= 

000000 

LSNTCA 

0OCJ70 

R$$11M= 

000000 

$NUMBR= 

000002 

LSNTFS 

000102 

SYNERR= 

******  GX 

$PUTAD= 

******  GX 

LSNTPK 

000062 

SYSFD8= 

******  GX 

$PUTRC= 

******  GX 

LSOMST 

000002 

S$$URG= 

000000 

$QCHN 

000006RG 

LSPCS 

000112 

S$$YSZ= 

007600 

$QX3P 

OOOOOORG 

L$PLS 

000110 

T$$KMG= 

000000 

$RADDR= 

******  GX 

LSQCNT 

000122 

T$$MIN= 

000000 

$RAD50= 

000016 

LSQUEH 

000124 

V$$CTR= 

001000 

$RBLCK= 

******  GX 

LSQUET 

000130 

WNDDEF 

000140R 

$SAVAL= 

******  GX 

LSRTRV 

000007 

WNDMAX 

000162R 

$STRNG= 

000004 

L$SLN 

000004 

UNDSZD= 

******  GX 

$SUBXP= 

000010 

L$ST 

000005 

WNDSZH= 

******  GX 

$$$FLG= 

177777 

LSTCLZ 

000044 

X$$D8T= 

000000 

$$$KEY= 

000001 

L$TIM 

000006 

X3PDF 

OOOOOOR 

003  $$$R  = 

000010 

L$$ASG= 

000000 

X3PKW 

OOOOOORG 

004  $$$STA= 

OoJOOO 

L$$DRV= 

000000 

X3PST 

OOOOOORG 

003  $$$TMP= 

000007R 

L$$P11= 

000001 

$ALL16= 

******  GX 

.PNUMB= 

******  GX 

LI$11R= 

000000 

$ALPHA= 

000022 

.PNUMH= 

******  GX 

M$$CRB= 

000124 

$ANY  = 

000020 

.TPARS= 

******  GX 

M$$CRX= 

OOC'jO 

$BFR  = 

******  GX 

002 


005 


I 
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JIMI 


1 
2 
3 

5 
6 

7 

8 

9 
10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE 
.IDENT 


VHELP  -  HELP  ROUTINE  FOR  VNP 
/V05.00/ 


COPYRIGHT  (C)  1979,  1980,  1982,  1983,  1985  8Y 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 


MODULE  DESCRIPTION: 

VNP  -  HANDLE  PROCESSING  OF  HELP  INFORMATION 


DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORV: 

1.00   14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI  .0 

3.00     16-APR-8^ 

DECNET-lli;  V3.1 
DECNET-11M-PLUS   Vl.1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
0ECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-11M/S  V4.2 
DECnet-ilM-Plus  V3.0 
OECnet-Micro/RSX  VI. 0 


L 


N  9 


nm   -   VNP  READ  IN  CEX  IMAGE    MACRO  V05.03b  Saturday  29-Jun-85  02:42  Page  5-1 


Vlf 


115 

1U  00006A 

115  000070 

116  000076 

117  000102 

118  000106 

119  000112 

120  0001 U 

121  000120 

122  000126 

123  000130 
12-;  0001 3A 

125  000136 

126  OOOUO 

127  OOOUA 
128 

129 
130 

131  000156 

132  000162 

133  000166 
13A 

135  000172 

136  000176 

137  000202 
138 

139  000206 

UO  000210 

HI   0002U 

U2 

U3 

144 

145  000220 

146  000222 

147  000224 
148 

149  00022. 

150  0002:  C 
151 

152 
153 
154 
155 
156 

157  000234 

158  000240 

159  000242 

160  000244 

161  000250 

162  000254 

163  000256 
164 

165 
166 

167  000262 

168  000266 

169  000272 


016701 
016767 
066701 
012746 
005767 
100410 
012716 
032767 
001002 
012716 
162601 
103402 
160167 


016700 
162700 
010067 

160067 
160067 
160067 

160200 
016701 
016702 


160021 
005302 
003375 

014105 
062705 


162705 
020504 
00310O 
010567 
020567 
003445 
005067 


012746 
066716 
016^01 


OOOOOOG 

OOOOOOG  OOOOOOG 
OOOOOOG 
160000 
OOOOOOG 

120000 

000004  OOOOOOG 

100000 


5t: 


7$: 


OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 


8$: 


MOV 
ADD 
MOV 
TST 
BMI 
MOV 
BIT 
BNE 
MOV 

sua 

BCS 
SUB 
GETRV 


SPDVTA.RI 

$PDVTA,$CETST 

SRSIZE.Rl 

*160006,-(SP) 

.MGMGE 

7$ 

#120000, (SP) 

#fE.EXV,$fMASK 

7$ 

#100000, 

(SP)+,R1 

8$ 

R1,$RSIZE 

SPDVTA 


,(SP) 


CALCULATE  LARGEST  ADDRESS  ALLOWED 

SAVE  ACTUAL  START  OF  CETAB 

CALCUALTE  END  OF  CETAB 

ASSUME  UN-MAPPED  SYSTEM 

IS  THIS  A  MAPPED  SYSTEM  ? 

IF  MI,  NO 

ASSUME  20K  EXEC 

IS  THIS  A  20K  EXEC  SYSTEM  ? 

IF  NE,  YES 

ELSE,  THIS  MUST  BE  A  16K  EXEC 

IS  THE  ADDRESS  TOO  BIG  ? 

IF  CS,  NO 

CALCULATE  MAXIMUM  SIZE  ALLOWED 

READ  IN  AS  MUCH  AS  POSSIBLE 


RG002 
RG002 

RG002 
RG002 
RG002 
RG002 
RG002 
RG002 
RG002 
RG002 
RG002 
RG002 
RG002 


DETERMINE  SHIFT  DIFFERENTIAL  AND  BIAS  ADDRESS  POINTERS  BY  THAT  DIFFERENTIAL 


OOOOOOG 
OOOOOOG 


MOV 
SUB 
MOV 

SUB 
SUB 
SUB 

SUB 
MOV 
MOV 


$PDVTA,RO 

#$CETAB,RO 

RO,$CETDF 

RO,$PDVTA 
RO,$LLCTA 
RO,$SLTHA 

R2,R0 

$PDVTA,R1 

$PDVNM,R2 


RELOCATE  THE  PDV  ADDRESSES, 


l0$: 


OOOOOOG 


OOOOOOG 


OOOOOOG 
OOOOOOG 

OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 


SUB 
DEC 
BGT 

MOV 
ADD 


.IF  DF 

ADD 

.ENDC 

SUB 
CMP 
BGT 
MOV 
CMP 
BLE 
CLR 


R0,(R1)+ 

R2 

10$ 

-(R1),R5 
#Z.LEN,R5 


R$$MPL 
#L.KRB,R5 


#$CETAB,R5 

R5,fi4 

35i 

R5,$CETLN 

R5,$RSIZE 

12i 

SBIGCT 


ADDRESS  OF  FIRST  WORD  OF  CETAB  IN  SYS  IMG 
SUBTRACT  IMAGE  START  ADDRESS 
STORE  DIFFERENCE  IN  ROOT  SEGEMNET 

SUBTRACT 
SHIFT 
DIFFERENTIAL 

ADD  IN  CETAB  ALLOCATION  ADDRESS 
ADDR.  OF  PDV  ADDR.  TABLE 
NUMBER  OF  ENTRIES 

ASSUME  PDV  TABLE  AT  FRONT  OF  IMAGE  I 

;  SUBTRACT  SHIFT  BIAS 

;  AND  LOOP  TILL  DONE 

SAVE  ADDRESS  OF  LAST  PDV  IN  CETAB 

ADDRESS  OF  LAST  WORD  IN  CETA8«^2 

ASSU.1E  LAST  PDV  NOT  AN  LLC  WITH  CHANNEL  TABLE 

; CMPOI ] 
INCLUDE  LAST  CTB  (WITHOUT  KRB  TABLE)   ;[MP01] 

; CMPOI ] 

CALCULATE  SIZE  OF  CETAB  IN  BYTES 

IS  INTERNAL  BUFFER  TOO  SMALL  ? 

YES 

SAVE  CETAB  LENGTH 

DID  WE  ALREADY  READ  IN  ALL  OF  CETAB  ? 

IF  LE,  YES 

INIT  LARGE  CETAB  FLAG 


READ  IN  REMAINDER  OF  CETAB 


40$: 


MOV 
ADD 

MOV 


#$CETAB,-(SP) 

$RSIZE,(SP^ 

$BIGCT,R1 


ORIGINAL  ADDRESS 

PLUS  SIZE  READ 

IS  THIS  CETAB  LARGER  THAN  2000  BY^ES 


N  10 
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VINI 
CONS 


112 
115 
lU  000122 

115  000130 

116  000134 
117 

118 
119 

120  000152 

121  000156 

122  000162 

123  00016A 
12A  000170 

125  000174 

126  000202 

127  000220 

128  00O22A 

129  000226 

130  000234 

131  000240 

132  000244 

133  000250 

134  000256 

135  000260 

136  000264 

137  000270 
138 

139  00030'* 

140  000310 
I'll  000312 

142  000320 

143  000324 

144  000330 

145  000334 
146 

147 

148 

149 

150  000352 

151 

152  000360 

153  000364 
154 

(55   000366 

156  000^4 

157  000416 
158 

159 

160 

161   000436 

162 

163  000436 

164  000444 

165  000464 
166 

167 

168  000472 


REWRITE  CEXCM 


012702  OOOOOOC 


SWTCHO  #$PDVTA        ;  POINT  AT  BUFFER 

MOV     #<$CEXND-$P0VTA>,R2  ;  COMPUTE  LENGTH  OF  TRANSFER 

PUTRC   .PDVTA,R2      ;  WRITE  CEXCM  BACK 


016700 
022700 
002002 
012^00 
160067 


005767 
003452 

066700 
016701 
005067 
022767 
002004 
012701 
005267 


005767 
001420 

062700 
005067 
160167 


OOOOOOG 
001000 

001000 
OOOOOOG 


OOOOOOG 


REWRITE  THE  CETA8  IMAGE 


10$: 


OOOOOOG 
OOOOOOG 
OOOOOOG 
001000  OOOOOOG 

001 OOC 


11$: 


OOOOOOG 


001000 

OOOOOOG 

OOOOOOG 


MOV 
CMP 
BGE 

MOV 

SUB 

SWTCHO 

PUTRC 

TST 

BLE 

SWTCHO 

ADD 

MOV 

CLR 

CMP 

BGE 

MOV 

INC 

PUTRC 

TST 

BEO 

SWTCHO 

ADD 

CLR 

SUB 

PUTRC 


$CETlN,RO 

#512. ,R0 

10$ 

#512. ,R0 

RO,$CETLN 

#$CETAB 

$PDVTA,RO 

*CETLN 

20$ 

#$CETAB+1000 

$PDVTA,RO 

$CETLN,."!1 

$81GCT 

#512.,$CETLN 

11$ 

#512. ,R1 

$BIGCT 

R0,R1 

$8JGCT 

20$ 

#$CETAB+2000 

#512. ,R0 

SSJGCT 

R1,$CETLN 

R0,$CETLN 


GET  LENGTH  OF  CETAB  IMAGE 

IS  IT  MORE  THAN  1  BLOCK  ? 

IF  GE,  NO  ..  OKAY 

ELSE,  LIMIT  TRANSFER  TO  512.  BYTES 

CALCULATE  LENGTH  LEFT  TO  TRANSFER 

POINT  OUTPUT  BUFFEK  AT  CETAB  IMAGE 

WRITE  OUT  CETAB  IMAGE 

ANY  MORE  TO  TRANSFER  ? 

IF  LE,  NO 

UPDATE  OUTPUT  BUFFER 

AND  NEW  IMAGE  ADDRESS 

SAVE  LENGTH 

INIT  THIRD  WRITE  FLAG 

IS  A  THIRD  WRITE  NEEDED  ? 

IF  NOT  -  BRANCH 

SET  MAXIMUM  TRANSFER  SIZE 

SET  FLAG  FOR  THIRD  TRANSFER 

WRITE  OUT  CETAB  IMAGE 

THIRD  TRANSFER  NEEDED  ? 

IF  NO  -  BRANCH 

UPDATE  OUTPUT  BUFFER 

UPDATE  IMAGE  ADDRESS 

INIT  THIRD  TRANSFER  FLAG 

SET  UP  LAST  TRANSFER  LENGTH 

WRITE  OUT  LAST  PART  OF  CETAB  IMAGE 


REWRITE  NETWORK  POOL  HOME  BLOCK 
50$:    SWTCHO  #$NTLHB        ;  POINT  AT  BLOCK 


005767  OOOOOOG 
100414 


000410 


TST 
BMI 


.MGMGE 
30$ 


MEMORY  MANAGEMENT  SYSTEM 
NO 

WRITE  IT 


30$: 


PUTAD   #0,#64.,$NTLPT 

BR      40$ 

PUTRC   $NTLPT,#100     ;  WRITE  IT  BACK  TO  SYSTEM  IMAGE 


REWRITE  CEX  POOL  LISTHEAD  IMAGE 
40$: 


.IF  NDF  R$$MPL 
SWTCHO  #$CEAVL 
PUTRC   .CEAVL,#2 
SWTCHO 
.ENDC 


;  REWRITE  CEX  POOL  LISTHEAD 
;  SWITCH  TO  DEFAULT  BUFFER 


;[MP01] 


;[MP01] 


042767  OOOOOOG  OOOOOOG 


31C 


#FE.iEX,$FMASK      ;    INDICATE    COMEXEC    NOT    CORE   RESIDENT 


L 


012746  000202' 
012746  000202 


VINI  -  VNP  INITIALIZATION 
CONSTANT  DEFINITIONS 

234 
235 
236 
237 
238 

2?? 

2hu 

241 

242  000602 

243 

244 

245 

246 

247 

248  000604 

249  000610 

250  000620 

251  000624 

252  000634 

253  000642 

254  000656 
255 
256 
257 
258 
259 

260  000672 

261  000723 

262  000726 

263  000766 

264  000774 

265  001050 

266  001057 

267  001066 

268  00115"; 

269  001166 

270  001174 

271  001264 

272  001307 
273 
274 
275 
276 
277 
278 

279  001314     012 
V80 
281 
282 
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cc 


BIS 

#DF.SC0,$DFLAG 

liETRV 

#$SVC0L,#2 

SWTCHI 

#$VCTOF 

BIS 

#DF.SCO,$DFLAG 

GETRV 

#$SVC0L«-2,#2 

SUTCHI 

.ENDC 

SET  LOWCR  FLAG 

READ  V8N  OF  DISPLACED  MEMORY 

SET  UP  INPUT  ADDRESS 

SET  LOWCR  FLAG 

READ  OFFSET  INTO  FIRST  DISPLACED  BLK 


[MP01] 
[MP01D 
CMPOI] 
[HP01D 
CMPOI ] 
CMPOI] 
CMPOI ] 


100$: 


RETURN 


ERROR  RETURNS 


110$ 
122$ 


052767  OOOOOOG  OOOOOOG  130$ 
132$ 


MOV 

ERRPT$ 

MOV 

ERRPT$ 

BIS 

ERRPT$ 

ERRPT$ 


#VFILE,-(SP) 

ERR1,$ER0UT 

*VFJLE,-(SP) 

ERR2,$ER0UT 

#V1.NSY,$VFLG1 

ERR3,$ER0UT, FATAL 

ERR13,$ER0UT, FATAL 


SET  RETURN  ADDRESS 
ISSUE  WARNING  MESSAGE 
SET  RETURN  ADDRESS 
ISSUE  WARNING  MESSAGE 
INDICATE  NOT  A  SYSTEM  IMAGE  FILE 
;  FILE  NOT  A  SYSTEM  IMAGE  FILF 
CORRUPT  SYSTEM  IMAGE 


;  ERROR  TEXT 


ERMSG$ 
ERBLKS 
ERMSG$ 
ER8LK$ 
ERMSG$ 
ERMSG$ 
ERBLK$ 
ERMSGS 
ERMSG$ 
ERBLK$ 
ERMSC$ 
ERMSGi 
ERBLK$ 


LOCAL  DATA 


<M-PLUS  system  not  savedJ!n> 

ERRO 

<Error  parsing  tile  name  -  (  3!A  )> 

ERR1,<FILE> 

<Open  failure  on  system  image  file  -  (  *E  )sn> 

<      (  XA  )> 

ERR2,<SYSFDB+F.ERR,FILE> 

<Supposed  system  image  file  not  actually  a  system  image. > 

<Xn     (  M  )> 

ERR3,<FILE> 

<System  image  file  corrupted  because  VNP  was  terminated4n> 

OPnormally.  (  XA  )> 

ERR13,<FILE> 


015 


.NLIST  BEX 
105  SYSPMT:  .ASCIZ  <1 2x1 5>"Enter  filename: 
.EVEN 
.LIST  BEX 


L 


VINl  -  VNP  INITIALIZATION 
CONSTANT  DEFINITIONS 
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901  004010 

004022" 

000000 

PPRO: 

.WORD 

NETPF, 0 

902  00401A 

064160 

071330 

.RAD50 

"P.PRO  ' 

903  004020 

000000 

.WORD 

°,  ,.  . 

904  004022 

004034' 

000000 

NETPF: 

.WORD 

NTUIC, 0 

905  004026 

125365 

077606 

.RAD50 

"SNETPF" 

906  004032 

000000 

.WORD 

0 

907  004034 

000000 

000000 

NTUIC: 

.WORD 

"Jntuic" 

908  004040 

125404 

102253 

.RAD50 

909  004044 

910 

911 

000000 

.WORD 

0 

;  COMEXEC  SYMBOLS 

912 
913 

.IF  NDF 

R$$MPL 

914  004046 

fEXSTB: 

915 

916  004046 

PDVTA: 

917  004046 

004060' 

000000 

.WORD 

CEAVL, 0 

918  004052 

125504 

106241 

.RAD50 

"SPDVTA" 

919  004056 

000000 

.WORD 

0 

920  004060 

004072' 

000000 

CEAVL: 

.WORD 

DLCOV, 0        ; 

921  004064 

124475 

004674 

.RAD50 

"SCEAVL 

922  004070 

000000 

.WORD 

0 

923 

924 

.IFF 

925 

CEXSTB: 

926 

.ENDC 

927  004072 

004104' 

000000 

DLCOV: 

.WORD 

CRCOV, 0 

928  004076 

015343 

125456 

.RAD50 

"DLCSOV" 

929  004102 

000000 

.WORD 

0 

930  004104 

004116' 

000000 

CRCOV: 

.WORD 

CEPWR, 0 

931  004110 

012623 

125456 

.RAD50 

"CRCSOV" 

932  004114 

000000 

.WORD 

0 

933  004116 

000000 

000000 

CEPWR: 

.WORD 

0/ 

934  004122 

124475 

063652 

.RAD50 

935  004126 

000000 

.WORD 

0 

PCS  PROTECTION  WORD  OFFSET 
NETWORK  POWERFAIL  RECOVERY 
NETWORK  UIC 

REFERENCE  POINT 
STARTING  ADDRESS  OF  PDVS 
CEX  POOL  LISTHEAD 

DLC  PROTOCOL  OVERHEAD 

CRC  OVERHEAD 

COMM/EXEC  POWERFAIL  RECOVERY  ROUTINE 


;[MP01] 


CMPOI] 
CMP01] 
CMPOI] 


936 
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9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
55 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
l,\ 
50 
51 
52 
53 
54 


.TITLE 

.IDENT 


VL8I0  -  VNP  LISRARV  BLOCK  I/O  ROUTINES 
/V05.00/ 


COPVRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BV 
DIGITAL  EQUIPMENT  CORPORATION,  MAVNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

HODiJlE  DESCRIPTION: 

VNP  -  LIBRARY  BLOCK  I/O  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00     16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS   VI. 1 

4.00     07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS   V2.0 

5.00     22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-llM-Plus   V3.0 
DECiiet-Micro/RSX   Vl.O 


N  U 
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194 
195 

Get  cofrmand  I 

ine/set  tunrtion 

196 

197 

198  000000 

000240 

$VNCP::  NOP 

199  000002 

005067 

000014" 

1$:     CLR 

E8UF 

200  000006 

005067 

OOOOOOG 

CLR 

$OPTON 

201  000012 

005067 

OOOOOOG 

CLR 

SCMAND 

202  000016 

005067 

OOOOOOG 

CLR 

$QUAL 

205  000022 

005067 

OOOOOOG 

CLR 

STVPE 

204  000026 

012700 

OOOOOOG 

MOV 

*RQB,RO 

205  000032 

012^01 

000050 

MOV 

#40.,R1 

206  000036 

005020 

10$:    CLR 

(R0)  + 

207  000040 

005301 

DEC 

Rl 

208  000042 

001375 

BNE 

10$ 

209  000044 

042767 

OOOOOOG 

OOOOOOG 

BIC 

**C<VF.SS:VF.IN 

210  000052 

012701 

001400 

MOV 

#<3«400>,R1 

211  000056 

012702 

OOOOOOG 

MOV 

#KEVTAB,R2 

212  000062 

012705 

OOOOOOG 

MOV 

#PARTAB,R5 

213  000066 

CALL 

SGTPLN 

214  000072 

103107 

BCC 

20$ 

215  00J074 

216 

217 

218 

219  000076 

102467 

BVS 

15$ 

Syntax  error 

SAVRG 

<R3,R4> 

220  000102 

012767 

000106' 

000044' 

MOV 

#CRLF,GBUF 

221  000110 

012767 

000006 

000046' 

MOV 

#LCRLF,GLEN 

222  000116 

223 

224  000124 

DIRS 

#GMSG 

016767 

OOOOOOG 

000044' 

MOV 

$CLBUF,GBUF 

225  000132 

011667 

000046' 

MOV 

(SP),GLEN 

226  000136 

166767 

OOOOOOG 

000046' 

SUB 

$CL8UF,GLEN 

227  000144 

003403 

BLE 

12$ 

228  000146 

D]R$ 

#GMSG 

229  000154 

12$: 

230  000154 

012767 

000104' 

000044' 

MOV 

*MARKER,GBUF 

231  000162 

012767 

000002 

000046' 

MOV 

#LMARKFR,GLEN 

232  000170 

233 

234  000176 

DIRS 

*GMSG 

RESRG 

<R4,R3> 

235  000202 

010400 

MOV 

R4,R0 

236  000204 

060300 

ADD 

R3,R0 

237  000206 

112720 

000015 

Move 

*<.15>,(R0)  + 

238  000212 

005203 

INC 

P3 

239  000214 

010467 

000044' 

MOV 

R4,G8UF 

240  000220 

010367 

000046 ' 

MOV 

R3,GLEN 

241  000224 

242 

243  000232 

DIR$ 

*GMSG 

ERRORS 

SYNERR.WARN 

244  000252 

000653 

BR 

IS 

245 

246 
247 
248  Or'^?54 

•  rheck  GCL  error 

012767 

000011 

OOOOOOG 

15$:    MOV 

#LS.Xn,RCIB5T 

249  00'^262 

122777 

OOOOOOG 

OOOOOOG 

CMPe 

*IE.E0F,a$rLI0S 

250  000270 

001413 

8E0 

EOJ 

Indicate  no  error  yet 
Initialize  parse  variables 


Zero  out  the  entire  request  block 


>,$VFLAG  ;  Clear  transitory  states 
Match  at  least  3  chars 
Point  at  keyword  table 
Point  at  state  table 
Get  a  parsed  i ine 
If  cc,  no  problem 
If  us,  gel  error 


Save  parse  pointers. 
Start  a  new  line. 


Point  to  beg  of  cmd  line. 

Length  of  parsed  portion. 

If  anything  was  parsed. 

Print  parsed  portiofi  of  cmd  line. 

Point  to  marker  string. 

Mark  unparsed  portion. 


Find  e 


line. 


and  insert  cr. 
Update  char  count. 


Print  unparsed  portion  of  cmd  line. 

Say  "Syntax  e'ror". 
Get  ne/t  line. 


Assume  exit  function 
Just  an  end-of-file  ? 
If  eq,  yes  . .  okay 


_J 


N  IS 
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881  005566 

88? 

883 

88^ 

88S 

886  003606 

887  003606 

888  0036H 

889  003616 

890  003616 

891  00362'. 

892  003626 

893  003626 
89',  00363'. 

895  003636 

896  003636 

897  00364'. 

898  005650 

899  00365', 

900  003656 

901  003662 

902  003666 

903  003670 
90;,  003674 

905  003676 

906  003700 

907  00370'i 

908  003706 

909  003712 

910  003716 

911  003722 

912  003726 

913  003730 
9^ 

915 
916 
917 

918  003750 

919  00375'; 

920  003756 

921  003764 
'^22  003766 
'/23  003774 

924  003776 

925  004004 

926  004006 
927 

928 
929 
930 

931  004026 

932  004032 

933  004036 

934  004042 

935  004044 

936  004050 
937 


101$: 


ERRORS  ILLPRI 


116767  OOOOOOG  000060' 
1167t)7  OOOOOOG  OOOiol ' 
016767  OOOOOOG  000062' 


Alias  scoce  device  name 
tsCOPI:; 


016767 
016700 

103425 
0167U0 
120067 
103766 
120067 
101363 
005046 
116716 
162600 
016701 

066701 
010167 


OOOOOOG  OOOOOOG 
000060' 


000062' 
OOOOOOC 


$SC0P2: 

$SC0P3: 

SSCOND: 
101: 


OOOOOOC 

OOOOOOC 

OOOOOOC 

OOOOOOC 
00001 6G 


101$: 


M0V8 
RETURN 

'movb 

RETURN 

'mov 

RETURN 

'mov 

MOV 

CALL 

BCS 

MOV 

CMP8 

BLO 

CMPB 

BHI 

CLR 

MOVB 

SUB 

MOV 

CALL 

ADD 

MOV 

RETURN 

ERRORS 


.PCHAR.SCODV 


.PCMAR.SCODVO 


.PNUMB.SCOUN 


$DEVHD,$BFR 

SCODV.RO 

FNDDCB 

101$ 

SCOUN.RO 

R0,$8FRi-n.UN]T 

lOi 

R0,$8FRtD.UN]T+1 

lOi 

-CSP) 

$BFR+D.UN!T,(SP) 

(SP)t,RO 

$aFR+D.UCBL,R1 

$MUL 

$BFR<-t.UCB,R1 

RI.RQB+LR.UCB 

NSTERM 


005767  OOOOOOG 

001014 

022767  160000  OOOOOOG 

101010 

032767  000003  OOOOOOG 

001004 

016767  OOOOOOG  00001 6G 


016700  OOOOOOG 

162700  000022 

005767  OOOOOOG 

003407 

026700  OOOOOOG 

002004 


Secondary  csr  ualue 
SSCSR: 


101$: 


TST 

BNE 

CMP 

BHI 

BIT 

BNE 

MOV 

RETURN 

ERRORS 


Store  device  name 

Second  half  ot  device  name 

Store  unit  number 


Get  start  of  device  list 
Get  scope  device  name 
Try  to  find  the  DCB 
If  cs,  no  luck 
Pick  up  scope  unit  number 
is  this  the  right  DCB  ? 
If  to,  no  . .  keep  looking 
:  Really  ? 

If  hi,  no  ..  keep  looking 
Get  startin  unit  number 

Minus  starting  unit  number 
Get  length  of  each  UCB 
Get  offset  to  prooer  UCB 
Point  to  UCB 
Save  UCB  address 

Terminal  not  in  system 


.PNUMH 

101$ 

#1 60000,. PNUMB 

101$ 

#3,. PNUMB 

101$ 

. PNUMB, RQB+LO. SCR 

ILLUCS 


NSP  segment  size> 


ISEG:: 


MOV 

sue 

TST 
BLE 
CMP 
BGE 


$RDBSZ,RO 

#18.,R0 

. PNUMB 

101$ 

. PNUMB, RO 

101$ 


Must  be  single  precision 
An  i/o  page  address 
And  a  multiple  of  4 
;  Set  secondary  csr  value 


GET  RDB  SIZE 
MINUS  NSP  OVERHEAD 
CHECK  LOWER  LIMIT 
IF  ERROR  -  BRANCH 
CHECK  HIGH  LIMIT 
IF  ERROR  -  BRANCH 


D 
E 

F 
G 
H 
I 
J 
X 
L 

N 
B 
C 
D 
B 

F 

G 
H 
I 
J 
< 
L 
M 
N 
S 
C 
D 
E 
F 
G 
H 
I 
J 
< 

n 

B 

C 
D 
E 
F 
G 
H 
I 


? 

2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 

/. 
I 

4 

4 

4 

t; 

5 

5 
5 
5 
5 
5 
<; 


VFPRDT 


VFPRNW 


M  5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 


VFPX29 


VFPX3P 


B  8 

C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 


B  10 
C  10 
D  10 


8  VHDAT 


8  VHELP 


VIMI 


VIMO 


VIM] 


L  13 


VLB  10 


VNCP 


M  U 
N  U 
S  15 
C  15 
D  15 
E  15 
F  15 
G  15 
H  15 
I  15 
J  15 
K  15 
L  15 
H  15 
N  15 
8  16 
C  16 
D  16 
E  16 
F  16 
G  16 
H  16 
I  16 
J  16 
K  16 
L  16 
M  16 


B  1 

VNCP  -  VNP  GET  COMMANDS  NCP  STY  MACRO  V05.03b  Saturday  29-Jun-85  02:44  Page  13 
STORID  -  S'-ire  id-string  according  to  -lystem  type 


U37 

K38 

1439 

K40 

HA1 

U42 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1A58 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 


006416 
006416 
006420 
006422 
006424 
006430 
006434 
006436 
006440 
006446 


.SBTTL  STORID  -  Store  id-string  according  to  system  type 
**♦  STORID  -  Store  id-string  according  to  system  type 
FUNCTION 

This  routine  is  used  to  check  and  store  various  parameters 
during  the  parsing  of  VNP  commands.  In  PSI  V2.0  compatible 
systems,  it  checks  for  and  stores  parameters  in  PSI  V2.0 
coirpatible  format.  In  extended  systems,  id-strings  of  up 
to  MAXID  characters  are  permitted  and  stored  appropriately. 
The  buffer  is  padded  with  spaces.  The  length  returned  in  the 
bu'fer  is  the  maximum  length  for  old-format  systen.s  (fixed 
fields)  or  the  actual  length  for  new-format  systems  (variable 
fitlds). 


INPUTS 


RO     -  address  of  buffer  to  contain  string  prefixed  by  length 
R1     -  maximum  length  of  string  in  old-format  system 

(Ri  <  maxid; 

.PSTCN  -  actual  length  of  string 
SPFLAG  -  PSI  system  type  flags 


OUTPUTS 


RO,  R1,  R2  destroyed 

String  and  length  stored  in  buffer 

Carry  set  if  invalid  string  length  for  system  type 


010046 
010146 
105020 
012701 

012601 
012602 
032767 

001005 


STORID: 


000020 


OOOOOOG  OOOOOOG 


1478 

1479  006450 

026701 

OOOOOOG 

1480  006454 

101020 

1481  006456 

11012? 

1482  006460 

000406 

'483 

1484  006462 

026727 

OOOOOOG  0000 

1485  006470 

101012 

•'486  006472 

116722 

OOOOOOG 

1487 

1488 

1489 

icon   006476 

016701 

OOOOOOG 

14   006502 

016700 

OOOOOOG 

1492  0065C6 

1493  006512 

000241 

MOV 

RO.-CP) 

MOV 

Rl.-(SP) 

CLRB 

(R0)  + 

MOV 

#MAXID,R1 

CALL 

SPFILL 

MOV 

(SP)+,R1 

MOV 

(SP)t,R2 

BIT 

#PF.XDF,$PFLAG 

BNE 

20$ 

CMP 

. PSTCN, Rl 

BHI 

99$ 

MOVB 

R1,(R2)+ 

BR 

30i 

50$:    CK' 

. PSTCN, *MAXID 

BHI 

99$ 

MOVB 

. PSTCN, (R2)^ 

;  Move  string 

to  buffer 

50$:    MOV 

. PSTCN, Rl 

MOV 

.PSTPT,RO 

CALL 

MOVE 

CLC 

Save  buffer  address 

Save  maximum  lent/th 

Clear  lergth  field  in  output 

Always  clear  MAXID  spaces 

Restore  length 

Get  back  buffer  address 

Check  for  extened  data  format 


Old  format,  so  use  max  length  in  Rl 

HI,  then  string  too  long 

Set  length  to  maximum  for  fixed  field 


New  format,  max  length  is  MAXID 

Set  actual  length  for  variable  f'eld 


Get  address  of  source 

Move  string  to  buffer 
Signal  success 


;[TD00n 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD001] 
;I:TD001] 
;[TD001] 
;CTD00n 
;tTD001] 
;CTD001] 
;[TD001] 
;[TD001] 
.-TTDOOI] 
;tli)001] 
;l)0001] 
;[TD001] 
;CTD0013 
;CTD001T 
;CTD001] 
;[T0001] 
;[TD001] 
.-rTDOOl] 
;LTD00i: 
;[TD001] 
;[TD001] 
.-CTDOOI] 
;[TD001] 
; CTDOOI] 
.■CTDOOI] 
.■CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
; CTDOOI] 
;  CTDOOI] 
.■CTDOOI] 
.CTDOOI] 
; CTDOOI] 
.•CTDOOI] 
; CTDOOI] 
; CTDOOI] 
.-CTDOOI] 
.-CTDOOI] 
; CTDOOI] 
,- CTDOOI] 
; CTDOOI] 


C  I 
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VNCP       CREATED  BY  MACRO  ON  29-JUN-85  AT  02:A4 
SYMBOL  CROSS  REFERENCE 


B  2 

PAGE  5 

CREf   O-l.&O 


VN 


SYt.jQL 

VALUE 

REFERENCES 

OF'^INS 

=  000001 

#5-61 

OFiLCS 

=  000100 

#5-61 

OFSOFF 

=  000002 

#5-61 

OF  SON 

=  000000 

#5-61 

OFSSMC 

=  000200 

#5-61 

ONAMTL 

001151  R 

#5-164 

5-164 

OPSADD 

=  000200 

#5-61 

OPSALL 

=  000200 

#5-61 

opsrcs 

=  OOOOOA 

#5-61 

OPICIE 

=  004000 

#5-61 

7-385 

OPSCON 

=  OOOAOO 

#5-61 

OPICOP 

=  000001 

#5-61 

UPSCOS 

=  000100 

#5-61 

OPSDST 

=  000200 

#5-61 

OPSUTE 

=  000040 

#5-61 

OPSDUP 

=  000002 

#5-61 

OPSEST 

=  000100 

#5-61 

OPSEVE 

=  010000 

#5-61 

OP$F!L 

^  000200 

#5-61 

OPSGRP 

=  000100 

#5-61 

OPSHOS 

=  0C0001 

#5-61 

OPSHTM 

=  000002 

#5-61 

OPSINA 

=  004000 

#5-61 

OPSINC 

=  001000 

#5-61 

OPSKDS 

=  002000 

#5-61 

OPSKDT 

=  000400 

#5-61 

OPSKEV 

=  001000 

#5-61 

OPSKGR 

=  001000 

#5-61 

OPSKNT 

=  010000 

#5-61 

OPSKSK 

=  002000 

#5-61 

OPSLCT 

=  000200 

#5-61 

OPSLNE 

^  000040 

#5-61 

7-385 

OPSLOC 

=  000001 

#5-61 

#5-61 

0P$L3T 

=  000002 

#5-61 

OPSLTM 

=  000001 

#5-61 

OPSLVL 

=  000010 

#5-61 

OPSMAC 

=  000010 

#5-61 

OP$MC0 

=  000002 

#5-61 

OP$MDE 

=  000400 

#5-61 

OPSMLI 

=  00000". 

#5-61 

OPSMON 

=  000100 

#5-61 

OPSMST 

=:  000020 

#5-51 

OP$NAM 

=  000004 

#5-61 

#5-61 

OPINE T 

=  004000 

#5-61 

OPSNLI 

=  000002 

#5-61 

OPJNOD 

=  000020 

#5-61 

7-385 

OPSOUT 

=  002000 

#5-61 

OPSOWN 

=  000020 

#5-61 

OPJPAR 

=  000010 

#5-61 

OPSPRI 

=  000010 

#5-61 

OPtRET 

=  010000 

#5-61 

OPSRPA 

=  000010 

#5-61 

7-842 


#5-61 


VNCP 
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bPANK  -  VNP  EXIT  AND  PANIC  EXIT  ROUTINE 


155 

ISA 
T55 
156 
157 
158 
159  000130  000167  OOOOOOG 


.SBTTL  SPANK  -  VNP  EXIT  AND  PANIC  EXIT  ROUTINE 
-$PANIC-ALL  EXITS  GO  THROUGH  HERE 


SPANK:  :JMP 


EVXIT 


;  EXIT  AS  GRACEFULLY  AS  POSSIBLE 


C     3 

/NP  -  VIRTUAL   NET,/ORK   COMMAND  P  MACRO  V05.03b  Saturday   29-Jun-85  02:15     Page  9 

iDnr     _    DDnrccc     CDCriA;      DPnilCQT': 
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VNP  -  VIRTUAL  NETUOPK  COMMAND  P  MACRO  V0^.03b  Saturday  29-Jun-85  02:A5  Page  16-1 
SSPRO  -  SET  PROCbS? 


613  00201A  0002'.1 

61A  002016 

615 

616 

617 

618 

619  002030 

620  002020 


CLC 
30$:    RETURM 

ERROR  CONDITION 

CALLR   $XPRO 


10 


INDICATE  SUCCESS 


DO  A  PARTIAL  "CLEAR  PROCESS' 


C     4 
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VNP       CREATED  BY  MACRO  ON  29-JUN-85  AT  02:^5 
SYI'BCL  CROSS  REFERENCE 
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PAGE  5 

CREF   OA.OO 


SYMBOL   VALUE 

QFSLOO  =  000010 
ROB     =  »****»  GX 


R$$EIS 

R$$MPL 

R$$nD 

SC 

SET 

SYSFDB 

TYSCHA 

TYSEVE 

TYSSTA 

TYtSUM 

UNS1 

VF.ECH 

VF.NTl 

'..".rM 

WC.FVF 

WC  .  '  -. ! 

WC.UN' 

ZF.MFL 

ZF.PSE 

Z.FLG 

Z.NAM 

Z.PCB 

SALADJ 

SALECL 

SALMHC 

SALTLC 

SBFR 

SB  I  AS 

SCACH 

tCCEX 

$CKT 

SCLFLG 

SCLIN 

SCLSAV 

SCNOD 

ICPRO 

SCSRLD 

SDALI 

SDCIR 

SDDMPV 

SOlCPV 

SDLIN 

SDLOG 

iomv 

IDNOD 
SDOBJ 
SDPRO 


****** 
****** 
****** 
001572 
001600 

t ***** 

OOOAOO 

001000 

002000 

000000 

000650  R 

****** 

****** 

000400 

004000 

002000 

001000 

****** 
****** 
****** 
****** 
****** 


GX 


GX 
GX 


»***»* 
****** 
*♦♦*** 


r  ****** 


****** 
****** 
****** 
****** 
****** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
CX 
GX 
GX 
GX 
GX 
GX 


REFERENCES 

#5-69 
9-174 

»10-248 

♦12-370 
15-544 
15-526 
5-62 
15-526 
15-516 
15-516 

•20-790 

#5-69 

#5-69 

#5-69 

#5-69 
11-306 
11-288 
11-299 

#5-69 

#5-69 

#5-69 

#•^-69 
16-612 
16-577 
16-577 
10-222 
16-571 
16-598 
16-607 
16-601 
19-767 
20-791 

*20-787 
16-594 
13-438 
16-596 

.11-279 
13-440 
11-278 
13-447 
13-439 
19-763 
13-458 
13-463 
17-650 
19-734 
13-455 
13-459 
13-465 
13-457 
13-460 
13-456 


10-222 
^: 1-298 
»1 2-371 

15-544 

5-71 

15-520 
15-528 


#11-310 


10-208 

12-328 
10-208 


*16-612 
10-242 
20-785 


*20-791 


19-746 


10-229 
12-340 
-  -372 
,   -544 

19-756 

15-528 
#15-53C 


10-236 

12-347 

02-374 


15-532 


•10-242 
12-354 
15-514 


15-542 


»10-243 

•12-360 

15-518 


13-544 


*10-244 

•12-361 

15-523 


#15-548 


•10-245 

•12-362 

15-530 


10-246 

•12-363 

15-542 


10-227 


^0-234 


20-780 
12-340 


12-328 


12-328 


12-360 


12-345 
12-352 

16-589  16-605  20-784 


VNP 


CREATED  8Y     MACRO     ON  29-JUN-85   AT   02:45 
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C     5 


VNTI  - 

JHP   NE 

Table  0 

f  cont 

70- 

3??4 

71- 

3r'4/ 

72- 

3270 

73- 

3295 

7A- 

V,H 

75- 

3  338 

76- 

338A 

77- 

3A28 

78- 

34S3 

79- 

3A73 

80- 

3519 

81- 

35A9 

82- 

3568 

85- 

3591 

8A- 

3617 

85- 

3635 

86- 

3655 

87- 

3705 

83- 

3/32 

89- 

3771 

90- 

3805 

102- 

4417 

103- 

AA76 

105- 

A685 

106- 

4717 

107- 

4  764 

108- 

4796 

109- 

4839 

110- 

4867 

B  6 

VNTI  -  VNP  NETWORK  INITIALIZATI  MAC^O  VO5.03b  Saturday  29-Jun-85  02:46 


ACTION  ROUTINE:  MAXIMUM  NUMBER  OF  NODES  SEEN 

ACTION  ROUTINE:  MAXIMUM  COST  SEEN 

ACTION  ROUTINE:  MAXIMUM  NUMBER  OF  HOPS 

ACTION  ROUTINE:  ROUTING  TIMER 

ACTION  ROUTINE:  MAXIMUM  AREA 

ACTION  ROUTINE:  BROADCAST  ENDNODES 

ACTION  ROUTINE:  AREA  MAX  COST 

ACTION  ROUTINE:  EVENT  CLASS  NUMBER  FOUND 

ACTION  ROUTINE:  EVENT  TYPE  MASK  SEEN 

ACTIuN  ROUTINE:  SET  UP  FILTER  CONTROL  BLOCK 

FINFIL  -  FIND  PLACE  TO  INSERT  FILTER  BLOCK 

ACT:0N  ROUTINE:  SET  LOGGING  STATE 

ACTION  ROUTINE:  OBJECT  NUMBER  SEEN 

ACTION  ROUTINE:  OBJECT  NAME  SEEN 

ACTION  ROUTINE:  VERIFICAiJON  LEVEL  SEEN 

ACTION  ROUTINE:  OBJECT  FLAGS  SEEN 

ACTION  ROUTINE:  OBJECT  COPIES  SEEN 

FINOBJ  -  FIND  PLACE  TO  INSERT  OBJECT 

FINREM  -  FIND  PLACE  FOR  A  REMOTE  NODE  BLOCK 

QUICK  -  FAST  REMOTE  NODE  PROCESSING 

F!L$DF/SER$Dr  ACTION  ROUTINES 

CRFNBK  -  CREATE  FILENAME  DESCRIPTOR  BLOCK 

.FLBKO  -  FILE  NAME  BLOCK  PROCESSING 

QINS  -  INSERT  ENTRY  INTO  QUEUE 

PERFORM  'MARKED  FOR  LOAD'  SCAN 

REQUEST  NETLOADER  TO  LOAD  A  LINE 


VI 
N' 


REQUEST  NETLOADER  Ty  LOAD 
REQUEST  NETLOADER  TQ  LOAD 
REQUEST  NETLOADER  TO  RUN 


A  DLM  CIRCUIT 
A  PROCESS 


C  6 

V^'T1  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46 
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VNII  -  VNP  NETWORK  IMTIALlZATi  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  10 
Mlv.'ARN  -  N''MIT  WARNING  HANI[)LING 


566 
567 
568 
569 
570 

57: 

572 
573 
57A 
5^5 
576 
577 
578 
579 

580  001554 

581  001554 

582  001560 

583  001566 

584  001572 

585  001600 

586  001606 

587  001614 

588  001622 

589  001626 

590  001630 

591  001632 

592  001636 

593  001642 

594  001646 

595  001652 

596  001660 

597  001664 

598  001666 

599  001672 

600  001674 

601  001700 

602  00^704 
001706 
001712 

605  001716 

606  001724 

607  001 "32 
608 

609 

610 

611 

612  00173^ 
001737 
00174? 
001745 
001750 

613 

614  001752 
001755 
001760 
001763 
001766 


603 
604 


.SaTTL 
»**  -  NTUARN 
INPUTS: 


NTUARN  -  NTINIT  WARNING  HANDLING 
-  WARNING  HANDLING 


010067 
016667 

012767 
012767 
012767 

116700 
006300 
006300 
062700 
012067 
011067 
005067 

012700 
010003 
016001 
005002 

112720 
160300 
010367 
010067 
012767 


126 

O'-O 

o-o 

111 

052 

000016 
126 
040 
040 
IQi 
111 


000220 

000002  000210 


RO  =  NUMBER  TO  EE  PRINTED 
2(SP)  =  ERROR  NUMBER 

OUTPUTS: 

MESSAGE  PRINTED  ON  TERMINAL 
ALL  REGISTERS  PRESERVED 


NTWARN: 


001752' 

000024 

000044 

000150 


000222 
000216 
000212 


002032' 
J00160 
000156 
000154 

001776' 

000002 

000056 

000110 
000106 
000053 


116 
055 
052 
101 
040 

116 
055 
052 
122 
116 


000102 


120 
055 
104 
107 


120 
055 
127 
1'6 
107 


MOV 

R0,SBUF+2 

MOV 

2(SP),SBUF 

CALL 

SSAVAL 

MOV 

OPREWRN.QIOtQ.IOPL 

MOV 

*PREWLN,QI0+Q.I0PL+2 

MOV 

#'S,QI0+Q.IOPL+4 

DIRS 

#QIO 

MOVB 

SBUF.RO 

ASL 

RO 

ASL 

RO 

ADD 

#ERRTAB-4,R0 

MOV 

(R0)  +  ,QIO<-Q.IOPL 

MOV 

(R0),QIOtQ.IOPL+2 

CLR 

QIO+Q.IOPL+4 

DIRS 

*QIO 

MOV 

#S8UF,R0 

MOV 

R0,R3 

MOV 

2(R0),R1 

CLR 

R2 

CALL 

SCBDSG 

M0V8 

#<'.>,(Rf'lt 

sue 

R3,R0 

MCV 

R3,C)I0tQ.ICPL 

MOV 

R0,QI0tQ.I0PL+2 

MOV 

#'  +  ,QI0+CI.I0PL+4 

DIRS 

#QI0 

RETURN 

;  PREFIX  MEGGA 

,E 

PREFIX:  .ASCII 

"VNP  —  'DIAG*  " 

PREwRN: 


PRELEN=. -PREFIX 
.ASCII   "VNP  -- 


-WARNING" 


SAi/E   NUMBER 

GET  ERROR  NUMBER 

SAVE  ALL  REGISTERS 

ADf^RESS  OF  PREFIX 

LENGTH  OF  PREFIX  MESSAGE 

CARRIAGE  CONTROL 

PRINT  PREFIX  MESSAGE 

GET  ERROR  NUMBER 

CONVERT  TO  DOUBLE  WORD  INDEX 

POINT  INTO  TABLE 

STORE  ADDRESS  OF  MESSAGE 

AND  LENGTH 

NO  CARRIAGE  CONTROL 

PP'NT  MESSAGE 

POiNT  AT  SCRATCH  BUFFER 

SAVE  START  OF  BUFFER 

GET  NUMBER  TO  CONVERT 

ZERO  SUPPRESSION 

CONVERT  TO  SIGNED  DECIMAL 

INSERT  PERIOD 

CALCULATE  LENGTH  OF  BUFFER 

SET  ADDRESS  OF  BUFFER 

AND  LENGTH 

CARRIAGE  RETURN 

PRINT  NUMBER 


VNTI  -  VNP  NETWORK  IMTIALiMTI  MACRO  V05.05b  Saturday  29-Jun-85 
MTJARM  -  NTINiT  WARNING  HANDLING 


02:4 


6  Page  '0-1 
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VNTI  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.'J3b  Saturday  29-Jun-85  02:46 
STATE  TRANSITIONS  FOR  ESTIMATING  NTPOOL  SIZE 


Page  19 


1137 

1138 
1139 
1U0 
1U1 
1K2 
1143 

1T,4 

1;45 
1U6 
1K7 
1U8 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
11i6 
11o7 
1168 
1169 
1170 
1171 
1172 
1173 
1174 


003632 

003632 
003632 
003632 
003632 
003632 
003652 
C03632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 


.SBTTL   STATE  TRANSITIONS  FOR  ESTIMATING  NTPOOL  SIZE 
ISTATS  IBUF.KBUF 


STATES 
TRANS 

STATES 
TRANS 

st;,tes 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 

TRANS 
STATES 


XBUFSDFX,,,1,CFSFLG    ;  SIGNAL  THAT  MACRO  WAS  FOUND 


SNUMBR 
<'  .> 
SNUMBR 

SNUMBk,,.N1 
<'  ,> 

$NUfieR,,.N2 
<'  -> 

SNUMBR,,. Nl 
<'  ,> 

SNUMBR,,.  N3 
<'  ,> 
SNUMBR 

SNUMBR, SEX  I T,.N4 


;  NUMBER  OF  CCBS 


SIZE  CCBS 


NUMBER  OF  RDBS 


SIZE  OF  RDBS 


NUMBER  OF  SDBS 


SIZE  OF  SDBS 


RbB  THRESHOLD 


MAX  DLC  OVERHEAD 


C  8 

vNTI  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46 
STATE  TRANSITIONS  FOR  FINDING  NETWORK  POOL  PARTITION 
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CFGMFL  -  CETAB  SCANNER  FOR  NETWL;,K  INITIALISER 


1641 

1642 

1643 

1644 

1645 

•■646 

1647 

1648 

OOOOCi 

1649 

000002 

1650 

000003 

1651 

000004 

1652 

000C1C 

1653 

000020 

1654 

000040 

1655 

000100 

1656 

000200 

1657 

000400 

1658 

001000 

1659 

002000 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

000074 

1667 

000076 

1668 

.SBTTL   CFGMFL  -  CETAB  SCANNER  FOR  NETWORK  INITIALISER 
.SBTTL   DEFINE  LOCAL  DATA  AREAS 


DEFINE  TYPE  CODES  FOR  MACROS 


MC.SLT=1 

MC.LLC=2 

MC.DLC=3 

MC.DDM=4 

MC.NOD=10 

MC.OBJ=20 

MC.REM=40 

MC.R0U=100 

MC.ADD^200 

MC.LOG=400 

MC.EVT=1000 

MC.STA=2000 


SLTSDF  SEEN 

LLCSDF 

DLCSDF 

DDMSDF 

NODSDF 

OBJ*nF 

REMSDF 

ROUSDF 

ADD$DF 

LOGSST 

EVTSDF 

STASDF 


DEFINE  SPECIAL  CHARACTERS  WE  CANNOT  USE  IN  TPARS  DEFINITIONS 


LBRA='< 
RBRA='> 
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PERFORM  CONFIGURATION  FILE  SCAN 
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VNTl    -   VNP   NETWORK    IfJl  T I AL  1  ZAT  ! 
NODiDF    PARSt    TABLES 

2053 
203A 
?035 
2036 
2037 

2038  006324 

2039  00632A 

2040  006324 

2041  006324 
204?  006324 
2045  006524 

2044  006324 

2045  006524 

2046  006324 

2047  006324 

2048  006524 

2049  006324 

2050  006524 

2051  006524 

2052  006324 

2053  006324 

2054  006524 

2055  00652'. 

2056  006324 

2057  006524 

2058  006524 

2059  006324 

2060  006324 
206''  006524 

2062  006324 

2063  006324 


B  10 
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.S8TTL   ''CDSDF  PARSE  TABLES 

STATE  TRANSITIONS  FOR  THE  'NODSDF'  MACRO 


STATES 

NODi  f 

TRANS 

LBRA,,.NODNM 

STATES 

TRANS 

ISTPING 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

LBRA,,.SVS1D 

STATES 

TRANS 

ISTRING 

STATES 

TRANS 

<'  .> 

STATES 

TRANS 

SNUM8R,,.N0DAR 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMBR,,.N0DN8 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUM8R,,.HSTAR 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUM8R,SEXIT,. 

C  10 
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OBJSDF    PARSE    TABLES 


VMTl    -   VNP    METWORK 
TPARS   STATF    TABLES 

2A61 
2A62 
2',63 

2i65 

2A66  00632^ 

2467  00632A 

2468  00632A 
2469 

2470  006324 

2471  006324 

2472  006324 
2473 

2474  006324 

2475  006324 

2476  006324 
2477 

2478  006324 

2479  006324 

2480  006324 
2481 

2482  006324 

2483  006324 

2484  006324 
2485 

2486  006324 
cMj^  006324 
2488  006324 
2489 

2490  006324 

2491  006324 

2492  006324 
2493 
2494 

2495  006324 

2496  006324 

2497  006324 
2498 
2499 

2500  006324 

2501  006324 
2502 

2503  006324 

2504  006324 
2505 
2506 
2507 

2508  006324 

2509  006324 

2510  006314 
2511 

2512  006324 

2513  006324 
2514 

2515  006324 

2516  006324 
2517 


B  11 
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-  SERSOr 


SERSDF  STATE  TABLE  CONTINUED 


STATES  E 

TRAMS  <',>,F 

TRANS  $STRNG,,PAS,SF.PS5,SERfLG 

STATES 

TRANS  SE0S,SEX1T,SEREND 

TRANS  <',> 

STATES  F 

TRANS  <',>,G 

TRANS  SNUM8R,,DADDR,SF.DPA,SERFL 

STATES 

TRANS  SEOS,SEXIT,SEREND 

TRANS  <',> 

STATES  G 

TRANS  <',>,H 

TRANS  SNUM8R,,DCT,SF.DPC,SERFLG 

STATES 

TRANS  SEOS,SEXIT,SEREND 

TRANS  <',> 

STATES  H 

TRANS  <',>,! 

TRANS  SSTRNG,,HRDADD,SF. HAD, SERF LG 


STATES 
TRANS  $EOS,SEXIT,SEREND 
TRANS  <',^ 


STATES  I 

TRANS  J;SF.FH3/',,SEXIT,SEREND,SF.PH3,SERFLG 

STATES 

TRANS  :END 


STATES  SERST 

TRANS  <'.>,MULP 

TRANS  <'-•>, MUXP 

STATES  MUXP 

TRANS  SNUMeR,ZAS,SERMUX 

STATES  MULP 

TRANS  SNUM8R,,SERMUL 


C  11 
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TPARS  STATE  TABLES  -  SERSDF 


VNTl  -  VNP  NETWORK  INiriALIZATl  MACRO  V05.03b  Saturday  29-Jun-85 
ACTION  ROUTINE:  NODE  NAME  SEEN 


52:46 
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271.^ 

27A5 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

27~i 

2780 


007056 
007056 
007064 
007104 

007112 
007120 
007124 
007132 

007140 
007144 
007150 
007154 
007156 
007162 
007164 
00716O 
007170 
007172 
007176 

007200 
007202 

007204 
007206 
007214 

007234 


.SBTTL  ACTION  ROUTINE:  NODE  NAME  SEEN 

•♦-.NODNM-NODE  NAME  SEEN 

THE  NODE  NAME  HAS  BEEN  FOUND  IN  THE  'NODSDF'  MACRO. 


.NODNM: 


016767 
005267 
012767 
012767 

016746 
016700 
012701 
112021 
121027 
001 Oo6 
005216 
005^16 
001405 
112721 
000773 

005316 
001364 

005726 


SWTCHI 

*$HMBUF 

GETRV 

$DECPT,*D$END 

SWTCHI 

OOOOOOu 

001116 

MOV 

.PSTPT.STRPTR 

001112 

INC 

STRPTR 

000006G 

001110 

MOV 

#$HM8UFtD$LNAr 

000006 

001100 

MOV 

#6,STRMAX 

001074 

MOV 

STRMAX,-(SP) 

001066 

MOV 

STRPTR, RO 

OOOOOOG 

MOV 

nSFR.RI 

5$: 

MOVB 

(R0)+,(R1)t 

000076 

CMP6 

BNE 

INC 

(R0),#'> 

10$ 

(SP) 

7$: 

DEC 
BEQ 

(SP) 
15$ 

000040 

MOVB 
BR 

#40,(R1)t 
7$ 

'0$: 

DEC 
BNE 

(SP) 
5$ 

15$: 

TST 

SWTCHO 

PUTRC 

(SP)* 
.SYSNM,STPMAX 

RETURN 


USE  TEMP  BUFFER 

READ  DECNET  HOME  BLOCK 

RESET  DEFAULT  BUFFER 

SAVE  ADDRESS  OF  NEXT  BYTE 
WE  ARE  POINTED  AFTER  THE  "<' 
RADR  ;  PLACE  TO  PUT  THE  TEXT 
MAXIMUM  TEXT  LENGTH 

GET  NAME  SIZE 
GET  ADDRESS  OF  NAME 
GET  BUFFER  ADDRESS 
COPY  A  CHARACTER 
RIGHT  BRACKET  ? 
IF  NOT  -  BRANCH 
do  not  count  > 
COUNT  ONE  CHARACTER 
IF  DONE  -  BRANCH 
SET  SPACE 


COUN"  ONE  CHARACTER 
IF  MORE  -  BRANCH 

CLEAN  STACK 

UPDATE    IMAGE 

WAIT    FOR    THE    ">"   (.STRNG) 


NOW 
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ACTION  ROUTINE:    NODE   NUMBER   SEEN 


Page  62 


VNTI  -  VNP 
ACT! DM  ROU 

32A7 
32A8 
12'^9 
3250 
3251 
3252 
3253 
325A 
3255 

3256  01 

3257  01 
3258 

3259  01 

3260  01 

3261  01 

3262  01 

3263  01 
326A  01 
3265 
3266  01 
3267 
3268  01 


B  13 

'>IEIWORK  !^JlTlALIZATi  MACRO  V05.03b  Saturday  29-Jun-85  02:^6  Page  71 
TINE:  MAXIMUM  COST  SEEN 

.SBTTL  ACTION  ROUTINE:  MAXIMUM  COST  SEEN 

«••  -  .RCOST  -  MAXIMUM  COST  SEEN 

INPUT: 

.PNUMB  =  MAXIMUM  COST  ALLOWED 


17A6 
17A6 

1766 
177A 
1776 
2004 
2006 
2012 

20U 

2020 


.RCOST: 


016767 
OOKOA 
022767 
103003 
062716 


OOOOOOG  000064G 
001777  OOOOCOG 
000002         10$: 

20$: 


GETRV 

$DECPT,*D$END 

READ  DECNET  HOME  BLOCK 

MOV 

BED 

CMP 

BHIS 

ADD 

RETURN 

. PNUMB, $BFRtD$MAXC 

10$ 

#MAXCS: ,. PNUMB 

20$ 

*2,(SP) 

STORE  THE  MAXIMUM  COST  FOR  NETWORK 

IF  ZERO,  ILLEGAL 

IS  THE  NUMBER  IN  RANGE  ? 

IF  HIS,  YES 

ELSE,  REJECT  TRANSITION 

PUTRC 

WRITr  cjACK  DECNET  HOME  BLOCK 

RETURN 

C  13 
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ACTION  ROUTINE:  MAXIMUM  NUMBER  OF  MOPS 


VNTl  -  VNP 

^<inoH  Rou 

3617 

5618 

5619 

5620 

5621 

5622 

5625 

562^ 

5625 

5626 

5627 

5628 

^629 

01 

■650 

01 

5651 

01 

5652 

01 

5655 

01 

B  K 

NETWORK  INITIAlJZATI  MACRO  V05.05b  Saturday  29-Jun-85  02:46  Page  S't 
TINE;  VERIFICAIION  LEVEL  SEEN 


INPUTS 


.SBTTL   ACTION  ROUTINE:  VERIFICATION  LEVEL  SEEN 
.OVPy  -  VERIFICATION  LEVEL  SEEN 

[PNUMB  =  THE  VERIFICATION  LEVEL 


OUTPUTS: 

TRANSITION  IS  ACCEPTED/REJECTED 


5556  116767  OOOOOOG  000062'  .OVFV::  MOVB  .PNUMB.FLAG 

536A  022767  000010  OOOOOOG        CMP  #10,.PNUMB 

5572  101002  BHI  10$ 

557A  062716  000002  ADD  #2,(SP) 

3A00  10$:    RETURN 


SET  VERIFICATION  LEVEL 

IS  VERIFICATION  LEVEL  IN  RANGE  ? 

IF  HI,  YES 

ELSE,  REJECT  TRANSITION 


C  K 
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ACTION  ROUTINE;    OBJECT    FLAGS   SEEN 
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VNIl  -  VNP  NETWORK  INITIALIZATI  MACRO  VO5.05b  Saturday  29-Jun-85  02:46  Page  95 
FILtDF/SERSDF  ACTION  ROUTINES 


PAS  -  SERVICE  BLOCK  PASSWORD 

INPUTS  - 

.PSTPT  -  ADDRESS  OF  PARSED  STRING 
.PSTCN  -  SI2E  OF  STRING 

OUTPUTS  - 

SERPAS  -  CONTAINS  SERVICE  BLOCK  PASSWORD 


4083 

408A 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095  015204 

010446 

4096  015206 

010346 

4097  015210 

012700 

000164' 

4098  015214 

112720 

000060 

4099  015220 

020027 

000204' 

4100  015224 

001373 

4101 

4102  015226 

012700 

000164' 

4103  015232 

066700 

OOOOOOG 

4104 

4105  015236 

016701 

OOOOOOG 

4106  015242 

016702 

OOOOOOG 

4107  015246 

010104 

4108 

4109  015250 

112240 

4110  015252 

005301 

4111   015254 

001375 

4112  015256 

012702 

000122' 

4113  015262 

012700 

000164' 

4114 

4115  015266 

4116  015272 

110312 

4117  015274 

4118  015300 

000241 

4119 

4120  015302 

006303 

4121    015304 

006303 

4122  015306 

006303 

4123  015^10 

v,06303 

4124 

4125  015312 

150322 

4'26  015314 

022702 

000132' 

4127  015320 

001362 

4128  015322 

012603 

4129  015324 

012604 

4130 

4131   015326 

PAS:: 
1$: 

MOV 
MOV 
MOV 

Move 

CMP 
BNE 

R'.,-(SP) 

P3,-(SP) 

*HEXSTR,RO 

*'0,(RO)t 

RO,#ENDHEX 

1$ 

MOV 
ADD 

*HEXSTR,RO 
. PSTCN, RO 

MOV 
MOV 
MOV 

. PSTCN, R1 
. PSTPT, R2 
R1,R4 

10$: 

MOVB 

DEC 

BNE 

MOV 
MOV 

(R2)+,-(R0) 

Rl 

10$ 

#SERPAS,R2 

#HEXSTR,RO 

20$: 

CALL 
MOVB 
CALL 
CLC 

HEXIND 

R3,(R2) 

HEXIND 

ASL 
ASL 
ASL 
ASL 

R3 
R3 
R3 
R3 

BIS8 

CMP 

BNE 

MOV 

MOV 

R3,(R2)t 

*ENDPAS,R2 

20$ 

(SP)*,R3 

(SP)+,R4 

RETURN 


SAVE  REG 

SAVE  TPARS  REG 

GET  BUFFER  ADDRESS 

FILL  IN  DEFAULT  VALUES 

END  OF  BUFFER  ? 

IF  NOT  -  BRANCH 

GET  TEMPORARY  BUFFER  ADDRESS 
STORE  SIRING  IN  REVERSE  ORDER 

GET  SIZE  OF  STRING 
GET  STRING  ADDRESS 
SAVE  STRING  LENGTH 

STORE  STRING  IN  WORK  BUFFER 

COUNT  ONE  LESS 

IF  MORE  -  BRANCH 

GET  PASSWORD  BUFFER  ADDRESS 

SET  START  ADDRESS  OF  PASSWORD 

CONVERT  FROM  HEX 

STORE  RESULT  IN  PASSWORD  BUFFER 

CONVERT  FROM  HEX 

CLEAR  C-BIT 

POSITION  VALUE 


STORE  RESULT  IN  PASSWORD  BUFFER 
CHECK  FOR  LAST  CHARACTER 
IF  MORE  -  BRANCH 
RESTORE  REG 
RESTORE  REG 


C  15 
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FIL$DF/SER$DF    ACTION  ROUTINES 


wn   -   VNP  NETWORK  INITIALIMTi  MACRO  V05.05b  Saturday  29-Jun-85  h:^6     Page  103-2 
.FLBKO  -  FILE  NAME  BLOCK  PROCESSING 


A589  017010 
A590  0170H 
4591  017020 
';592  017024 
4595 

4594  017050 

4595  017032 

4596  017034 
■  )97  017056 
'.598  017042 

4599  017046 

4600  017054 
46C1 

4602  017060 
4603 


016700 
016701 
110i67 
012702 

112022 
005301 
001575 
112712 
105267 
012767 
005C67 


000332' 
000204' 
000242' 
000243' 


000072 
000242' 
000266' 
000204' 


DEV:: 


1$: 


MOV  STRAD,R0 

MOV  SIRS,t',Rl 

MdVB  RI.DEVBUF 

MOV  *DEV8UFM,R2 


GET  STRING  ADDRESS 

GET  STRING  SIZE 

STORE  STRING  SI7E 

GET  STARTING  ADDf!ESS  OF  STRING 


000354' 


M0V8 

(R0;+,(R2)t 

STORE  BYTE 

DEC 

Rl 

COUNT  ONE  LESS 

BNE 

1$ 

IF  MORE  -  BRANCH 

M0V8 

*':,(R2) 

STORE  COLON 

INC8 

DEV8UF 

COUNT  THE  : 

MOV 

*FN8UFF,STRPT 

RlSET  START  OF  BUFFER  ADDRESS 

CLR 

STRSIZ 

INIT  COUNT 

RETURN 
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.fLBKO  -  FILE  NAME  BLOCK  PROCESSING 
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VNCP  -  VNP  GET  COMMANDS  NCP  STY  MACRO  V05.03b  Saturday  29-Jun-85  02:^^  Page  13- 
STORID  -  Store  id-string  according  to  system  type 


U9A  0065U 

1495 

1496  006516  000261 

149?  006520 

1498 


§9$: 


RETURN 

SEC 

RETURN 


Signal  string  too  long 


;[TD001] 
;[TD00n 
;tTD001] 
;CT[)001] 
;[Tr)001] 


D  1 
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VNCP       CREATED  Bv  MACRO  OM  29-JUN-85  AT  02:A^ 
SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


OPSSCO 

OPSSEG 

OPISER 

OPISINJ 

OPSSTA 

OPSTPA 

OPSTRI 

OPSUCS 

OPSUSE 

OP$VE' 

OPSVER 

OPSXAC 

OPSXPR 

0P$X5S 

0P$X9S 

OTSKTL 

PARTAB 

PASWTL 

PCKBCD 

PF.XDF 

PNAMTL 

PRNMTL 

PSWFTL 

QFSACT 

OFSALL 

QF$r.NQ 

QFSLOO 

Q.IOFN 

Q.IOPL 

RAD 

ROB 


=  000001 
=  OOOAOO 
=  OOOAOO 
=  000010 
=  000004 
=  000020 
=  OOOO'iO 
=  000020 
-  000002 
=  OOOOAO 
=  000040 
=  000001 
=  000002 
=  OOOOOA 
=  000010 
001347 

-   »#***« 

000637 
00620A 

000172 

000321 

001604 

=  000001 

=  000002 

=  000004 

=  000010 

=  000002 

=  000014 

006052 

r  ****** 


RQBST 

R$$EIS 

R$$11D 

SCODV 

SCOUN 

SPACE 

SPFILL 

STORID 

<:TRNAM 

SYNERR 

SYSFDB 

TRISTl 


GX 
R 
R 

GX 
R 
R 
R 


GX 


GX 


000060  R 
000062  R 
000040 
006  536  R 
006416  h 
004474  R 
000114  R 


GX 


00C737   R 


REFERENCES 

#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-168 
6-212 
#5-158 
7-507 
13-1476 
#5-148 
#5-151 
#5-173 
#5-61 
#5-61 
#5-61 
#5-61 
5-106 
5-107 
7-636 
6-204 
«7-436 
7-559 
*7-709 
•7-522 
»7-938 
7-1028 
«7-r25 
♦7-1260 
•6-248 
9-1355 
9-1355 
#5-116 
#5-117 
#5-79 
7-278 
7-265 
7-993 
#5-146 
•7-549 
•^-1005 
#5-160 


7-596 
7-600 
7-604 
7-608 
5-168 

5-158 
#9-1341 

5-148 
5-151 
5-173 


5-112 

5-113 

7-804 

7-263 
•7-452 
•7-572 
•7-720 
•7-823 
•7-965 
•7-1030 

7-1132 
•10-1368 

7-617 


•7-887 

5-118 

15-1537 

13-1473 

7-561 

7-1029 

5-146 
•7-780 
•7-1064 

5-160 
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7-809 
7-1148 


7-869 

7-1127 

7-490 


7-838 
7-275 

•7-454 

•7-640 

•7-732 

•7-831 

•7-966 
7-1048 
7-1159 
11-1404 


•7-890 
♦7-893 

#15-1533 

7-852 
#7-1034 

6-243 

•7-781 
»7-1065 
7-1208 


7-1185 


7-865 

7-279 

7-466 
•7-642 
•7-744 
♦7-840 

7-975 
•7-1050 

7-1169 

12-1428 


7-897 
7-900 


#13-1468 
7-1C49 

•7-782 
.7-1066 


7-1122 

7-309 

7-483 
•7-653 
•7-806 

7-850 

7-983 
•7-1054 
•^-1199 

12-1430 


VI 
PI 


#8-1286 
•7-346 

7-506 
•7-664 
♦7-807 
•7-867 

7-992 
•7-1078 
♦7-1201 


♦7-407 

♦7-513 

♦7-676 

♦7-819 

♦7-878 

•7-994 

•7-1079 

♦7-1219 


♦7-411 
7-536 
•7-687 
♦7-820 
♦7-911 
♦7-1017 
7-1096 
♦7-1235 


•7-422 

♦7-551 

•7-698 

•7-821 

•7-924 

•7-1018 

♦7-1124 

♦7-1237 


♦7-052 
•8-  ,517 


•7-953 


•7-954 


•7-1003 


•7-1004 


VNCP 
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161 

162 

163 

16^. 

165 

166 

167 

168 

169 

170 

171 

1^2 

173  00015A 

17A  0001 3A 

175  OOOUO 

176  OOOUA 

177  000U6 

178  000150 

179  000152 

180  00015'; 

181  000156 

182  000160 
183 

ISA 
185 
186 

187  00016A 

188  000170 
i89  00017A 
190  000200 


.SBTTL      PROC    -   PROCESS    SPECIAL    REQUESTS 
^ 
**-PROC-PROCESS   SPECIAL   REQUESIS 

INPUTS: 

ROB  =  FUNCTION  REQUST  RLOCK 

OUTPUTS: 

NONE. 


116700  OOOOOOG 

012701   00016A' 

012102 

001540 

020200 

001 402 

005721 

000772 

000171 


000000 


PROC : 


10$: 


20$: 


MOVB 

MOV 

MOV 

BEO 

CMP 

BEQ 

TST 

BR 

JMP 


RQB.RO 

#PRT8L,R1 

(R1)t,R2 

$VROB 

R2,R0 

20$ 

(R1)  + 

10$ 

a(Ri) 


000003  000202' 

OOC„06  000202' 

000033  000652' 
000000 


SPECIAL  PROCESSING  DISPATCH  TABLE 


PRTBL: 


.WORD 
.WORD 
■  WORD 
.WORD 


LS.LIN,PRLIN 
LX.LIN.PRLIN 
LS.CIR.PRCIR 
0 


PICK  UP  FUNCTION  CODE 

POINT  TO  SPECIAL  PROCESSING  TABLE 

GET  FUNCTION  CODE  TO  TEST 

IF  TABLE  END,  NOTHING  SPECIAL  TO  DO 

IS  THIS  THE  CORRECT  FUNCION? 

BR  IF  YES  -  DO  SPECIAL  PROCESSING 

POINT  PAST  PROCESSING  ROUTINE 

AND  CONHNUE 

ELSE  TAKE  CARE  OF  SPECIAL  CASES 


SET  LINE 
CLEAR  LINE 
SET  CIRCUIT 
END  OF  TABLE 
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tSCIR  -  SET  CIRCUIT 

622 
623 
62^ 
625 
626 
627 
628 
629 
630 
631 
632 
633 

634  002024 

635  002024  005767  OOOOOOG 

636  002030  001417 

637  002032  012705  002174' 

638  002036  012504 

639  002040  001454 

640  002042  030467  OOOOOOG 
64;  002046  001406 

642  002050  010446 

643  002052  010546 

644  002054 

645  002060  312605 

646  002062  012604 

647  002064  005725 
643  002066  000763 
649 

^'      016701   OOOOOOG 
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03U 

651 

002074 

652 

002100 

653 

002102 

654 

002110 

655 

002114 

656 

002116 

657 

002122 

658 

C02124 

659 

002132 

660 

002136 

661 

002144 

662 

002150 

663 

002152 

664 

002156 

665 

C02164 

666 

002166 

667 

668 

002172 

669 

67'-^ 

002174 

67' 

002174 

672 

002200 

673 

002204 

6 '4 

002210 

675 

002214 

676 

002220 

677 

002224 

67S 

002230 

OOOOOOC  OOOOOOG 


001014 
012767 

103426 


103423 

052767  OOOOOOG  OOOOOOG 

016700  OOOOOOG 

012767  OOOOOOG  OOOOOOG 

103410 

016700  OOOOOOG 

032760  OOOOOOG  OOOOOOG 

001002 


000001 
000002 
000004 
000010 
000020 
000040 
OOC100 
000400 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOCOOo 
OOOOOOG 
OOOOOOG 


.SBTTL 

$SCIR  -  SET  CIRCUIT 

"^SSCIR 

-  "SET 

CIRCUIT" 

IiMPUTS: 

$0PT0N 

=  OPTIONS  WORD 

OUTPC 

TS: 

C-B1T=SUCCESS/FA!LURE 

fSCIR: 

TST 

$OP^ON 

BEQ 

30$ 

MOV 

#CIRTAB,R5 

10$: 

MOV 

(R5)t,R4 

BEQ 

60$ 

BIT 

R4,$0PT0N 

BEQ 

20$ 

MOV 

R4,-fSP) 

MOV 

R5,-(SP) 

CALL 

a(R5) 

MOV 

(SP)+,R5 

MOV 

(SP)+,R4 

20$: 

TST 

CR5)  + 

BR 

10$ 

30$: 

MOV 

$DDMPV,R1 

CALL 

AIC 

BNt 

40$ 

MOV 

*MS.1NCIMS.EXT,$MISS 

CALL 

$NLCFG 

BCS 

60$ 

CALL 

$XFER 

BCS 

60$ 

BIS 

#FL.PX2,$rLAGS 

40$: 

MOV 

$slta,r6 

MOV 

*MS.CIR,$MIS5 

CALL 

$NLC,'"G 

BCS 

60$ 

MOV 

$SLTA,R0 

BIT 

#LF.RDy,L.FLG(RC) 

BNE 

60$ 

CALL 

$TMP 

60$: 

RETURN 

CIRTAB 

.WORD 

0P$LTM,$VLTM 

.k'ORD 

OP$HTM,$VHTM 

.WORD 

OP$STA,$VENA 

.WORD 

OP$MAC,$VACT 

.WORD 

CP$OWN,$VOWN 

.  WORD 

OP$TRI,$VTAD 

.WORD 

OP$COS.$VCOS^ 

.WORD 

OP$SER,$VSER 

INITIAL  CIRCUIT  LOAD? 

BR  IF  YFS 

ELSE  GEl  FUNCTION  DISPATCH  TABLE 

GET  OPTIONS  BIT  TO  CHECK 

BR  IF  END  OF  TABLE 

WAS  THIS  OPTION  SPECIFIED? 

BR  IF  NO 

SAVE  R4 

SAVE  R5 

ELSE,  EXECUTE  REQUEST 

RESTORE  R5 

RESTORE  R4 

SKIP  TO  NEXT  REQUEST 

IF  NE,  YES 

GET  PDV  INDEX 

IS  PROCESS  ALREADY  LOADED? 

BR  IF  YES 

look  for  process  increment 

jf'cs,  failed 

transfer  ddm  into  core 

if  cs,  failure  (nothing  to  clean  up) 

indicate  successful  ddm  tr«nsfer 

get  slt  address 

indicate  circuit  param.  are  missing 

scan  cetab 

get  slt  address 

has  line  table  been  loaded? 

BR  IF  YES 

ELSE  EXPAND  LINE  TABLE 


SET  LISTEN  TIMER 

SET  HELLO  TIMER 

ENABLE  CIRCUIT 

SET  MUl'IPOINI  ACTIVE  RATIO 

SET  CIRCUIT  OWNER 

SE'  TRIBUTARY  ADDRESS 

SE;  HRCUIT  COST 

SET  CIRCUIT  SERVICE 


I 


/NP 


!^T. 
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SYMBOL  CROSS  REFERENCE 


SYMBOL  VALUE 


SDSYS 

SEROUT 

SFLAGS 

tFUNC 

SGETRV 

$M!SS 

SNAME 

tNLCFG 

SNLDEV 

SNLRQB 

SOPTON 

SPAM I C 

SPDVA 

SPDVTA 

SQUAL 

$RAC:^R 

$ROL 

SRSNTI 

SSAVAL 

SSCEX 

SSCIR 

SSLIN 

SSLTA 

SSLTMA 

ssltnm 

SSMOD 

SSNOD 

ISPRO 

$TMF 

SVACT 

SVALI 

SVCCST 

SVDEA 

SVENA 

SVFLAG 

Sv'HELP 

SVHTM 

SVINI 

SVLOG 

SVLTM 

SVNCP 

$VMP 

$v^T; 

JVOBJ 
$VOWN' 
SVRQB 
$i/SEh 
SVTAD 
$i/TST 
$I/XIT 
tXFtR 


****** 
****** 
****** 


*** 


***** 
***** 


GX 
GX 
GX 
GX 
GX 
GX 
GX 

******  GX 
**«.**  GX 
******  GX 
***'•*  GX 
000 1  50  RG 
******  GX 
*»**.*  GX 
******   GX 

.*****  GX 
******  GX 
******  GX 
******  GX 
GX 


=  ****** 
002024 
002236 

r  ****** 

-  ****** 

-  ****** 

-  ****** 

-  ****** 

0016U 

=      *****  * 

-  ****** 

-  ****** 


*  ***** 
****** 
****** 


****** 

000104 

****** 
****** 
****** 

000450 

****** 


R 

R 
GX 
GX 
GX 
GX 
GX 

R 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 
GX 

RG 
GX 
GX 
GX 

RG 
GX 
GX 
f-X 
GX 
GX 


REFERENCES 

13-45-* 

10-261 
»16-575 

11-282 

20-790 

11-284 
»20-784 

11-286 

16-585 

11-28C 

10-211 

7-144 

16-570 

14-489 

10-206 

12-345 
*20-790 

16-592 

11-301 

11-277 

13-435 

13-461 

13-437 

17-659 

10-214 

10-215 

15-464 

13-446 

13-456 

16-581 

17-674 

13-448 

17-677 

18-713 

17-673 

1 ',  -288 

13-444 

17-672 

7-143 

13-450 

17-671 

7-146 
#7-:42 

13-445 

15-452 

17-675 

9-177 

17-678 

17-67t 

13-442 

8-159 

16-573 


10-262 
16-579 
11-291 

•17-653 

17-654 


10-216 
#8-159 
16-576 

10-208 
12-552 


15-511 

#17-654 

#13-695 

17-663 

12-532 

12-355 


#16-569 
17-666 

13-449 


11-:99 

13-451 

20-795 
13-453 
10-209 

17-656 


11-306 
*17-658 
»11-297 

*17-66v; 

17-661 


O0-249 
13-443 
16-588 

10-219 
12-382 


19-744 
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12-390  15-521 

•19-743         ^19-754 
11-298 


10-247 


1^-741 


•19-738 
19-759 


19-760 


#11-276 


19-75? 


♦19-749 
19-750 


12-534  •12-578 
16-611  *20-779 
10-227     10-254 


15-555 
•20-782 


17-655 


10-253 


jO-783 


17-640 


12-326 


18-694     18-701 
12-328    12-337 


12-329 


12-373 


;NP 
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1 

2 

3 

A 

5 

6 

7 

8 

9 
10 
1] 

I  C 

15 

lA 

15 

16 

17 

18 

19 

20 

21 

22 

23 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 

3A 

35 

36 

37 

38 

39 

40 

Al 

A2 

A3 

AA 

A5 

A  6 

A7 

A8 

A9 

50 

51 


.TITLE   VNTl  -  VNP  NETWORK  INITIALIZATION  ROUTINES 
.IDENT  /V05.00/ 

COPyRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJEC^  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITME'.T  d»  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSiSILIi Y  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  NETWORK  BUFFER  POOL  INITIALIZATION  ROUTINES 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  U-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  Vl.l 

A. 00  07-N0V-83 

DECNET-ilM  VA.O 
DECNET-ilM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  VA.2 
DECnet-IIM-PIus  V5.0 
DECnet-Micro/RSX  VI. 0 
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NTWARN  -  MTINIT  WARNING  HANDLING 


001771     052 

040 

00177i,     055 

040 

'jli        000024 

616 

617 

618 

619  001776 

620 

621 

622 

623 

62A  002006 

625 

626 

627 

628 

629  002036 

630  0020A2 

631  0020A6 

632  002052 

633  002056 

63A  002062 

635  002066 

636  002072 

637  002076 

638  002102 

639  002106 

640  002112 

641  002116 

6^.2  002122 

643  002126 

6h-  002132 

645  002136 

646  002142 

647  002146 

648  002152 

649  002156 

650  002162 

651  002166 

652  002172 

653  C02V6 

654  002202 

655  002206 

656  002212 

657  002216 

658  002222 

659  002226 

660  002232 

66'  002236 

6t2  002242 

663  002246 

664  002252 

665  0U2256 

666 

667 

658 

055 


PREWLN=.-PREWRN 


SCRATCH  BUFFER 


SBUF: 


.BLKB 
.EVEN 


;  OUTPUT  0]0  eiOCK 

Q!0:    QIOW$   I0.WV8,: 

;  E.^ROR  MESSAGES 


,<0,0,40> 


.NLIST 
ERRTAB:  ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERHDEF 
ERRDEF 
ERRDEF 
ERRDEF 
E'^RDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDEF 
ERRDFf 


BEX 


1,<KMC  microcode   load   faUed> 

2,<Unabl.e  to  dynamical,  ly  allocate  network  bjfter  pool> 

3,<Network  pool  partition  not  in  the  system> 

4,<Communications  execufve  load  failed> 

5,<Syntax  error  in  PARSDF  macro> 

6,<Unspec  i  f  ieci  error  during  config  file  scan> 

7,<Resourre  error  trying  to  allocate  CCBs> 

10,<Network  buffer  pool  is  too  siiiall> 

11,<Resource  error  trying  to  allocate  RDBs> 

12,<Resource  error  trying  to  allocate  SDBs> 

13,<Conf igurat ion  file  read  error> 

14,<0pen  failure  on  configuration  file> 

15,<Syntax  error  in  BUFSDF  macro> 

16,<Failed  to  load  a  system  line> 

17,<Failed  to  load  a  process> 

20,<UMR  block  allocation  failure> 

21,<Not  enough  contiguous  UMRs  to  map  network  pool> 

22, <Non-UMR-mapped  area  is  too  large> 

23,<0bject IRemotelFilter  block  allocation  failure> 

24,<Syntax  error  in  ROUSDF  macro> 

25,<Dummy  message  for  postion> 

26,<Line  not  in  system> 

27,<Illegal  counter  timer  «alue> 

30,<Same  as  25> 

3i,<Failed  to  load  a  DIM  circuit> 

32,<Filename  block  allocation  faiture> 

33,<Seuice  block  allocation  failure> 

34,<Illtgal  max  logical  links  value> 

35,<Illegal  max  node  counter  ualue> 

36,<llUyal  delay  factor  value> 

37,<Illegal  delay  weight  value> 

40,<Illegal  packet  limiter  ualue> 

41,<illegal  link  service  threshold  value> 

42,<Illegal  incoming  timer  ualue> 

43,<Jllenal  outgoing  timer  value) 

44,<Illegal  inactiuity  timer  value> 

45,<Ii:t'gal  retransmit  factor  value> 


.EVEN 
.LIST  BEX 
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STATE  TRANSITIONS  FOR  FINDING  NETWORK  POOL  PARTITION 


1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

118A 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

119^ 

1195 

1196 

11P7 

'198 

1199 

1200 

1201 

120? 

12C5 

120^ 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

12H 

1215 

12K 

1217 


003632 

003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003652 
005f32 
003632 
003632 
0U3632 
00363? 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
00363? 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 
003632 


.SBTTL  STATE  TRANSITIONS  FOR  FINDING  NETWORK  POOL  PARTITION 
ISTATS  IBUF2,KBUF2 


STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

ST'-FS 
TRA\'$ 

STAitS 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STAIcS 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 


•/iPARSDFX,,,1,CFSFLG 

<',>,X1 
SRAD50,. .NAMl 

<'  -> 

XI 
<',>,X2 

SRAD50,,.NAM2 

<'  ,> 

X2 

SNUHBR,,.FUDG 

SEOS.SEXIT 

<',>,X3 

"TOP    ,,,1,T0PFLG 

SEOS.SEXIT 

X3 
SNUMBR,X4,.N0MAP 
"NO.Nf",  ,,1,UMRFLG 

X4 
SEOS.SEXIT 

$NUMBR,,.ALLC 
SEOS.SEXIT 


XS6P00l!!.SEXIT,.1.SBFLG  ;  SERVER  BASE  FLAG 


SIGNAL  THAI  MACRO  WAS  FOUND 
FIRST  PARTITION  NAME 

SECOND  PARTITION  NAME 
FUDGE  FACTOR 

REQUEST  TOP-LOADING 


SIZE  OF  NON-UMR-MAPPED  AREA 
DISABLE  UMR  ALLOCATION 


SI2E  OF  SINGLE-WORD  POOL 
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PERFORM  CONFIGURATION  FILE  SCAN 


1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

168'; 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 


005A10 
0Of4U 
005420 
005426 
005432 
005436 
005440 
005446 
005450 
005452 
005456 
005462 
005464 
005466 
005474 
005476 

005500 
0u:iv06 
005512 
005514 
005520 
005522 
005526 
005532 
005534 
005540 
005542 
005544 
005552 
005554 
005556 


112767 
01670' 
016700 
012102 
142762 
005300 
001372 
016702 
016700 
001406 
012201 
042761 
005300 
003372 

012767 

103421 

103411 
005067 

103370 

000261 

122777 
001 372 
000241 


iCFG: 


000100     OOOOOOG 

OOOOOOG 

OOOOOOG 

000010     000010 


10$: 


OOOOOOG 
OOOOOOG 


006040     000000 


20$: 


^777?7     OOOOOOG  30$: 

40$: 
000040' 

45$: 

OOOOOOG  OOOOOOG  50$: 

100$: 


.SBTTL  PERFORM  CONFIGURATION  FILE  SCAN 

**-$CFG-PERFORM  CONFIGURATION  FILE  SCAN 

THE  CONFIGURATION  FILE  CONTAINS  INFORMATION  ABOUT  THE  NETWORK 
WHICH  WE  WILL  WANT  TO  LOAD.  THE  USER  MAY  HAVE  EDITED  THE 
CONFIGURATION  FILE  IN  ORDER  TO  CHANGE  DYNAMIC  SYSTEM  VARIABLES. 


UUTPUTS: 


'C  CLEAR 
'C  SET 


CALL 

CALL 

MOVB 

MOV 

MOV 

MOV 

BICB 

DEC 

BNE 

MOV 

MOV 

BEQ 

MOV 

BIC 

DEC 

BGT 

MOV 

CA'  L 

BCS 

GCLT 

BCS 

CLR 

CALL 

BCC 

CALL 

SEC 

RETURN 

CMPB 

CLC 
RETURN 


CONFIGURATION  FILE  SCAN  SUCCESSFUL 
ERROR  SCANNING  CONFIGURATION  FILE 


$SAVAL 

$CLSAV 

*CL.OPN,$CLFLG 

$PDVTA,R1 

$PDVNM,RO 

(R1)+,R2       , 

#ZF.MFL,Z.FLG(R2) 

RO 

10$ 

$SLTMA,R2 

$SLTNM,RO 

30$ 

(R2)+,R1 

#LF.MFL!LF.ENA!LF 

RO 

20$ 

#-1,SLTNUM 

OPNCFG 

100$ 

50$ 

MRKFL 

PROTXT 

40$ 

$CLDEQ 


*If  .E0F,a$CLI05 
45$ 


SAVE  ALL  REGISTERS  ON  ENTRY 

SAVE  GCL  CONTEXT 

LEAVE  FILE  OPEN 

POINT  TO  THE  PDV  INDEX  TABLE 

NUMBER  OF  PDV  ENTRIES 

GET  ADDRESS  OF  PDV 


LOOP  TILL  DONE 
POINT  TO  SLT  MAPPING  TABLE 
NUMBER  OF  SYSTEM  LINES 
IF  EQ,  NONE 

GET  NEXT  SYSTEM  LINE  TABLE 
.SER,L.FLG(R1)  ;  CLEAR  DYNAMIC  BITS 

LOOP  TILL  DONE 

INITIALISE  SYSTEM  LINE  TABLE  NUMBER 

ATTEMPT  TO  OPEN  CONFIG  FILE 

FAILED  TO  OPEN  CONFIG  FILE 

GET  A  RECORD  FROM  THE  FILE 

END  OF  FILE  REACHED? 

INITIALIZE  MARK  FOR  LOAD  FLAG 

NO  ...  PROCESS  THE  TEXT 

LOOP  UNI  ESS  SYNTAX  ERROR 

DEQUE  FILE  ON  SYNTAX  ERROR 

SIGNAL  ERROR 

EOF  ? 

IF  NOT,  THEN  ERROR  .. 

SIGNAL  SUCCESS 

RETURN  WITH  C-BIT  CLEAR 


D  9 

IvNTI  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  29 
iOPEN  CONFIGURATION  FILE 


VNIl  -  VNP  NETWORK  IMTlALiZATI 
OBJlDF  PARSE  TABLES 

2065 
2066 
2067 
2068 
2069 

2070  00632A 

2071  006324 
2072 

2073  006324 

2074  0063:- 4 
2075 

2076  006524 

2077  006324 

2078  006324 
2079 

2080  006324 

2081  006324 
2082 

2083  006324 

2084  006324 
2085 

2086  006324 

2087  006324 
2088 

2089  006324 

2090  006324 
2091 

2092  006324 

2093  006324 
2094 

2095  006324 

2096  00o324 
2097 

2098  006324 

2099  006324 

2100  006324 
2101 

2102  006324 

2103  006324 
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.SBTTL  D8J$DF  PARSE  TABLES 
'•       STATE  TRAMSITIONS  FOR  THE  'OBJSPf  MACHO 


STATES  OBJDF 
TRANS  SfJUMBR,,.ONUM 

STATES 
TRANS  <',> 

STATES 
TRANS  <■■,>, 0BJ2 
TRANS  LBRA 

STATES 
TRANS  $RAD50,,.0NAME 

STATES 
TRANS  R8RA 

STATES 
TRANS     <',> 

STATES  08J2 
TRANS  SNUM6R,,.0VFY 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,.OFLAG 

STATES 
TRANS   IEND,$EXIT,.0END 
TRANS   <',> 

STATES 
TRANS  SNUM8R,$EXIT,.0CPY 
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OBjSDF  PARSE  TABLES 


n 
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TPARS  STATE  TABLES  -  SERSOf 


Page  49-1 


2518  006324 

2519  00632A 
2520 

2521  006324 

2522  006324 
2523 

2524  006324 

2525 

2526 


STATES 
TRANS 

STATES 
TRANS 

STATES 


ZAS 
SLAMDA,,SERSLN 

<',>,SEXIT 
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VNTl  -  VNP  NETWORK  INlTIALlZATI  MACRO  VOS.03b  Saturday 
ACTION  ROUTI^JE;  NODE  NUMBER  SEEN 


29-Jun-85 


02:^ 
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2782 

2783 

278^ 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

279^ 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

280A 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

281A 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

282A 

2825 

2826 

2827 


007236 
007236 

007256 
007264 
(17266 
'■J7274 
007276 
007302 

00730A 
007310 


007312 

007332 
007340 

007342 


007372 
007374 
007400 

007402 

007406 

007410 
007414 


.S8TTL 
♦*•  -  .NODNB 
INPUT 


ACTION  ROUTINE:  NODE  NUMBER  SEEN 
-  NODE  NUMBER  SEEN 


.PNUM8  =  THE  NODE  NUMBER 


.NODNB: 


GETRV 

$DECPT,*D$END 

022767 
002404 
056767 
001003 
062716 

001777 

OOOOOOG 

000002 

OOOOOOG 
000014G 

5$: 
10$: 

CMP 
BLT 
BIS 
BNE 
ADD 
RETURN 

PUTRC 
RETURN 

*1023. ,.PNUMB 

5$ 

.PNUMB,$BFRtD$LNUM 

10$ 

*2,(SP> 

;  + 

■  ***  - 

.NODAR 

-  NODE  AREA 

'.NODAR: 

GETRV 

$DECPT,#0$END 

022767 
002423 

000077 

OOOOOOG 

CMP 
BLT 

*63.,.PNUMB 
10$ 

016700 
000012 

000241 
010067 
001403 

OOOOOOG 
000014G 

MOV 

.REPT 

ASL 

.ENDR 

CLC 

MOV 

BEQ 

PUTRC 

RETURN 

.PNUMB.RO 

10. 

RO 

RO,$BFR+D$LNUM   ; 
10$ 

062716 

000002 

10$: 

ADD 
RETURN 

#2,(SP) 

READ  DECNET  HOME  BLOCK 

CHECK  LIMIT 

If  ILLEGAL  -  BRANCH 

STORE  THE  NODE  NUMBER 

IF  EQ,  ILLEGAL  NODE  NUMBER 

ELSr,  REJECT  TRANSITION 


WRITE  BACK  DECNET  HOME  BLOCK 


;  READ  DECNET  HOME  BLOCK 

;  CHECK  LIMIT 

;  IF  ILLEGAL  -  BRANCH 

;  COPY  AREA 

;  POSITION  AREA  BITS 


;  IF  ERROR  -  BRANCH 

;  WRITE  BACK  DECNET  HOME  BLOCK 


ILLEGAL  AREA  NUMBER 
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ACTION  ROUTINE;  HOST  NODE  ADDRESS  SEEN 


VNTI  ••  VNP 
ACTION  ROU 

3270 
3271 
3272 
3273 
327A 
3275 
3276 
3277 
3278 

3279  01 

3280  01 
3281 

3282  01 

3283  01 
328'.  01 

3285  01 

3286  01 

3287  01 

3288  01 

3289  01 
3290 
3291  01 
3292 
5293  01 


02:^ 


NEIWORK  IMIIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:^6  Page  72 

UNE:  MAXIMUM  NUMBER  OF  MOPS 

.S8TTL  ACTION  RUUTINE:  MAXIMUM  NUMBER  OF  HOPS 
♦•  -  .RHOP  -  MAXIMUM  NUMBER  OF  HOPS  IN  NETWORK 


INPUT: 


.PNUMB  =  MAXIMUM  NUMBER  OF  HOPS  IN  NETWORK 


2022 
2022 

20A2  016767  OOOOOOG  000066G 

2050  016767  OOOOOOG  000070G 

2056  006367  000070G 

2062  OOUO^ 

2064  022767  000037  0000006 

2072  103003 

207A  062716  000002 

2100 

2i02 

2106 


.RHOP: 


GETRV   $DECPT,#D$END 


10$: 


20$: 


MOV 

MOV 

ASL 

BEQ 

CMP 

BHIS 

ADD 

RETURN 

PUTRC 

RETURN 


. PNUMB, $BFR+D$MAXH 

. PNUMB, $BFRtD$MAXV 

$BFRtD$MAXV 

10$ 

#MAXHOP,. PNUMB 

20$ 

*2,(SP) 


READ  DECNET  HOME  Bl OCK 

STORE  THE  MAXIMUM  NUMBER  OF  HOPS 

SET  UP  MAXIMUM  NUMBER  OF  VISITS 

MAXV  =  2   *   MAXH 

IF  ZERO,  ILLEGAL 

IS  THE  NUBMER  IN  RANGE  ? 

IF  HIS,  YES 

ELSE,  REJECT  THE  TRANSITION 


WRITE  BACK  DECNET  HOME  BLOCK 
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5635 

3636 

5637 

3638 

5659 

36A0 

■^641 

36A2 

56A3 

56AA 

36^5 

36A6 

36'.7  015'!.02 

5648  013'ilO 

56A9  015A16 

3650  013A20 

5651  015A2A 

5652  C13A26 
3653  013A32 


.SBTTL  ACTION  ROUTINE:  OBJECT  FLAGS  SEEN 

'•»«  -  ACTION  ROUTINE:  OBJECT  FLAGS  SEEN 

INPUTS: 

.PNUMB  =  OBJECT  FLAGS 

OUTPUTS: 

TRANSITION  IS  ACCEPTED/REJECTED 


156767 
U52767 
001003 
105767 
00K02 
062716 


GOOOOOG  000062' 
000007  OOOOOOG 

000001G 

000002 


.OFLAG: 

:8IS8 

.PNUMB, FLAG 

BIT 

*7,. PNUMB 

BNE 

10$ 

Tsre 

. PNUMB t1 

BEQ 

20$ 

10$: 

ADD 

*2,(SP) 

20$: 

RETURN 

SETUP  OBJECT  FLAGS 

OVER-WRITING  VERIFICATION  LEVEl 

IF  NE,  yES 

IS    IT   A   BYTE  VALUE    ? 

IF    EQ,    VES 

ELSE,  REJECT  TRANSITION 
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FlLtDf/SfRSDF    ACTION  ROUTINES 


A155 

0  34 

035 

4156 

AH? 

038  015350 

005003 

4159  01S552 

112005 

AI40  015534 

052705 

000100 

4141    015540 

001005 

4142  015542 

162705 

000060 

4145  015546 

000402 

4144   015550 

162705 

000067 

4145  015554 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4155 

4154 

4155 

4156 

4157 

4158 

4159  015556 

012700 

000150' 

4160  015362 

016702 

OOOOOOG 

4161    015566 

016701 

OOOOOOG 

4162  015572 

112220 

4165  015374 

005501 

4164   015376 

001575 

4165 

4166  015400 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179  015402 

010146 

4180  015404 

016701 

OOOOOOG 

il81    015410 

016702 

OOOOOOG 

4182   015414 

012100 

4183   015416 

026016 

000004 

4184   015422 

001405 

4185  015424 

005502 

4186  0154:6 

001572 

4187  015451) 

005726 

4188  015432 

000261 

4189  015434 

000404 

HEXIND   -   CONVERT    FROM   HEX 


HEXIND: 


10$: 
20$: 


CLR 

R3 

M0V8 

(R0)+,R5 

BIT 

#LEI,R5 

BNE 

10$ 

sue 

#'0,R5 

BR 

20$ 

SUB 

#<'A-10.>,R5 

INIT   REG 

GET    CHARACTER 

CHECK   FOR  LETTER 

IF    YES   -  BRANCH 

CONVERT  TO  BINARY  VALUE 

CONTINUE 

CONVERT  HEX  DIGIT  TO  BINARY 


RETURN 


SERCR  -  SET  UP  CIRCUIT  NAME 

INPUTS  - 

.PSTPT  -  PARSED  STRING  ADDRESS 
.PSTCN  -  PARSED  STRING  SIZE 

OUTPUTS  - 

CIRNAM  -  CONTAINS  DEVICE  NAME  (ASCII) 


SERCR: 

MOV 

#CIRNAM,RO 

MOV 

. PSTPT, R2 

MOV 

. PSTCN, Rl 

10$: 

M0V8 

(R2)t,(R0)+ 

DEC 

Rl 

BNE 

10$ 

RETURN 

;    FPDV 

-    FIND   PDV 

;    INPUTS   - 

R1    - 

RAD50   PROCESS   NAME 

;    OUTPUTS    - 

RO   - 

PDV  ADDRESS 

i. 

R1- 

=DV    INDEX 

FPDV: 

MOV 

R1,-(SP) 

MOV 

$PDVTA,R1 

MOV 

$PDVNM,R2 

T0$: 

MOV 

{Ri)+,RO 

CMP 

Z.NAM(RO),(SP) 

SEQ 

40$ 

DEC 

R2 

BNE 

10$ 

TST 

tSP)» 

SEC 

BR 

50$ 

GET  STRING  STORAGE  BUFFER 

GET  PARSED  STRING  ADDRESS 

GET  STRING  COUNT 

STORE  DEVICE  NAME 

ANY  LEFT  ? 

IF  YES  -  BRANCH 


STORE  NAME  TO  BE  MATCHED 

GET  PDV  VECTOR  ADDRESS 

GET  NUMBER  OF  PDV'S 

GET  NEXT  PDV  ADDRESS 

MATCH  ? 

IF  YES  -  BRANCH 

COUNT  ONE  LESS  PDV 

IF  MORE  -  BRANCH 

IF  NO  MORE  -  ERROR 

SET  C-3iT 

REPORT  ERROR 
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VNTI  -  vNP  NETWORK  INHIALI/ATI  MACRO  V05.03b  Saturday  29-Jun-85  02:^6  Page  104 
fLBKO  -  FILE  NAME  BLOCK  PROCESSING 


5  16 

02:46 


4605 

4606 

4607 

'.608 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

46  i4 

a635 

4636 

463'' 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

A661 


11 7062 
017066 

017072 
017076 
017102 
017106 

017112 
017114 
017116 

017120 
017126 

017132 


GRPUIC  -  STORE  GROUP  CODE  IN  U1C8UF 

INPUTS  - 

STRAD  -  PARSED  STRING  ADDRESS 
STRSIZ  -  STRJNG  SIZE 

OUTPUTS  - 

GROUP  STRING  STORED  IN  UICBUf 


016701  000204' 

016700  000332' 

110167  000206' 

012702  000207' 

112722  000133 

105  j7  000206' 


017134 
017142 
017146 

017152 
017156 
017160 
017166 

017172 
017176 
017200 
017204 

017206 
017210 


GRPUIC: 


1$: 


:MDV 
MOV 


STRSIZ, R1 
STRAD, RO 


112022 
005301 
001375 

012767  000266'  000534'  10$: 
005067  000204' 


M0V8  Rl, UICBUF 

MOV  #UIC8UFt1,R2 

Move  *'[,(R2)t 

INC8  UICBUF 

MOVB  (R0)t,(R2)t 

DEC  Rl 

BNE  1$ 

MOV  #FN8UFF,STRPr 

CLR  STRSIZ 

RETURN 


GET  STRING  SIZE 
GET  STRING  ADDRESS 

STORE  GROUP  UK  STRING  SIZE 
GET  POINTER  TO  BUFFER 
STORE  BRACKET 
COUNT  BRACKET 

STORE  STRING 
COUNT  ONE  LESS 
IF  MORE  -  BRANCH 

RESET  BUFFER  POINTER 
INIT  SIZE 


052767 
016701 
016700 

005767 
001405 
112767 
105267 

012702 
005046 
116716 
062602 

005202 
032767 


000001 

000204' 

000332' 

000000' 

000133 
000206' 

000206" 

000206' 


USRUIC  -  STORE  USER  CODE  IN  UICBUF 

INPUTS  - 

STRAD  -  PARSED  STRING  ADDRESS 
STRSIZ  -  STRING  SIZE 

OUTPUTS  - 

USER  UIC  CODE  STORED  IN  UICBUF 


000000'  USRUI1::81S 

USRUIC: :MOV 

MOV 


000207' 


3$: 


000001  000000' 


TST 
BEQ 
MOVB 
INC8 

MOV 
CLR 
MOVB 
ADD 

INC 
BIT 


#1, NAMED 
STRSIZ, Rl 
STRAD,RO 

NAMED 

3$ 

*'[,UICBUFtl 

UiCBUF 

#UIC8UF,R2 
-(SP) 

UICBUF, (SP) 
(SP)+,R2 

R2 

*1, NAMED 


SET  NAMED  DIRECTORY  FLAG 
GET  SIZE 
GET  ADDRESS 

NAMED  DIRECTORY  ? 
IF  NO  -  BRANCH 
LOAD  [  CHAR 
COUNT  BRACKET 

GET  BUFFER  ADDRESS 

GET  OLD  UIC  SIZE 
ADJUST  BUFFER  POINTER 

INCLUDE  SIZE  BYTE 
NAMED  DIRECTORY  ? 
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1500 
1501 
1502 
1503 
150A 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
15U  006522 

1515  006522 

1516  00652A 

1517  006526 

1518  006530 

1519  006532 

1520  00653A 


.S8TTL  MOVE  -  Move  bytes 

«*♦  HOVE  -  Move  bytes 

INPUTS 

RO  -  Source  address 

R1  -  Number  of  bytes  to  move 

R2  -  Target  address 

OUTPUTS 

R2  -  Address  of  last  byte  moved  +  1 
RO,  Rl  destroyed 


005701 
001403 
112022 
005301 
003375 


MOVE: 

TST 

Rl 

BEQ 

20S 

10$: 

M0V8 

(R0)  + 

(R2) 

DEC 

Rl 

BGT 

10$ 

;  Check  for  nothing  to  do 


20$: 


RETURN 


;CTD001] 
;C TOGO 13 
;CTD001] 
;CTD001] 
;CTD001] 
.-CTDOOU 
;[TD001D 
;CTD001] 
;CrD001] 
;[TD001] 
;CTD001] 
;[TD001] 
;[TD00n 
;CTD001] 
;[TD001] 
;CTD00n 
;CTD001] 
;CTD00n 
.-CTDOOI] 
;[TD001] 
; CTDOOI] 
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CREF   04.00 


SYMBOL  VALUE 


TYSCHA 

TYSEVE 

TYSSTA 

TYSSUM 

UIDTL 

UNUMTL 

VF.AJD 

VF.EAD 

VF.INI 

VF.SKA 

VF.SS 

UC.CNT 

WC.E>/E 

UC.TRl 

UC.UNT 

ZF.MUX 

Z.FLG 

Z.NAH 

SADS 

$ANT 

SARADI 

$ARAD2 

$BFR 

$CAT5 

SCKLOG 

$CLBUF 

SCLIOS 

SCMANO 

SCOP 

SCOST 

SCSR 

tCTL 

SDACC 

SDECPT 

SDEVHD 

SDPAS 

SOUSE 

SEXNOD 

SFLAGS 

SGETRV 

SGRO 

SGTPLN 

SHLPAC 

SHMBUF 

SHIM 

SIFALI 

SIFLCG 

SIFNNA 

SiFXAC 

SIFXPR 

$IFX5S 


GX 
GX 
GX 
GX 
GX 


=  000400 

=  001000 

=  002000 

=  000000 
001547 
000421  R 

=  ****** 

~   ****** 

=  ****** 

r  ****** 
=  ****** 

=  000400 

=  004000 

=  002000 

=  001000 

=  ******  GX 

=  ******  GX 

=  ******  GX 
000322  RG 
000362  RG 
002746  RG 
002762  RG 

=  ******  GX 

=  ******  GX 
000734  RG 
GX 
GX 
GX 

001002  RG 
001056  RG 
001126  RG 
001204  RG 
001300  RG 
******  GX 
******  GX 
001356  RG 
001572  RG 
001650  RG 
GX 
GX 

001706  RG 
»i****  GX 
006276  RG 
*•♦•»*  GX 
001746  RG 
002050  RG 
002042  RG 
002004  RG 
002056  RG 
002070  RG 
002102  RG 


r  ****** 


****** 
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#7-418 
#7-430 
#7-443 
#7-461 

7-549 

7-896 
#7-478 
#7-531 
#7-548 

7-1267 

7-549 
#7-559 

6-213 
#10-1368 

7-780 
#7-569 
#7-593 
#7-590 
#7-579 
#7-596 
#7-600 
#7-604 


5-172  7-543 

5-153  7-1244 

7-579  7-990 


7-1055 


7-1026  7-1046 


7-1273 
7-1273 


7-782  •7-896 

7-1066  8-1314 

8-1305 

6-226 

7-848 


7-901  7-903 

8-1318 


7-906  7-908  7-910  7-954 


7-781 


7-953 


♦7-1269 
7-781      7-953 


7-784 


7-952 


7-1004    7-1065 

7-1004    7-1065 
7-956     7-1003 


8-1317 


7-1007  7-1064  7-1068 


VNCP 
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192 
193 
194 

.S8TTL  PRLIN  -  SPECIAL  PROCESSI^ 
*»*-PRLIN-SPECIAL  PROCESSING  FOR  LINES 

G  FOR  LINES 

195 
196 

INPUTS: 

197 

ROB  =  REQUEST  BLOCK 

198 

SQUAl  = 

SPECIAL  QUALIFERS 

199 
200 

OUTPUTS: 

201 

NONE. 

202 

203 
204 
205  000202 

~ 

PRLIN: 

206  000202 

052767 

000004 

OOOOOOG 

BIT 

#QF$KNO, SQUAL 

IS  IHIf  l^flR  KNOWN  LINES  ? 

?07  000210 

001004 

BNE 

10$ 

F  NE,  YES 

208  000212 

032767 

001400 

OOOOOOG 

BIT 

#UC.CNT!WC.UNT, SQUAL 

;  ELSE,  ARE  THERE  ANV  WILD  CARDS  ? 

209  00022. 

001513 

BEQ 

SVRQB 

IF  EQ,  NO  ..  NOTHING  SPECIAL  HERE 

210 

211  000222 

032767 

000044 

OOOOOOG 

0$: 

BIT 

#OP$VEC!OP$CCS,$OPTON 

ARE  ANY  INVALID  OPTIONS  PRESENT  ? 

212  000230 

001077 

BNE 

101$ 

IF  NE,  YES  ..  F'^ROP 

213  000232 

005004 

CLR 

R4 

INITIALIZE  SUCCESS  FLAG 

214  000234 

016705 

0000005 

MOV 

SSLTMA,R5 

GET  ADDRESS  OF  SLT  MAPPING  TABLE 

215  000240 

016703 

OOOOOOG 

MOV 

SSLTNM,R3 

GET  NUMBER  OF  SLT'S 

216  000244 

116746 

OOOOOOG 

MOVS 

$0PT0N,-(SP) 

SAVE  OPTIONS  WORD 

217  000250 

5$: 

CALL 

NXTLIN 

ELSE,  GET  THE  NEXT  LINE 

218  000254 

103455 

BCS 

60$ 

IF  CS,  NO  MORE 

219  000256 

032767 

000004 

OOOOOOG 

BIT 

#c;f$kno,$qual 

IS  THIS  FOR  KNOWN  LINES  ? 

220  000264 

001024 

BNE 

30$ 

IF  NE,  YES 

22l 

222  000266 

026167 

OOOOOOG 

000002G 

CMP 

Z.NAM(R1),RQBHR.LIN 

IS  THIS  THE  RIGHT  1 INE  ? 

223  000274 

224 

225 

001365 

BNE 

15$ 

IF  NE,  NO 

;  MATCH 

ON  CONT 

-ILLER 

226 

227  000276 

052767 

000400 

OOOOOOG 

BIT 

#WC.CNT,$QUAL 

IS  THIS  FOR  ALL  CONTROLLFRS  ? 

228  000304 

001004 

BNE 

20$ 

IF  NE,  YES 

229  000306 

126067 

OOOOOOG 

000004G 

CMPB 

L.CTL(R0),RQB+LR.CTL 

ELSE,  IS  THIS  THE  RIGHT  CONTROLLER 

230  000314 

231 

232 

233 

234  000316 

001555 

BNE 

15$ 

IF  NE,  NO 

;  MATCH 

ON  UNIT 

NUMBER 

032767 

001000 

OOOOOOG 

J0$: 

BIT 

#WC.UN1,$QUAL 

IS  THIS  FOR  ALL  UNITS  ? 

235  000324 

001004 

BNE 

30$ 

IF  NE,  YEL 

236  000326 

126067 

OOOOOOG 

000005G 

CMPB 

L.UNT(R0),RQB+LR.UNT 

•  ELSE,  IS  THIS  THE  RIGHT  UNIT  ? 

237  000334 

238 

239 

001345 

BNE 

15$ 

•  IF  NE,  NO 

;  SAVE 

DATA  IN 

REQUEST  BLOCK 

240 

241  000336 

005204 

?0$: 

INC 

R4 

•  INDICATE  A  LINE  FOUND 

242  000340 

016167 

OOOOOOG 

0U0002G 

MOV 

7.NAM(Rl),R0BtLR.LIN 

;  SAVE  DDM  PROCESS  NAME 

243  000''46 

rL067 

OOOOOOG 

000004G 

M0V6 

L.CTL(RO),RQBtLR.CTL 

;  SAVE  CONTROLLER  NUMBER 

244  000354 

r6067 

OOOOOOG 

000005G 

Move 

L.UNT(RO),ROB+LP.UNT 

;  SAVE  UNIT  NUMBER 

245  000362 

105067 

000006G 

CLR8 

RQ8+LR.TRI 

;  ASSUME  LINE  IS  NOT  MULTIPOINT 

246  0^0366 

016746 

OOOOOOG 

50$: 

MOV 

RQ3,-(5P) 

;  SAVE  FUNCTION  REQUESTED 

^47  000372 

CALL 

$V'^.QB 

;  PROCESS  REQUEST 

iA8  000376 

012667 

OOOOOOG 

MOV 

(SP)+,RQB 

;  RESTORE  FUNCTION  CODE  JUST  IN  CASE 

E  3. 
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'79  002234  000000 


.WORD   0 
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CREF   04.00 


SYMBOL   VALUE 


SXLIN 
SXPRO 
SS 


$$CSR 

$$OEV 

$$HTIH 

$$°RI 

$$VtCT 

$$$ 


S$$$ 

.MGMGE 
.PLGTH 


=  ****** 
=  ****** 
=  177777 


GX 
GX 


=  ****** 
~   ****** 

:;  ****** 

=  ****** 
=  ****** 
=  001500  R 


GX 
GX 
GX 
GX 

GV 


=  001546  R 

-   A  *  -1  *  *  * 


GX 
GX 


REFERENCES 

19-774 

16-620 

6-83 

6-87 
#15-541 

15-544 

16-583 

19-765 

15-525 

15-544 
#6-83 

15-516 
#15-543 
#6-84 

20-788 

20-790 


6-83 
#6-87 
#15-542 


6-84 
#15-520 

15-544 
#6-86 


#6-83 
#6-88 
15-543 


#6-85 
15-520 

#6-88 


#6-84 
11-309 
15-543 


6-86 
#15-528 


6-85 
11-309 
#15-543 


#6-87 
15-528 


6-85 
#11-309 
#15-544 


6-88 
#15-532 


#6-35 
#11-310 


#11-309 
15-532 


#6-86 
15-541 


11-310 
#15-541 


6-87 
15-541 


#15-516 
15-542 


#11-310         #15-542         #15-544 


VNP 
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53 
54 
55 
56 
5/ 
58 
5'' 
60 

61  000000 

62  000000 

63  OOOOCO 

64  000000 

65  000000 

66  OOOOOC 
67 

68 

69  000000 

70  000000 

71  000000 

72  000000 

73  000000 

74  000000 

75  000000 

76  000000 

n  000000 

78  000000 

79  COOOOO 

80  000000 

81  000000 
82 

83 

84 

85 

86 

87 

88 

89 

90 

9; 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
10? 
103 
104 
105 
106 


000001 


.S3TTL  MACRO  CALLS 

.MCALL  GCLDF$,CCBDF$,PDVDF$,SLTDF$,NHWDF$,VNPDF$,ASR$,QI0W$,PC3DF$ 

.MCALL  ISTATS, STATES, TRANS, GETRV,GETRC,PUTRC,GETAD,PUTAD,SCBDF$,ASL$ 

.MCALL  SWTCHI,SWTCH0,HWDDFS,0BJDFS,RN8DFS,FLTDFS,0PTDFS,CtACCS 

.MCALL  SAVRG,RESRG,DHBDFS,CTRDFS,LLTDF$,FNSDF$,SERDFS,ADJDFS,CALLR 

.ENA8L  LC 

08JDFS  ;  DEFINE  OBJECT  BLOCK  OFFSETS 

ADJDFS  ;  DEFINE  ADJACENCY  DATA  BASE  OFFSETS 

LLTDFS  ;  DEFINE  LOGICAL  LINK  SIZE 

RNBDFi  ;  DEFINE  REMOTE  BLOCK  OFFSETS 

OPTDFS  ;  DEFINE  COMM/EXEC  OPTIONS 

DHBDFS  ;  DEFINE  DECNET  HOME  BLOCK  OFFSETS 

M$$MGE=1  ,  FORCE  MEMORY  MANAGEMENT 

CTRDFS  ;  DEFINE  COUNTER  BLOCK  OFFSETS 

GCLDFS  ;  GET  COMMAND  LINE  OFFSETS 

CCBOFS  ;  CCB  OFFSETS 

PDVDFS  ;  PROCESS  DESCRIPTOR  VECTOR  OFFSETS 

SLTDFS  ;  SYSTEM  LINE  TABLE  OFFSETS 

PCBDFS  ;  PARTITION  CONTROL  BLOCK  OFFSETS 

NHJDFS  ;  NETWORK  HARDWARE  DEFINITIONS 

SCBDFS  ;  UMR  BLOCK  OFFSETS 

FLTDFS  ;  DEFINE  FILTER  BLOCK  OFFSETS  AND  SYMBOLS 

VNPDFS  ;  VNP  OFFSETS  AND  FLAG  WORD  VALUES 

HWDDFS  ;  HARDWARE  DEFS 

FNBDFS  ;  FILE  NAME  BLOCK  OFFSETS  DEFINITIONS 

SERDFS  ;  SERVICE  BLOCK  DEFINITIONS 


DEFINE  MACROS  USED  ^OR  ERROR  REPORMNG 


MOV 
J  MP 
.ENDM 

.MACRO 

MOV 

CALL 

TST 

.ENDM 

.r 

ERR'ERN:.A 

E'th 

.EVEN 

.PSECT 

.WORD 

.W"RD 

.ENDM 


.MACRO  NTIERR 


#'ER^' 

NTir  A. 

NTIERR 


ERN 
■(SP) 


N  'JARN  ERN 

*'lRN,-(SP) 

NTWARN 

(SP)t 

NTWARN 

JRRDEF  ERN.ERRTXT 
DATA,D 
"ERRTXT" 
N=.-ERR'ERN 


ERR'ERN 

E'ERN'LEN 

ERRDEf 


STORE  ERROR  CODE  ON  STACK 
AND  JUMP  TO  ERROR  PROCESSING  ROUINE 


STORE  ERROR  CODE  ON  STACK 
PRINT  WARNING  MESSAGE 
POP  STACK 


DATA  PSECT 
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670 
671 
672 
673 
674 
675 
676 
677 
6'8 
679 
680 
681 
682 
683 

684  002262 

685  002262 

686  002266 

687  002272 

688  002274 

689  002300 

690  002302 

691  002310 

692  002312 

693  002316 

694  002322 

695  002324 

696  002330 
69"  002334 

698  002340 

699  002344 

700  002350 

701  002354 

702  002360 

703  002362 

704  002364 

705  002366 

706  002370 

707  002372 

708  002374 

709  902400 

710  002404 

711  002410 

712  002412 

713  002416 

714  002420 

715  002422 

716  00242- 

717  002426 

718  002432 
719 

720 
721 
722 
723 
724 
725 
726 


.SSTIL  UMR  ALLOCATION 


»»-$UI«IRAL 


ALLOCATE  UMRS  FOR  NETWORK  BUFFER  POOL 


INPUTS: 


SCPBIA  -  CPU  LOUCR  BIAS  (MULTIPROCESSOR  ONLY) 

PSTART  -  NETWORK  POOL  BIAS 

PBLOX   -  NETWORK  POOL  SIZE  IN  32.  WORD  BLOCKS 

OUTPUTS:  (NO  RETURN  ON  ERROR) 

UMRPTR  -  UMR  BLOCK  ADDRESS  OR  0 

UMR  BLOCK  WRITTEN  TC  SYSTEM  IMAGE 

PUMR  INITIALIZED   (NON  MULTIPROCESSOR  ONLY) 


iUMRAL : 


005067 

OOOOOOG 

005767 

OOOOOOG 

100513 

005767 

OOOOOOG 

0011 lO 

026767 

OOOOOOG  OOOOOOG 

101515 

012701 

000014 

103500 

010067 

OOOOOOG 

012701 

000006- 

016702 

OOOOOOG 

166702 

OOOOOOG 

166702 

OOOOOOG 

062702 

000177 

042702 

000177 

006202 

006202 

006202 

006202 

006202 

000241 

010261 

000004 

016703 

OOOOOOG 

C66703 

OOOOOOG 

005002 

012704 

000006 

006303 

006102 

005304 

001374 

010361 

000012 

110261 

000011 

10$: 


;[MP01  ; 


.-CMPOl] 


CLR 

TST 

BMI 

TST 

BNE 

CMP 

BLOS 

MOV 

CALL 

BCS 

MOV 

MOV 

MOV 

sue 

SUB 
ADD 
BIC 
ASR 
ASR 
ASR 
ASR 
ASR 
CLC 
MOV 
MOV 
ADD 
CLR 
MOV 
ASL 
ROL 
DEC 
BNE 
MOV 
MOVB 


UMRPTR 

.MGEXT 

25$ 

UMRFLG 

25$ 

PBLOX, NONMAP 

121$ 

#M.LGTH,R1 

$ALL15 

101$ 

RO, UMRPTR 

*W,.iBF,Rl 

PBLOX, R2 

NONMAP, R 2 

. ALLOC, R2 

#177, R^ 

*177,R2 

R2 

Ri 
H 
R2 

R2,M.UMRN(R1) 

PSTART, R3 

NONMAP, R 3 

R2 

*6,R4 

R3 

R2 

R4 

10$ 

R3,M.BFVL(R1) 

R2,M.BFVh(Rl) 


.IF  DF  R$$MPL 

TST  .MPfiJ 

BLT  15$ 

MOV  $CPeiA,$RBLCK 

CALL  $ASUM1 

BCS  111$ 


ASSUME  FAILURE 

11/70  TARGET  SYSTEM? 

IF  MI,  NO 

HAVE  UMR'S  BEEN  DISABLED? 

IF  NE,  YES 

MAKE  SURE  NON-UMR-MAPPED  AREA 

ISN'T  BIGGER  THAN  POOL  SIZE 

GET  UMR  BLOCK  SIZE 

TRY  TO  ALLOCATE  FROM  POOL 

IF  CS,  FAILURE 

SAVE  UMR  BLOCK  ADDRESS 

POINT  AT  LOCAL  BUFFER 

GET  POOL  SIZE  IN  BLOCKS 

LESS  NTL  BLOCKS,  ETC. 

AND  EXTENDED  POOL  ALLOCATIONS 
ROUND  UP  TO  NEXT  MULTIPLE  OF  4K  WORDS 

GIVING'nUMBER  of  UMR'S  NEEDED  ♦  4 


STASH  COUNT  IN  UMR  BLOCK 

GET  POOL  STARTING  BLOCK  NUMBER 

LESS  NTL  BLOCKS,  ETC. 

CONVERT  TO  A  REAL  MEMORY  ADDRESS 

DOUBLE  SHIFT  LEFT  6  PLACES 


STASH  IT  IN  UMR  BLOCK 


MULITPROCESSOR  ? 

It  NO  -  BRANCH 

MAP  TO  ■ OWCR  FOR  THIS  CPU 

TRY  TO  ASSIGN  CONTIGUOUS  UMF ' 

IF  CS,  FAILURE 


; [MP01 ] 

;[MP01] 
;CHP01] 
; CMPOl] 
;[MP01] 
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1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
123S 
1239 
1240 
1241 
1242 
1243 
12^4 
1245 
1246 


003632 

003632 
003632 

003632 
003632 

003632 
003632 

0C3632 
003632 
003632 
003632 

003632 
003632 

003632 
003632 

003632 
003632 

003632 


ISTATS  I8UF3,KBUF3 


STATES 
TRANS 

XLLCSDFX 

STATES 
TRANS 

iXPTX 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 
TRANS 
TRANS 

XPTDF1 

'I.XPTDFI 

SRAD50,XPTDF1 

STATES 
TRANS 

SNUM8R 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

$NUMSR,SEXIT,XPCIR 

STATES 
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1715 
1716 
1717 
1718 
1719 
172C 
1721 
1722 
1725 

1725 
1726 
1727 
1728 
1729 
1730 
1731 


.SBTTL  OPEN  CONFIGURATION  FILE 


OPNCFG 

INPUTS: 

PROPERLY  INITIALIZED  FD8 
OUTPUTS: 

C-BIT  SUCCESS/FAILURE 


C05560  012^00  OOOOOOG 

005564  012701  OOOOOOG 

005570  012702  OOOOOOG 

005574 

005600 

005604 


OPNCFG: 


MOV 

#$DFUIC,RO 

MOV 

#$CET,R1 

MOV 

#$MAC,R2 

C/.LL 

SAZFS 

CALL 

tCLQUE 

RETURN 

SETUP  ASCII  FILENAME 
USE  'CETAB'  NAME 
USE  .MAC  EXTENSION 

ATTEMPT  TO  OPEN  FILE 
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oBjSdf  parse  tables 


2105 
2106 
2107 
2108 
2109 
2110 
2111 

2112  0C6324 

2113  006524 
2114 

2115  006324 

2116  006324 
2117 

2118  006324 

2119  006324 
2120 

2121  006324 

2122  006324 
2123 

2124  006324 

2125  006324 
2126 

2127  006324 

2128  006324 
2129 

2130  006324 

2131  006324 
2132 

2-^33  006324 
2134  006324 
2135 

2136  006324 

2137  006324 
2138 

2139  006324 

2140  006324 
2141 

2142  006324 

2143  006324 
2144 

2145  006324 

2146  006324 
2147 

2148  006324 

2149  006324 
2150 

2151  00t)324 

2152  006324 
2153 

2154  006324 

2155  0C5324 
2156 

?157  006324 
'158  006324 
2159 

2160  006524 

2161  006324 


DECSDF  MACRO  STATE  TABLE 


STATES  DECDF 
TRANS  SNUMeR,,FCLLNK 

STATES 
TRANS  <',> 

STATES 
jRANS  SNUM8R,,N0DCT 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBP,,INC" 

STATES 
TRANS  <■,> 

STATES 
TRANS  SNUM8R,,0UTT 

STATES 
TRANS  <',> 

STATES 
TRANS     SNUri8R,,lNAC 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUM8R,,DELF 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,DELW 

STATES 
TRANS  <',> 

STATES 
TRANS  SNUMBR,,IPL 

STATES 
TRANS  <',> 

STATES 
TRANS  $NUM8R,,LbT 


MAX  LOGICAL  LINKS 


MAX  NODE  COUNTERS 


INCOMING  TIMER 


;  OUTGOING  TIMER 


;  INACTIVITY  TIMER 


;  DELAY  FACTOR 


;  DELAT  WEIGHT 


INPUT  PACKET  LIMITER 


LINK  SERVICE  THRESHOLD 
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2520 

2529 

2530 

2531 

2532 

2533 

253^. 

2535 

2536 

2537 

2538 

2539 

25AC  00632^ 

25i1  006332 

2542  006340 

2543 


012767 
012767 


.S8TTL  TPAfiS  ACTION  ROUTINES 

.SBTTL  ACTION  ROUTINE:  BUFSDF  MACRO  SEEN 

**-.BUfDF-8UF$DF  MACRO  SEEN 

THE  BUFSDF  MACRO  IS  USED  TO  CONTROL  THE  SIZE  AND  NUMBER  OF 
RESOURCES  ALLOCATED  TO  THE  NETWORK.  HERE  WE  SET  UP  THE  TABLE 
POINTERS  TO  BE  USED  WHEN  RETRIEVING  THE  ARGUMENTS  FROM  THE 
MACRO. 


006404'  OOOOOOG  '.aUFDF: 
000010  OOOOOOG 


MOV 
MOV 
RETURN 


#DFT8L,DFPTR 
#DFSIZ,DFCNT 


SET  UP  THE  DEFINITION  TABLE  POiNTER 
MAX  *  OF  ARGUMENTS  ALLOWED 
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ACTION  ROUTINE:  BUFSDF  ARGUMEN:  MISSING 


INPUT: 


007416 
007A2A 

007426 
007446 

007454 

007460 

007462 
007466 


007470 
007476 

007500 


007530 

007532 

007552 
007556 

007560 

007564 

007566 
007572 


022767  001777  OOOOOOG  .HSTAD: 
002416 


056767  OOOOOOG  000O22G 


062716  000002 


10$: 


VNT!  -  VNP  NETUORK  INITIALIZATI  MACRO  VO5.03b  Sa 
ACTION  ROUTINE:  HOST  NODE  ADDRESS  SEEN 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2344 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 

2!;^1 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 


D  12 

turday  29-Jun-85  02:46  Page  63 


.S8TTL  ACTION  ROUTINE:  HOST  NODE  ADDRESS  SEEN 
.HSTAD  -  HOST  NODE  ADDRESS  SEEN 


.PNUMB  =  THE  NODE  ADDRESS 


CMP 
BLT 

GETRV 
BIS 

PUTRC 

RETURN 

ADD 
RETURN 


#1023.,.PNUMB 
10$ 

$PECPT,#D$END 
.PNUMB,$BFR+D$HOST 


*2,{SP) 


022767  000077  OOOOOOG  .HSTAR: 
002433 

016700  OOOOOOJ 
000012 


000241 


010067     000022G 
001403 


062716     000002 


10$: 


.HSTAR 

-  HOST  AREA 

CMP 
BLT 

#63.,.PNUMB 
10$ 

MOV 

.REPT 

ASL 

.ENDR 

CLC 

.PNUMB.RO 

10. 

RO 

GETRV 

$DECPT,#D$END 

MOV 
BEQ 

R0,$BFR+D$HOST 

loi 

PUTRC 

RETURN 

ADD 
RETURN 

#2,(SP) 

CHECK  LIMIT 

IF  ERROR  -  BRANCH 

READ  DECNET  HOME  BLOCK 
STORE  THE  NODE  NUMBER 

WRITE  BACK  DECNET  HOME  BLOCK 


ILLEGAL  HOST  NODE  ADDRESS 


;  CHECK  LIMIT 

;  IF  ERROR  -  BRANCH 

;  COPY  AREA 

;  POSITION  AREA  BITS 

;  READ  DECNET  HOME  BLOCK 

;  STORE  HOST  AREA 

;  IF  ERROR  -  BRANCH 

;  WRITE  BACK  DECNET  HOME  BLOCK 

;  ILLEGAL  HOST  AREA 


E  12 

VNTI  -  VNP  NETWORK   INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46     Page  64 
ACTION  ROUTINE:    SVSTEM   ID   SEEN 


VNTI  -  VNO 
ACTION  Rnu 

3295 
5296 
3297 
3298 
3299 

3300  01 

3301  01 
3302 
3303  01 
330A  01 
3305 

3306  01 

3307  01 
3308 

3309  01 

3310  01 
3311 


D  13 

NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jut85  02:46  Page  73 
TINE;  ROUTING  TIMER 

.SBTTL  ACTION  ROUTINE:  ROUTING  TIMER 


2110  005767  OOOOOOG 
21K  001016 

2116 

2136  016767  OOOOOOG  000076G 

2H4 
2150 

2152  062716  000002 
2156 


.RRTM  -  ROUTING  TIMER  ACTION  ROUTINE 


.RRTM:   TST 
BNE 


.PNUMH 
10$ 


;  LEGAL  ROUTING  TIMER  INTERVAL  VALUE? 
;  8R  IF  NO 


GETRV   $DECPT,*P$END   ;  READ  DECNET  HOME  BLOCK 

MOV     .PNUMB,$BFR+[)$RTMR  ;  GET  ROUTING  TIMER  INTERVAL  VALUE 


l0$: 


PUTRC 
RETURN 

ADD     #2,(SP) 
RETURN 


WRITE  DECNET  HOME  BLOCK  TO  IMAGE 
ILLEGAL  ROUTING  TIMER  INTERVAL  VALUE 
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VNTI  -  VNP  NETWORK  INITIALI2ATI  MACRO  V05.O3b  Saturday  29-Jun-85  02:46  Page  74 
ACTION  ROUTINE:  MAXIMUM  AREA 


D  U 

VNTI  -  VNP  NETWORK  INHIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46 
ACTION  ROUTINE:  OBjECT  COPIES  SEEN 


Paqe  86 


3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3b66 

3667 

3668 

3669 

i670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 


013434 
013442 
013446 
013450 
013454 

013456 
013462 
013466 

013470 
013474 
013502 
013510 
013516 
013524 
013532 
013536 
013546 


013564 
013566 
013572 
013576 
013602 
013606 
013612 


013614 
013620 
013622 


.S8TTL  ACTION  ROUTINE:  OBJECT  COPIES  SEEN 
'*♦«  -  .OCPV  -  OBJECT  COPIES  SEEN 
INPUTS: 


.PNUMB  =  OBJECT  COPIES  SEEN 


JUTPU  i: 


TRANSITION  IS  ACCEPTED/REJECTED 


116767 
005767 
001062 
105767 
001057 

012701 

103455 

012701 
116761 
016761 
016761 
116761 
116761 
010067 


005001 
156701 
016700 


OOOOCOG  000064' 
OOOOOOG 

000001 G 
000012 


OOOOOOG 

000063'  000002 

000032'  000006 

000034'  000010 

000062'  000003 

000064'  000004 
000004 ' 


,0CPr: 


.OEND: 


10$: 


.ENABL 

MOVB 

TST 

BNE 

TST8 

BNE 

MOV 

CALL 

BCS 

MOV 

MOVB 

MOV 

MOV 

MOVB 

MOVB 

MOV 

CEACCS 

PUTAD 


LS8 

.PNUMB.MXCP 

.PNUMH 

101$ 

.PNUMBtl 

lOn 

#0.LEN,R1 

$ALPOL 

111$ 


GET  NUMBER  OF  COPIES 
IS  IT  A  WORD  VALUE  ? 
IF  NE,  NO 

IS  IT  A  BYTE  VALUE  ? 
IF  NE,  NO 

GET  LENGTH  OF  AN  OBJECT  BLOCK 
TRY  TO  ALLOCATE  AN  OBJECT  BLOCK 
IF  CS,  COULDN'T 


#$BFR,R1 

TYPE,0.TYP(R1) 

CNAME,0.NAM(R1)    .    . 

ONAMEt2,O.NAM+2(Rl) 

FLAG,0.FLG(R1) 

MXCP.O.MXCCRl) 

RCCURUNM 

RO 

R0,#O.LEN 


POINT  AT  I/O  BUFFER 

STORE  THE  OBJECT  TYPE  NUMBER 

STORE  THE  OBJECT  NAME 


STORE  THE  FLAGS  BYTE 

STORE  THE  MAX  NUMBER  OF  COPIES  TO  SPAWN 

SAVE  UNMAPPED  ADDRESS 

CONVERT  TO  MAPPED  ADDRESS 

WRITE  OUT  THE  OBJECT  BLOCK 


INSERT  ENTRY  INTO  LIST 


000002G 
000004' 


012702  OOOOOOG 


062716  000002 


CLR 

BISB 

MOV 

CALL 

MOV 

CALL 

RETURN 


Rl 

$BFR+0.TYP,R1 

CURUNM,RO 

F I NOB J 

#$06JHD,R2 

QINS 


ERROR  CONDITIONS 


101$: 


ADD 

RETURN 
111$:    NTIERR   23 
.DSA6L  LSB 


#2,(SP) 


GET  OBJECT  TYPE  NUMBER 

..WITHOUT  SIGN  EXTEND 

RETRIEVE  UNMAPPED  ADDRESS 

FIND  WHERE  OBJECT  GOES  IN  LIST 

POINI  TO  LISTHEAD 

INSERT  ENTRY  INTO  LIST 

RETURN  TO  USER  MODE  AND  TO  CALLER 


REJECT  TRANSITION 

OBJECT  BLOCK  ALLOCATION  FAILURE 


E  K 

VNTI  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46 
FINOBJ  -  FIND  PLACE  TO  INSERT  OBJECT 
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e  15 

VNTl  -  VNP  NETWORK  INITIALIZATl  MACRO  V05.05b  Saturday  29-Jun-85  02:46  Page  96-1 
f ILSDF/SERtD^  ACTION  ROUTINES 


A190 

^191  015436  005741 

4192  015440  166701  OOOOOOG 

4195  015444  005726 

4194 

4195  015446 

4196 


40$: 


50$: 


TST 

-(Rl) 

;  CALCULATE  PDV  INDEX 

sue 

$P5VTA,R1 

TST 

(SP)  + 

;  CLEAN  UP  STACK 

RETURN 
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VNTI  -  VNP  NETUORK  INITIALIZATl  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  97 
FIL$DF/SERSDF  ACTION  ROUTINES 


0  16 

VNTl  -  VNP  NETWORK  INIIIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46 
.fLBKO  -  FILE  NAME  BLOCK  PROCESSING 


4662 
4665 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 
467A 
4675 
4676 
467' 
4678 
4679 
4680 
4681 
4682 
4683 


017216  001004  BNE 

017220  112722  000054 

017224  105267  000206' 

017230  005067  000000'       1$: 

017234  112022 

017236  105267  000206' 

017242  005301 

017244  001371 

017246  112^12  000135 

017252  105267  000206' 

017256  012767  000266'  000334'  10$: 

017264  005067  000204' 

017270  RETURN 


1$ 


Move  #',,(R2)t 

INCB  UIC8UF 

CLR  NAMED 

Move  (R0)*,(R2)t 

INCB  UIC8UF 

DEC  R1 

BNE  1$ 

M0V8  #'J,(R2) 

INCB  U1C8UF 

MOV  #fNBUFF,STRPT 

CLR  STRSI2 


Page  104-1 


IF  YES  -  BRANCH 

STORE  GROUP/USER  UIC  SEPARATOR 
INCLUDE  , 

INJT  NAMED  DIRECTORY  FLAG 

STORE  STRING 

COUNT  ONE  CHARACTER 

if 'more  -  BRANCH 

STORE  UIC  TERMINATOR  CHARACTER 
ADJUST  UIC  STRING  SIZE 

RESET  PARSED  STRING  POINTER 
INIT  SIZE 


E  16 
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QINS  -  INSi^RT  ENTRY  INTO  QUEUE 
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VNCP  -  VNP  GET  COMMANDj  NCP  STY  MACRO  V05.03b  Saturday  29-Jun-85  02:A4 
SPFILL  -  Fill  area  with  spaces 
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15?2 

1223 

152A 

1525 

1526 

1527 

1528 

1529 

1550 

1531 

1532 

1533  006536 

153^  006536 

1535  006540 

1536  006542 

1537  006544 

1538  006550 

1539  006552 

1540  006554 

1541  006556 

1542  006560 
1543 


.SSTTL  SPFILL  -  FUl  area  with  spaces 
♦♦*  SPFILL  -  Fill  area  with  spaces 
INPUTS 


RO 
R1 


address  of  area  to  fill 
length  of  area  to  fill 


010046 
010146 
001404 
112720 
005301 
003374 
012601 
012600 

000001 


OUTPUTS 

All  registers  preserved 

SPFILL: 


000040 


MOV 

RO,-(SP) 

MOV 

R1,-(SP) 

BFQ 

20$ 

lot: 

MO»/B 

#SPACE,(RO)+ 

DEC 

R1 

BGT 

10$ 

20$: 

MOV 

(SP)+,R1 

MOV 

(SP)+,RO 

RETURN 

.END 

save  regi'^ters 
nothing  to  do? 

restore  regs 


;CTD001] 
;CTD001] 
;CTD001] 
;tTD001.1 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD0013 
;[TD00n 
;CTD001] 
;CTD001] 
;[TD001] 
;CTD0C1] 
;CTD001] 
;[TD001] 
;[TD001] 
;[TD00i: 
.-CTDOOID 
;[TD001] 
;[TD001] 
;[TD001] 


VNCP  -  VNP  GET  COMMANDS  NCP  STY  MACRO  V05.03b  Saturday  29-Juri-" 
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VNCP      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:44 
SYMBOL  CROSS  REFERENCE 


E  2 

PAGE  9 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

$IFX9S 

0021K  RG 

#7-608 

$INA 

002516  RG 

#7-705 

$INC 

002402  RG 

#7-683 

SLNAME 

002166  RG 

#7-635 

$LTM 

002230  RG 

#7-650 

SMACT 

002266  RG 

#7-660 

SMDEA 

002334  RG 

#7-672 

$MUL 

=  *«*♦«♦  GX 

7-909 

SMXCO 

002632  RG 

#7-727 

SMXLI 

002700  RG 

#7-739 

SNADD 

003062  RG 

in-777 

SNNAM 

004722  RG 

#7-1088 

SONAM 

003214  RG 

#7-802 

SOPTON 

=  ****»«  GX 

*6-200 

SOTYP 

003260  RG 

#7-814 

$OUT 

002450  RG 

117-69', 

SOVER 

003350  RG 

#7-830 

SOWN 

003360  RG 

#7-837 

SPCIR 

003420  RG 

#7-847 

$PDT 

001434  RG 

#7-495 

SPDVTA 

=  •*»*♦*  GX 

11-1402 

SPFLAG 

=  »**»**  GX 

13-1476 

SPNAM 

003476  RG 

#7-864 

SPRI 

003536  RG 

#7-874 

SQUAL 

=  «*«*«*  GX 

*6-202 

$RADDR 

=  »♦*♦♦*  GX 

»7-549 

SROBSZ 

=  »**.»*  GX 

7-931 

$RET 

002564  RG 

#7-716 

$SAVVR 

=  «*♦*.*  GX 

7-1202 

SSCOND 

003o36  RG 

#7-895 

SSCOPI 

003606  RG 

#7-886 

$SC0P2 

003616  RG 

#7-889 

$SC0P3 

003626  RG 

#7-892 

SSCSR 

003750  RG 

#7-918 

$SEG 

004026  RG 

#7-931 

SSLTMA 

=  »*»*♦♦  GX 

11-1395 

SSLTNM 

=  *•*»♦♦  GX 

11-1396 

SSTADD 

004102  RG 

#7-948 

SSTALI 

004234  RG 

#7-974 

SSTDES 

004246  RG 

#7-982 

SSTEND 

004260  RG 

#7-990 

SSTHOS 

004306  RG 

#7-1000 

SSTLND 

004440  RG 

#7-1026 

SSTLSH 

004552  RG 

#7-1054 

SSTLSN 

004516  RG 

#7-1046 

SSTNAD 

004570  RG 

#7-1061 

SSTNAM 

004734  RG 

#7-1095 

SSTPAR 

005026  RG 

#7-1121 

SSTRPA 

005072  RG 

#7-1132 

tSTSNM 

005166  RG 

#7-1153 

tSTTPA 

005230  RG 

#7-1169 

$TRI 

005324  RG 

#7-1191 

7-384 


7-596 


7-600 


7-604 


7-608 


7-1277 


7-443 
*7-781 


7-1238 


7-1191 
•7-953 


7-1270 


7-1227 
*7-1004 


*7-1065    *8-1314 


VNCP 


CREATED  BY  MACRO  ON  29-JUN-85  AT  02:44 
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VNP  -  VIRTUAL  NETWORK  COMMAND  P  MACRO  V05.03b  Saturday  29-Jun-85  02:45 
PRLIN  -  SPECIAL  PROCESSING  FOR  LINES 
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2A9 
250 
251 
251 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 


000402  111667  OOOOOOG 
000406  000720 


000410 
000412 
000420 
000422 
000424 
000426 


000430 
000440 


005726 
032767 
001002 
005704 
001405 


000004  OOOOOOG 


60$: 


70$: 


MOVB 
BR 

TST 
BIT 
BNE 
TST 
BEQ 
RETURN 


(SP),$0PT0N 
15$ 

(SP)t 

*QF$KN0,$QUAL 

70$ 

R4 

102$ 


ERROR  CONDITIONS 


101$: 
102$: 


ERRPT$  LNER1,$ER0UT 
ERRPT$  LNER2,$ER0UT 


RESTORE  LOW  BVTE  OF  OPTIONS  WORD 
ELSE,  GET  THE  NEXT  LINE 

CLEAN  UP  STACK 

WAS  THIS  FOR  KNOWN  LINES  ? 

IF  NE,  YES  ..  LEAVE 

ELSE,  WERE  Af.'Y  LINES  FOUND 

IF  EQ,  NO  ..  LINE  NOT  IN  SYSTEM 


INVALID  LINE  OPTION 
LINE  NOT  IN  SYSTEM 


f     3 
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VNP  -  VIRTUAL  NETWORK  COMMAND  P  MACRO  V05.03b  Saturday  29-Jun-85  02:A5  Page  U 
$SLIN  -  SET  LINE 


681 

.SSTTL 

$SLJN  -  SET  LINE 

682 

+ 

683 

SSLIN 

-  "SET 

LINE" 

68^ 

685 

INPUTS: 

686 

$0PT0N 

=  OPTIONS  WORD 

687 

688 

OUTPUTS: 

689 

C-BIT=:SUCCESS/FAILURE 

690 

691 
692 
695  002236 

"■ 

tSLIN: 

69/.  002256 

105767 

OOOOOOG 

TST8 

SOPTON 

695  0022A2 

00U03 

BEQ 

10$ 

696  00224A 

CALL 

LDLIN 

697  002250 

103417 

BCS 

40$                 ; 

698  002252 

012705 

002512' 

10$: 

MOV 

#LJNTAB,R5 
(R5)+,R4 

699  002256 

012504 

20$: 

MOV 

700  002260 

001415 

BEQ 

40$                 ; 

701  002262 

050467 

OOOOOOG 

BIT 

R4,$0PT0N 
50i 

702  0C2266 

001406 

BEQ 

705  002270 

010446 

MOV 

R4,-{SP)             ; 

70^  002272 

010546 

MOV 

R5,-(SP)             ; 

705  002274 

CALL 

a(R5) 

706  002500 

012605 

MOV 

(SP)+,R5 

707  002302 

012604 

MOV 

(SP)+,R4 

708  002504 

005725 

30$: 

TST 

(R5)  + 

709  002306 

000765 

BR 

20$ 

710  002510 

40$: 

RETURN 

711 

712  002312 

LINTAB: 

715  002512 

000400 

OOOOOOG 

.WORD 

OP$MDE,$VDEA 

7^'^   002516 

000000 

.WORD 

0 

DO  WE  NEED  TO  LOAD  THE  LINE 

If  EQ,  NO 

ELSE,  LOAD  THE  LINE 

IF  CS,  LOAD  FAILED 

GET  FUNCTION  DISPATCH  TABLE 

GET  OPTIONS  BIT  TO  CHECK 

BR  IF  END  OF  TABLE 

WAS  THIS  OPTION  SPECIFIED? 

BR  IF  NO 

SAVE  R4 

SAVE  R5 

ELSE,  EXECUTE  RFQUEST 

RESTORE  R5 

RESTORE  R4 

SKIP  TO  NEXT  REQUEST 

IF  NE,  YES 


SET  MULTIPOINT  DEAD  RATIO 


F  4 
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MACRO   CROSS   REFERENCE  CREF        OA.OO 


MACRO  NAME 

REFERENCES 

ASRt 
CALL 

#5-60 
7-1A3 

15-526 
7-U6 

7-148 

10-217 

10-247 

10-261 

10-262 

11-277 

11-286 

11-290 

11-295 

11-306 

12-335 

12-373 

12-390 

15-511 

16-573 

16-581 

16-585 

16-592 

16-594 

16-596 

1§-5?§ 

16-601 

17-651 

17-65A 

17-656 

17-661 

17-666 

18-696 

18-705 

19-736 

19-7;4 

19-747 

19-750 

1>  752 

19-760 

19-763 

19-767 

20-790 

CALLR 

16-620 

19-774 

ERBLKS 

#5-60 

6-84 

6-86 

6-88 

11-310 

15-542 

15-544 

ERMSGS 

#5-60 

6-83 

6-85 

6-87 

11-309 

15-541 

15-543 

ERRPTt 

#5-60 

10-261 

10-262 

11-306 

12-390 

15-521 

15-533 

GETRV 

#5-60 

20-790 

MOV  IT 

#15-502 

15-516 

15-520 

15-528 

15-532 

RAND 

#20-790 

20-790 

RETURN 

10-257 
19-769 

11-302 
20-792 

11-307 

12-386 

14-492 

15-535 

15-537 

16-614 

VNPDFS 

#5-60 

5-69 

11-278  M-280 

15-521  15-533 

16-607  17-644 

19-739  19-741 


17-668  18-710 


F     5 
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VNTI  -  VNP  NETWORK  INJITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-83 
LOCAL  DATA 


h:' 
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108 
109 

no 
ni 

112 

113  000000 

IK  OOOOOO 

115  000002 

116  OOOOOA 

117  000006 

118  000022 

119  000030 

120  000032 

121  000036 
1?2  OOOOAO 

123  000042 

124  0000-4 

125  000046 

126  000056 

127  000060 

128  000061 

129  000062 

130  000063 

131  000064 
132 

133 

134  000066 

135  000070 

136  000072 
137 

138  000074 

139  000076 

140  000100 

141  000102 

142  000104 

143  000106 
144 


OOOOOO 


OOOOOO 
OOOOOO 
OOOOOO 


OOOOOO 
OOOOOO 
OOOOOO 


.SBTTL  LOCAL  DATA 


;  LOCAL 

DATA 

.PSECT 

DATA.D 

NAMED: 

.WORD 

0 

PRVUNM: 

.BLKW 

CURUNM: 

.BLKU 

UMRBF : 

.BLKW 

M.LGTH/2 

NAMBUF  : 

.BLKW 

NAME: 

.BLKW 

ONAME : 

.BLKW 

STAN: 

.BLKW 

MRKFL: 

.BLKW 

CLASS: 

.BLKW 

FLTFLG: 

.BLKW 

EVENT: 

.BLKW 

STRADD: 

.BLKW 

CTL: 

.BLKB 

UNT: 

.BLKB 

FLAG: 

.BLKB 

TYPE: 

.BLKB 

1 

MXCP: 

.BLKB 
.EVEN 

1 

XPTLLN: 

.WORD 

0 

ECLLLN: 

.WORD 

0 

ECLNOD: 

.WORD 

0 

NN: 

.BLKW 

1 

NA: 

.BLKW 

1 

REMARE: 

.BLKW 

1 

NBRA: 

.WORD 

0 

RAD: 

.WORD 

0 

NBEAJ: 

.WORD 

0 

NAMED  DIRECTORY  FLAG 

UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK  IN  LIST 

UNMAPPED  ADDRESS  OF  CURRENT  BLOCK  IN  LIST 

LOCAL  COPY  OF  UMR  BLOCK 

ASCII  TO  RAD50  CONVERSION  BUFFER 

REMOTE  NODE  NAME 

OBJECT  TASK  NAME 

STATION  NUMBER 

MARK  FOR  LOAD  FLAG 

EVENT  CLASS  NUMBER 

FILTER  BLOCK  FLAGS  WORD 

EVENT  TYPE  MASKS 

ADDRESS  OF  CURRENT  EVENT  MASK  TO  PROCESS 

CONTROLLER  NUMBER 

UNIT  NUMBER 

OBJECT  FLAGS  BYTE 

OBJECT  TYPE 

OBJECT  MAX.  NUMBER  OF  COPIES 


XPT  CIRCUITS 

MAX  LOGICAL  LINKS 

ECL  NODE  COUNTERS 

MAX  NOD  ADDRESS  IN  SYSTEM 

MAX  AREAS 

REMOTE  AREA 

TOTAL  OF  BROADCAST  ROUTER  ADJACENCIES 

INTERMEDISTE  ROUTER  ADJACENCY  VALUE 

BROADCAST  ENDNODE  ADJACENCY  VANLUE 
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UMR  ALLOCATION 


727 
728 

729 

730  002A36 

731 

732  0024A2 

016102 

000002 

733  0024A6 

162702 

170200 

734  002452 

006302 

735  002454 

006302 

736  002456 

006302 

737  002460 

006302 

738  002462 

006302 

739  002464 

000241 

740  002466 

010267 

OOOOOOG 

741  002472 

742  002476 

743  002514 

744 

745  002522 

746 

747 

748 

749 

750  002524 

751  002534 

752  002544 

15$: 


20$: 


25$: 


BR 
.ENDC 

CALL 

MOV 

sue 

ASL 

ASL 

ASL 

ASL 

ASL 

CLC 

MOV 

SUTCHO 

PUTRC 

SUTCHO 

RETURN 


20$ 


$ASUMR 

M.UMRA(R1),R2 

#UBf-1PR,R2 

R2 

H 
H 
R2 

R2,PUMR 

R1 

RO,#M.LGTH 


Page  11-1 

;  IF  SUCCESS  -  BRANCH 


/CMPOI] 

;i:mpoij 

assign  umr's  ;chp01j 

calculate  and  save  eventual  $pumr  value 


ERROR  CONDITIONS 


101$: 

NTIERR 

20 

111$: 

NTIERR 

21 

121$: 

NIIERR 

22 

CHANGE  DEFAULT  BUFFER 
WRITE  UMR  BLOCK 
RESET  DEFAULT  BUFFER 


UMR  BLOCK  ALLOCATION  FAILURE 
NOT  ENOUGH  CONTIGUOUS  UMR'S 
NON-UMR-MAPPED  AREA  TOO  LARGE 
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STATE  TRANSITIONS  FOR  FINDING  NETWORK  POOL  PARTITION 

12A8 

1249 

1250  003652 

1251 

1252  005632 

1253  003632 

1254  003632 

1255  005632 

1256  005632 

1257  003652 

1258  005652 

1259  005652 

1261  005652  STATES 

1262 


ISTATS 

1"UF4,KBUF4 

STATES 

TRANS 

XDEC?rFX 

STATES 

TRANS 

SNUMeR,,ECLLNK 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNlIM8R,SEXIT,N0DC 

F  8 
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SCAN  CGMFIG  fILE    FOR   NTPOOL   DEFINITIONS 


1733 
1734 

+ 

.SBTTL 

SCAN  CONFIG  FILE 

FOR  NIPUUL  DbUNl  1  lUNb 

1735 

NTPSCN 

1736 

1737 

INPUTS: 

1738 

THE  CONFIG  FILE  SHOULD  BE 

OPEN 

1739 

1740 
1741 

OUTPUTS: 

NTPNAM 

-  RETURNED  AS  THE 

RAD50  NAME  FOUND  IN  THE  BUF$DF  MACRO 

1742 

IF  MAPPED 

1743 

NTPSIZ 

-  NUMBER  OF  32-WORD  BLOCKS  TO  ALLOCATE 

1744 

NTPPAR 

-  NTPOOL  SYSTEM  PARTITION  NAME  TO  USE  WHEN  ALLOCATING 

1745 
1746 
1747  00560b 

- 

NTPSCN: 

1   »   T   '        \J    \J    J    \JV    ^mj 

1748  005606 

005067 

OOOOOOG 

CLR 

NTPSIZ 

ZERO  POOL  SIZE  ACCUMULATOR 

1749  005612 

005067 

000002G 

CLR 

NTPSIZ+2 

BOTH  WORDS 

1750  005616 

012767 

000001 

OOOOOOG 

MOV 

#1,N0NMAP 

DEFAULT  SIZE  OF  NON-UMR-MAPPED  AREA 

1751  005624 

012767 

160000 

OOOOOOG 

MOV 

#160000, CFSFLG  , 

INITIALIZE  FLAG  WORD 

1752  005632 

0$: 

GCLS 

READ  IN  NEXT  RECORD 

1753  005636 

103546 

BCS 

60$              ; 

READ  ERROR 

1754  005640 

016703 

OOOOOOG 

MOV 

$CLI0S,R3 

lOSB  ADDRESS 

1755  005644 

016303 

000002 

MOV 

2(R3),R3 

NUMBER  OF  CHARACTERS  READ 

1756  005650 

010367 

OOOOOOG 

MOV 

R3,LINSIZ 

loi 

STORE  LINE  SIZE  IN  CASE  Of  ERROR 

1757  005654 

001766 

BED 

SKIP  ZERO  LENGTH  LINES 

1758 

1759 

1760 

•  + 

1761 

•  LLCSDF  (ECL.XPTJ 

1762 
1763 

;  LLCSDF  ARE  PARSED  FOR  VALUES  IMPACTING  THE  SIZE  OF  POOL. 

1764 

1765 

;- 

1766 

1767  005656 

012702 

000014' 

MOV 

#KBUF3,R2 

SET  UP  KEYWORD  ADDRESS  XPT  STATE  TABLE 

1768  005662 

012705 

000254- 

MOV 

#I8UF3,R5 

1769  005666 

CALL 

PARSE 

LOOK  FOR  XPT 

1  1  \j  '      \j  \j  J  \j\j\j 

1770  005672 

012702 

000020' 

MOV 

#K6UF4,R2 

SET  UP  KEYWORD  ADDRESS  ECL  STATE  TABLE 

1771  005676 

012705 

000306' 

MOV 

#IBUF4,R5 

LOOK  FOR  ECL 

1772  005702 

CALL 

PARSE 

1773  005706 

012702 

000022' 

MOV 

#KBUF5,R2 

LOOK  FOR  SLT$Df 

1774  005712 

012705 

000324' 

MOV 

#IBUF5,R5 

SET  UP  START  OF  STATE  TABLE 

1775  005716 

CALL 

PARSE 

1776 

1777 

1778 
1779 
1780  005722 

;  ROUSDF 

032767 

020000 

OOOOOOG 

BIT 

*20000,CF5FLG 

HAS  ROU$DF  ALREADY  BEEN  PROCESSED? 

1781  005730 

001424 

BEQ 

18$ 

IF  EQ,  YES 

1782  005732 

012702 

000000' 

MOV 

#KBUfO,R2 

•  LOOK  FOR  ROU$DF 

1783  005736 

012705 

000000' 

MOV 

#I8UF0,R5 

1784  005742 

CALL 

PARSE 

;785  005746 

103404 

BCS 

15$ 

•  if'cs,  error 

1786  005750 

042767 

020001 

OOOOOOG 

BIC 

#20001, CFSFlG 

;  NDICATE  ROU$DF  SEEN  WITHOUT  ERROR 

1787  005756 

001473 

BEQ 

50$ 

;   F  EQ,  ALL  DONE 

1788  005760 

105767 

OOOOOOG 

15$: 

TST8 

CFSFLG 

;  WAS  THE  ROUSDF  IM  ERROR  ? 

1789  005764 

001406 

BEQ 

18$ 

;  IF  EQ,  NO 
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OajSDF  PARSE  TABLES 

2163  006324  STATES 

2164  006324  TRANS  <",> 

2167  006324  ^TRANS  iNUM8R,,RETF          ;  RETRANSMIT  FACTOR 

2169  006324  STATES 

2170  006324  TRANS  <',> 

2175  006324  SrANS     SNJMBR.SEXir.SEG                 ;    ECL   SEGMENT   SIZE 

2175  006324  STATES 
2176 
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ACTION  ROUTINE;  BUFSDF  ARGUMEN:  MISSING 


2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 


.SBTTL  ACTION  ROUTINE:  BUFSDF  ARGUMENT  MISSING 

*»-.8UFSK-8UF$DF  ARGUMENT  MISSING 

ONE  OF  THE  ARGUMENTS  OF  THE  BUF$DF  MACRO  WAS  FOUND  TO  BE  MISSING, 
WE  WILL  USE  THE  DEFAULT  VALUE  HlACED  IN  THE  COMMEXEC  DATABASE 
AT  SYSTEM  BUILD  TIME  AND  MOVE  ON  THE  POINTERS  FOR  THt  NEXT 
ARGUMENT. 


006542  062767  000002  OOOOOOG  .BUFSK:  ADD     *2,DFPTR 
006350  005367  OOOOOOG  DEC     DFCNT 

00635-.  RETURN 


MOVE  ON  THE  DEFINITION  POINTER 
ANOTHER  ARGUMENT  SCANNED 
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ACTION  ROUTINE: 

SYSTEM 

ID  SEEN 

2876 

2877 

♦ 

2878 

2879 

2880 

2881 
2882 
2883 

~ 

007574 

016767 

OOOOOOG  000454  '.SYSID: 

288^ 

007602 

005267 

000430 

2885 

007606 

012701 

000042 

2886 

2887 

007612 

1$: 

2888 

007616 

5$: 

2889 

007624 

2890 

0076A4 

2891 

2892 

007652 

2893 

007660 

010067 

000020G 

2894 

007664 

2895 

007670 

2896 

2897 

007676 

012767 

000040  000334 

26?? 

007704 

2899 

' 

I  12 
02:46 
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.SBTTL  ACTION  ROUTINE;  SYSTEM  ID  SEEN 

•♦-.SYSID-SYSTEH  ID  SEEN 

THE  SYSTEM  ID  STRING  HAS  BEEN  FOUND  IN  THE  'NODSDF'  MACRO. 


INC 
MOV 


.PSTPT.STRPTR 

STRPTR 

#34.,R1 


CALL  SALPOL 

SWTCHI  *$HM8Uf 

GETRV  $DECPT,#D$END 
SWTCHI 


*$HM8UF 
RO,$HMBUFtD$LID 


SWTCHO 
MOV 
PUTRC 
SWTCHO 


MOV     #32.,STRMAX 
RETURN 


SAVE  ADDRESS  OF  NEXT  BYTE 

WE  ARE  POINTED  AT  THE  "<"  NOW 
ALLOCATE  POOL..  FOR  ID  STRING 


;  USE  TEMPORARY  BUFFER 
;  READ  DECNET  HOME  BLOCK 
;  RESET  DEFAULT  BUFFER 

•  USE  TEMPORARY  BUFFER 

SET  UP  UNMAPPED  ADDRESS  FOR  ID  STRING 
UPDATE  HOME  BLOCK 
RESET  DEFAULT  BUFFER 

MAXIMUM  TEXT  LENGTH 

WAIT  FOR  THE  ">"  (.STRNG) 
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VNTI  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday 
ACTION  ROUTINE;  MAXIMUM  AREA 


3313 
33U 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
333A 
3335 
3336 


29-Jun-85  02:46  Page  74 
SBTTL  ACTION  ROUTINE:  MAXIMUM  AREA 


012160 


.RMAXA  -  MAXIMUM  AREA  ACTION  ROUTINE 
RMAXA:  GETRV   SDECPT ,#D$END   ;  READ  DECNET  HOME  BLOCK 


012200  005767  000060G 

012204  001004 

012206  005767  OOOOOOG 

012212  001405 

012214  000412 

012216  022767  000077  OOOOOOG  10$: 

012224  103406 

012226  016767  OOOOOOG  000062G  20$: 

012234 


012240 

012242  062716  000002 
012246 


30$: 


TST 

BNE 

TST 

BEO 

BR 

CMP 

BLO 

MOV 

PUTRC 

RETURN 

ADD 
RETURN 


$8fRtD$NN 

10$ 

.PNUMB 

20$ 

30$ 

#63.,. PNUMB 

30$ 


ROUTING  NODE  ? 

IF  YES  -  BRANCH 

IF  NO  -  VALUE  MUST  BE  ZERO 

IF  LEGAL  -  BRANCH 

ELSE  -  REPORT  ERROR 

CHECK  FOR  HIGH  LIMIT 

IF  OUT  OF  RANGE  -  BRANCH 


. PNUMB, $BFRtD$NA  ;  COPY  NUMBER  OF  AREAS  IN  NETWORK 
;  WRITE  BACK  DECNET  HOME  BLOCK 


#2,(SP) 


ILLEGAL  MAX  AREA  VALUE 
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FINOBJ  -  FIND  PLACE  TO  INSERT  OBJECT 


5  1* 

02;«6 


3705 
3706 
37r7 
3708 
5^09 
3710 
3711 
3712 
3713 
37U 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 


.S8TTL  flNOSJ  -  FIND  PLACE  TO  INSERT  OBJECT 

♦*•  -  FINOBJ  -  FIND  PLACE  TO  INSERT  OBJECT 

INPUTS: 

TYPE  =  OBJECT  TYPE  NUMBER  TO  BE  INSERTED 

OUTPUTS: 

RO  =  PRESERVED 

R1  =  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 

R2  =  DESTROYED 


013632 
013632 
013636 
0136A2 
0136A6 
01365A 
013662 
01366A 
013676 
013714 
013722 
013724 
CI  3730 


012702 
011267 
010267 
016767 
016767 
001420 


126767 

101351 
016701 


OOOOOOG 
OOOOOOG 
000004' 
000004' 


FINOBJ: 


000002'  10$: 


OOOOOOG  000004' 


000063'  000002G 
000002' 


20$: 


30$: 


MOV 

#$08JHD,R2 

MOV 

(R2),$BFR 

MOV 

R2,CURUNM 

MOV 

CUfiUNM.PRVUNM 

MOV 

$8FR,CURUNM 

6EQ 

30$ 

CEACC$ 

CURUNM,R2 

GETAD 

R2,#0.LEN 

CMPB 

TYPE,$BFR+0.TYP 

BHI 

10$ 

MOV 

PRVUNM.RI 

GET  START  OF  OBJECTS  LIST 

GET  FIRST  OBJECT  IN  LIST 

INITIALIZE  CURRENT  UNMAPPED  ADDRESS 

SAVE  UNMAPPED  ADDRESS  OF  PREVIOUS 

GET  UNMAPPED  ADDRESS  OF  NEXT  IN  LIST 

IF  EQ,  NO  MORE 

CONVERT  TO  MAPPED  ADDRESS 

READ  OBJECT  IN  INTERNAL  BUFFER 

DOES  OBJECT  GO  HERE  ? 

IF  HI,  NO 

RETRIEVE  UNMAPPED  ADDRESS  OF  PREVIOUS 


RETURN 
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I  15 

02:4 
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4198 

4199 

+ 

4200 

FSLT 

-  FIND  SLT  ADDRESS 

4201 

4202 

INPUTS  - 

4203 

RO  -  DDM  PDV  INDEX 

4204 

R1  -  CONTROLLER  NUMBER 

4205 

R2  -  UNIT  NUMBER 

4206 

4207 

OUTPUTS  - 

4208 

SERSLT 

-  CONTAINS 

SLN 

4209 
4210 
4211  015450 

- 

'SLT: 

SAVRG 

<R3,R4> 

•  SAVE  REGS 

4212  015454 

005046 

CLR 

-(SP) 

•  CLEAR  A  WORD  ON  STACK 

4213  015456 

110116 

MOVB 

R1,(SP) 

•  SET  CONTROLLER  NUMBER 

4214  015460 

110266 

000001 

MOVB 

R2,1(SP) 

;  SET  UNIT  NUMBER 

4215  015464 

016704 

OOOOOOG 

MOV 

$SLTMA,R4 

;  GET  SLT  VECTOR 

4316  015470 

012703 

177777 

MOV 

#-1,R3 

;  INIT  SLN  COUNTER 

4217 

4218  015474 

012402 

101: 

MOV 

(R4)t,R2 

;  GET  NEX1  SLT  ADDRESS 

4219  015476 

005203 

INC 

R3 

;  COUNT  ONE  MORE  LINE 

4220  015500 

126703 

OOOOOOG 

CMPB 

$SLTNM,R3 

;  END  OF  SLT'S  ? 

4221  015504 

001002 

BNE 

15$ 

;  IF  YES  -  ERROR 

4222  015506 

000261 

SEC 

;  SET  C-6IT 

4223  015510 

4224 

4225  C15512 

000414 

BR 

30$ 

;  CONTINUE 

126200 

000002 

15$: 

CMPB 

L.DDM(R2) 

RO 

;  MATCH  ? 

4226  015516 

001366 

BNE 

10$ 

;  IF  NO  -  BRANCH 

4227  015520 

126216 

000012 

CMPB 

L.CTL(R2) 

(SP) 

;  CORRECT  CONTROLLER  ? 

4228  015524 

001363 

BNE 

10$ 

;  IF  NOT  -  BRANCH 

4229  015526 

126266 

000013  000001 

CMPB 

L.UNT(R2) 

KSP) 

;  CORRECT  UNIT  ? 

4230  015534 

4231 

4232  015556 

4233 

4234  015542 

4235 

4236  015544 

001357 

BNE 

10$ 

;  IF  NOT  -  BRANCH 

010367 

000262' 

MOV 

R3, SERSLT 

;  STORE  SLN 

005726 

30$: 

TST 

(SP)  + 

;  CLEAN  STACK 

RESRG 

<R4,R3> 

;  RESTORE  REGS 

4237 

4238  015550 

RETURN 

4239 

4240 
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QINS  -  INft^RT  ENTRY  INTO  QUEUE 

.SBTTL  QINS  -  INSERT  ENTRY  INTO  QUEUE 

'•*«  -  QINS  -  'NSERT  ENTRY  INTO  MIDDLE  OF  QUEUE 

INPUTS: 

RO  =  UNMAPPED  ADDRESS  Or  CURRENT  BLOCK  TO  BE  INSERTED 

R1  =  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 

R2  =  ADDRESS  OF  LlSTHEAD  (INTERNAL  STORAGE) 

OUTPUTS: 

R0-R1  =  PRESERVED 
R2  =  DESTROYED 


^2^^ 


4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700  017272 

4701  017272 

4702  017274 

020102 

4703  017276 

001022 

4704  017300 

011246 

4705  017302 

010012 

4706  017304 

4707  017314 

4708  017332 

012667  OOOOOOG 

4709  017336 

4710  017342 

000404 

4711  017544 

010046 

4712  C17346 

010146 

4713  017350 

4714  017354 

4715  017356 

QINS: 


SAVRG 

CMP 

BNE 

MOV 

MOV 

CEACCS  RO 

GETAD   R0,#2 


<R0> 

R1,R2 

lOi 

(R2),-(SP) 

R0,(62) 


10$: 


20$: 


MOV 

PUTAD 

BP 

MOV 

MOV 

CALL 

RESRG 

RETURN 


(SP)+,$BFR 

20$ 

RO,-(SP) 

R1,-(SP) 

$XLINK 

<R0> 


SAVE  RO 

IS  PREVIOUS  ENTRY  THE  LlSTHEAD  7 

IF  NE,  NO 

AND  SAVE  POINTER  TO  NEXT  ENTRY 

INSERT  NEW  ENTRY  INTO  LIST 

CONVERT  TO  MAPPED  ADDRESS 

READ  IN  POINTER 

STORE  POINTER  TO  NEXT 

WRITE  BACK  THE  LINK  POINTER 

AND  EXIT 

GET  UNMAPPED  ADDRESS  OF  CURRENT  BLOCK 

GET  UNMAPPED  ADDRESS  OF  PREVIOUS 

LINK  CURRENT  BLOCK  INTO  LIST 

RESTORE  RO 
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VNCP  -  VNP  GET  COMMANDS  NCP  STY  MACRO  V05.03b  Saturday  29-Juri 
Symbol  table 


ACCTTL 

ADDRS 

ARAMSI<;= 

AREAN 

ASCII 

A$$CHK= 

A$$CPS= 

A$tPRI= 

A$$TRP= 

BDGRP 

BDHELT 

BDLIST 

CriKLOG 

CKEVE 

CKEVEB 

CKEVEC 

CKEVEN 

CKEVER 

CMSSHO= 

CNUMTL 

CRLF 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DTEATL 

DV.CCL= 

DV.COM= 

DV.DIR= 

OV.EXT= 

OV .  F 11  = 

DV.ISP= 

DV.MBC= 

DV.MNT= 

DV.MSD= 

DV.OSP= 

DV.PSE= 

DV.REC= 

DV.SDI= 

DV.SQD= 

DV.SWL= 

DV.TTY= 

OV.UMD= 

DSAMXC 

DSAMXH 

D$ANN 

DSBRPR 

D$BRTM 

DSDELF 

DSDELW 

D$END  = 

DSFNB 

DSHIOR 

DSHOST 

DSINAC 

DSINCT 

DSIPl 

D$LID 


0O1512R 

000102R 

•••*»*  GX 

0001  OCR 

00006AR 

000000 

000000 

000000 

000000 

0020;7R 

002110R 

002U4R 

006366R 

000452R 

000536RG 

000566RG 

0006A0RG 

000666RG 

*+****  GX 

000357R 

0001 06R 

000000 

000400 

177564 

002257R 

000002 

020000 

000010 

000400 

040000 

002000 

000400 

100000 

000100 

004000 

010000 

000001 

000020 

000040 

001000 

000004 

000200 

000072 

000074 

000000 

000102 

000100 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 


002 
002 


002  DSLNAM 
002  DSLNUM 

D$LST 
002  DSMAXC 
002  DSMAXH 
DSMAXV 
DSMLL 
DSMNOD 
DSNA 
DSNBEA 
DSNBRA 
002  D$NEND= 
DSNLN 
D$NN 
DSOUTT 
DSRETF 
D$RNN 
DSRTMR 
D$SEG 
002  DSSER 
002  DSSQRL 
D$$BUG= 
D$$ISK= 
D$$L11= 
002  DI$YNC= 
D$$YNM= 
D.NAM  = 
D.PCB  = 
O.UCB  = 
D.UCBL= 
D.UNIT= 
EBUF  = 
ELEN  = 
EMS6 
EOJ 

ERRHDI. 
ERRLiO 
EVEBEG= 
E$$XPR= 
FL.CNT= 
FNDDCB 
FORWR 
F$$LVL= 
F.RSIZ= 
F.URBD= 
GBUF  = 
6ETFAL 
GETLIN 
GLEN  = 
GMSG 
G$$TPP= 
G$$TSS= 
G$$TTK: 
G$$WRD= 
IE.EOF= 
IFALIT 
IFLOGT 


000006 

000014 

000047 

000064 

000066 

000070 

000040 

000041 

000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

******  GX 

******  GX 

******  GX 

******  GX 

******  GX 

000014R 

00001 6fi 

OOOOOOR 

000320R 

006304R 

005654R 

000062R 

000000 

******  GX 

0061 46R 

004514R 

000001 

******  GX 

******  GX 

000044R 

001451fi 

C06314R 

000046R 

000030R 

000000 

000000 

000000 

000000 

******  QX 

0021 52R 
0021 56R 


IFMODT 
ILLARE 
ILI  COS 
II.LCSR 
ILLINA 
ILLINC 
ILLHAC 
ILLMDE 
ILLNAD 
ILLOBJ 
ILLOUT 
ILLPRI 
ILLRET 
ILLSEG 
ILLTRI 
ILLUCS 
ILLVEC 
I0.WL6= 
IVDTEA 
IVLIID 
I$$RAR= 
I$$RDN= 
KEYTAB= 
K$$CNT= 
K$$CSR- 
K$$LDC= 
K$$TPS= 
LACCTI= 
LBDGRP= 
LBDHEL= 
L8DLIS= 
002  LCNUMT= 
002  LCRLF  = 
002  LDTEAT= 
LDSLP  = 
LD.ALI= 
LD.CEX= 
002  LD.C]R= 
LD.LIN= 
LD.L0G= 
LD.MOD= 
LD.NOD= 
LD.08J= 
LD.PRO= 
LF.MTP= 
002  LGETFA= 
002  LILLAR= 
LILLCO= 
002  LILLCS= 
002  LILLIN= 
LILLMA= 
LJLLMD= 
LILLNA= 
LILL0B= 
LILL0U= 
LILLPR-- 
LILLRE= 


F 
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-1 

002162R 

LILLSE= 

000037 

LO.TPA 

00231 2R 

002 

LILLTR= 

000040 

LO.TRB 

000607R 

002 

Lai.UC= 

000037 

LO.TRI 

000455R 

002 

LILLVE^ 

000037 

LO.UNT 

002514R 

002 

LIVDTE= 

000032 

LO.VCT 

002403R 

002 

LIVLI1= 

000042 

LO.VER 

001037R 

002 

LLNAMT= 

000031 

LPASWT= 

001105R 

002 

LMARKE= 

000002 

LPNAMT= 

000137R 

002 

LHSTRI= 

000052 

LPRNMT= 

001253R 

002 

LMSUNU= 

000045 

LPSWFT= 

002561R 

002 

LMXCN6= 

000050 

LR.ACC 

00050/R 

002 

LHXLN6= 

000042 

LR.ACO 

002446R 

002 

LNAMET= 

000024 

LR.ADD 

002344R 

002 

LNAMTL 

000226R 

002  LR.ALI 

001213R 

002 

LNSLIN= 

000031 

LR.BLK 

001000R 

002 

LNSTER= 

000035 

LR.CTL 

000550R 

002 

LOCOPT= 

000042 

LR.DES 

******  GX 

LONAMT= 

000042 

LR.HLP 

002225R 

002 

LOTSKT= 

000040 

LR.LIN 

001407R 

002 

LO.ADD 

000022 

LR.NAM 

000000 

LO.ADR 

000052 

LR.PAS 

000000 

LO.CLS 

000002 

LR.PRO 

******  GX 

LO.CON 

000006 

LR.STS 

177546 

LO.COP 

000010 

LR.TRI 

177546 

LO.COS 

000020 

LR.TYP 

000000 

LO.CSR 

000010 

LR.UCB 

000074 

LO.CTL 

000032 

LR.UIC 

000035 

LO.DES 

000002 

LR.UNT 

000041 

LO.DTE 

000047 

LSYNER= 

000034 

LO.EVT 

000004 

LS.ALI= 

000035 

LO.GRO 

000024 

LS.CEX= 

000042 

LO.HOS 

000040 

LS.CIR= 

000006 

LO.HTM 

000032 

LS.CXO= 

000033 

LO.INA 

000062 

LS.CX5= 

000000 

LO.INC 

000060 

LS.ECH= 

000030 

LO.LDT 

000046 

LS.FDX= 

000024 

LO.LID 

000030 

LS.HDX= 

000035 

LO.LIN 

000004 

LS.HLP= 

000025 

LO.LTM 

000034 

LS.LI'I^ 

000031 

LO.MAC 

000022 

LS.LMC= 

000037 

LO.MDE 

000024 

LS.LOG= 

000027 

LO.NAM 

000044 

LS.MOD= 

000032 

LO.NET= 

000002 

LS.NDD= 

000026 

LO.NNM 

000022 

LS.NTI= 

******  GX 

LO.OFL 

000012 

LS.OBJ= 

000041 

LO.ONM 

000004 

LS.OPT= 

000032 

LO.OUT 

000056 

LS.PRO= 

000030 

LO.OUN 

000026 

LS.TOP= 

000032 

LO.PAR 

000010 

LS.TST= 

000045 

LO.PRI 

000012 

LS.UNF= 

000046 

LO.RET 

000064 

LS.XIT= 

000044 

LO.RPA 

000030 

LTRIBT= 

000033 

LO.SCR 

000016 

LUIDTL= 

000032 

LO.SEG 

000054 

LUNUMT= 

00004  3 

LO.SKA 

000014 

LX.ALI= 

000041 

LO.SKN 

000014 

LX.CEX= 

000046 

LO.SNM 

000035 

LX.CIR= 

000020 
000034 
000030 
000033 
000014 
000042 
000030 
000034 
000036 
000036 
000020 
000052 
000012 
000002 
000010 
000004 
000010 
000002 
000002 
000012 
000041 
000002 
000000 
000006 
000002 
000016 
000020 
000005 
000023 
000016 
000001 
000033 
010000 
000400 
001000 
004000 
010000 
000012 
000003 
000007 
000020 
000036 
000014 
000013 
000022 
000400 
000002 
002000 
000010 
020000 
000011 
000041 
000035 
000034 
000017 
000004 
000034 
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SYMBOL  CROSS  REFERENCE 


f  2 

PAGE  10 

CREF   04.00 


SYMBOL 

VALUE 

REFERENCES 

STRIBA 

005456 

RG 

#7-1215 

$TYPE 

-   *♦*»** 

GX 

♦6-203 

SUNT 

005522 

RG 

#7-1227 

SVEC 
SVFLAG 

005674 

=   ****** 

RG 
GX 

#7-1254 
•6-209 

•7-552 

7-579 

7-990 

7-1026 

•7-1031 

7-1046 

•7-1051 

•7-1055 

SVNCP 

000000 

RG 

#6-198 

SXMISS 

00S752 

RG 

#7-1267 

SXTRI 

005372 

RG 

7-1200 

#7-1202 

SXUNT 
SSSARG 

005570 
=  000003 

RG 

'-1236 
#5-106 

#7-1238 
5-106 

#5-106 

5-106 

#5-106 

5-106 

#5-106 

5-106 

5-106 

#5-112 

5-112 

#5-112 

5-112 

#5-112 

5-112 

#5-112 

5-112 

5-112 

SSSGLB 

=  ****** 

5-106 

5-112 

.PCHAR 
.PNUMB 

r  *■«**** 
=  ****** 

GX 
GX 

7-887 
7-321 

7-890 
7-336 

7-355 

7-368 

7-376 

7-407 

7-408 

7-420 

7-422 

7-432 

7-434 

7-436 

7-448 

7-452 

7-454 

7-572 

7-653 

7-662 

7-674 

7-676 

7-685 

7-687 

7-696 

7-698 

7-707 

7-709 

^-gli 

7-720 

7-729 

7-741 

7-753 

7-768 

7-817 

7-819 

7-876 

7-893 

7-920 

7-922 

7-924 

7-933 

7-935 

7-938 

7-1195 

7-1199 

7-1201 

7-1217 

7-1219 

7-1231 

7-1235 

7-1237 

7-1256 

7-1258 

.PNUMH 

=   ****** 

GX 

7-1260 
7-319 

7-334 

7-353 

7-366 

7-405 

7-418 

7-430 

7-446 

7-570 

7-651 

7-660 

7-672 

7-683 

7-694 

7-705 

7-716 

7-727 

7-739 

7-815 

7-874 

7-918 

7-1193 

7-1215 

7-1229 

7-1254 

.PSTCN 

-  ******* 

GX 

7-272 

7-462 

7-479 

7-498 

7-505 

7-513 

7-532 

7-1101 

7-1110 

7-1134 

7-1142 

7-1153 

7-1171 

7-1179 

8-1287 

13-1479 

13-1484 

13-1486 

.PSTPT 

-  ****** 

GX 

13-1490 

7-281 

8-1286 

7-465 
13-1491 

7-482 

7-504 

7-535 

7-1100 

7-1133 

7-1160 

7-1170 
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26A 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 

276  000450 

277  000450 

278  000454 

279  000460 

280  000466 

281  000472 

282  000474 

283  000500 

284  000502 

285  000506 

286  000510 

287  000514 

288  000516 

289  000524 

290  000526 

291  000532 

292  000536 

293  000540 

294  000544 

295  000546 

296  000550 

297  000552 

298  000560 

299  000566 

300  000574 

301  000576 

302  000602 
303 

304 
305 

306  000604 

307  000614 
308 

309  0C0616 

310  000646 


.SBTTL  SVRQB  -  PROCESS  REQUESTS  FROM  VNCP 

♦*-$VRQB-PROCESS  REQUESTS  FROM  VNCP 

INPUTS: 

RQB  =  REQUEST  BLOCK  FILLED  IN  AS  NECESSARY 

OUTPUTS: 

ROB  =  STATUS  CjOF 


SVRQB:: 


112767  OOOOOOG  OOOOOOG 


103443 
005767 
001440 
005767 
001403 

103416 
032767 
001402 

016700 
006300 
016000 
001417 

103006 
012767 
016^-67 
032767 
001402 
000167 


OOOOOOG 
OOOOOOG 

OOOOOOG  OOOOOOG  20$: 


OOOOOOG 
001122' 


22$: 


177777  OOOOOOG  23$: 
OOOOOOG  OOOOOOG 
OOOOOOG  OOOOOOG  25$: 

OOOOOOG 

40$: 


CALL 

CALL 

MOVB 

CALL 

BCS 

TST 

?l? 

BEQ 

CALL 

BCS 

BIT 

BEQ 

CALL 

MOV 

ASL 

MOV 

BEQ 

CALL 

BCC 

MOV 

MOV 

BIT 

BEQ 

JMP 

RETURN 


SSAVAL 

SCLSAV 

#CL.OPN,$CLFLG 

SNLRQB 

40$ 

SFUNC 

40$ 

SMISS 

20$ 

$NLCFG 

23$ 

#VF.ECH,$VFLAG 

22$ 

ECHO 

$FUNC,RO 

RO 

FTA8-2(R0),R0 

101$ 

(RO) 

25$ 

#-l,$FUNC 

SFUNC, RQB 

#VF.NTI,$VFLAG 

40$ 

$RSNTI 


SAi'E  ALL  REGISTERS 
SAVE  GCL  CONTEXT 
LEAVE  DATA  FILE(S)  OPEN 
PARSE  COMMAND  INTO  ROOT 
COMMAND  ERROR 
IS  THIS  FUNCTION  A  NOP  ? 
YJS 

ARE  ANY  REQUIRED  PARAMETERS  MISSING  ? 
IF  EQ,  NO 
SCAN  CONFIG  FILE 
ERROR... BUT  NOT  FATAL 
'SET  SYSTEM  ECHO'  MODE  ? 
NO 

ECHO  REQUEST 
GET  FUNCTION  CODE 
CONVERT  TO  WORD  INDEX 
GET  ADDRESS  OF  ROUTINE  FOR  FUNCTION 
IF  EQ,  NONE  ..  MUST  BE  UNUPPORTED  COMMAND 
TRANSFER  TO  FUNCTION  SPECIFIC  ROUTINE 
NO  PROBLEM 
INDICATE  ERROR 
RETURN  ERROR  TO  CALLER 
IN  NTINIT  MODE  ? 
NO 

RESUME  NTIMT  PROCESSING 
RESTORE  GCL  CONTEXT 


ERROR  CONDITIONS 
1013 


ERMSG$ 
ERBLK$  UNS1 


;  UNSUPPORTED  COMMAND 
<Function  not  implemented> 


ERRPTS  UNS1,$ER0UT 
RETURN 
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LDLIN  -  LOAD  A  L.NE 


716 

.S8TTL 

LDLIN  -  LOAD  A  LINE 

717 

■  + 

718 

;  LDLIN 

-  LOAD 

THE  LINE 

719 
720 

•  INPUTS: 

721 

$SLTA= 

SLT  ADDRESS 

722 

$SLN=SySTEM  LINE  NUMBER 

723 

$$CSR= 

CSR  ADDRESS 

724 

$$Pftl= 

INTERRUPT  PRIORITY  (1  THRU  7) 

725 

$$VECT 

=INTERRUPT  VECTOR  ADDRESS 

726 

$$MTP= 

STATION  COUNT  (MULTIPOINT  ONLY) 

727 

$$SNUM 

^STATION  NJMBER  TABLE  (MULTIPOINT  ONLY) 

728 
729 

':    OUTPUTS: 

730 

C-BIT= 

SUCCESS/FAILURE 

731 

;- 

732 

733  002320 

LDLIN: 

734  002320 

016701 

OOOOOOG 

MOV 

$DLCPV,R1       ;  GET  DLC  PDV  ADDRESS 

735  002324 

001422 

BEQ 

20$            ;  IF  EQ,  COMBINATION  DOM/DLC 

736  002326 

CALL 

AIC            ;  IS  DLC  ALREADY  IN  CORE? 

737  002332 

001014 

BNE 

10$            ;  IF  NE,  YES 

738  002334 

012767 

OOOOOOC 

OOOOOOG 

MOV 

#MS.INC1MS.EXT,$MISS  ;  LOOK  FOR  PROCESS  EXTENDS  IN  CETAB 

739  002342 

CALL 

$NLCFG         ;  ... 

740  002346 

103445 

BCS 

50$           ;  IF  CS,  FAILED 

741  002353 

CALL 

$XFER          ;  TRANSFER  DLC  INTO  CORE 

r  ^  1   vvt — /  ^    -J 

742  002354 

103442 

BCS 

50$            ;  IF  CS,  FAILURE  (NOTHING  TO  CLEAN  UP) 

1  ^t.    WVI^-^-^T 

743  002356 

052767 

OOOOOOG 

OOOOOOG 

BIS 

#FL.PX1,$FLAGS  ;  INDICATE  SUCCESSFUL  DLC  TRANSFER 

744  002364 

10$: 

CALL 

$TMP           ;  SETUP  DLC  LINE  TABLE 

7'.5  002370 

103435 

BCS 

101$          ;  IF  CS,  FAILURE 

746  002372 

016701 

OOOOOOG 

20$: 

MOV 

$DDMPV,R1      ;  GET  DDM  PDV  ADDRESS 

747  002376 

CALL 

AIC            ;  IS  DDM  ALREADY  IN  CORE? 

748  002402 

001014 

BNE 

^0*         •■  'f  ^^-   ^ES            ^  ,  ^^^,„ 

749  002404 

012767 

OOOOOOC 

OOOOOOG 

MOV 

#MS.INC:MS.EXT,$MISS  ;  LOOK  FOR  PROCESS  EXTENDS  IN  CETAB 

750  002412 

CALL 

$NLCFG         ;  ... 

751  002416 

103422 

BCS 

101$          ;  IF  CS,  FAILED 

752  002420 

CALL 

$XFER         ;  TRANSFER  DDM  INTO  CORE 

753  002424 

1C3417 

BCS 

101$           ;  IF  CS,  FAILURE 

754  002426 

052767 

0000006 

OOOOOOG 

BIS 

#FL.PX2,$FLAGS   ;  INDICATE  SUCCESSFUL  DDM  TRANSFER 

755  002434 

30$: 

756 

.IF  DF 

R$$MPL 

CMPOI] 

757 

CALL 

SCTSYM         ;  FIND  CTB  ADDRESS 

CMP01] 

758 

.ENDC 

CMPOI ] 

759 

760  002434 

CALL 

$TMP          ;  SETUP  DDM  LINE  TABLE 

761  002440 

762 

763  002442 

103411 

BCS 

101$          ;  IF  CS,  FAILURE 

40$: 

CALL 

$CSRLD         ;  SET  UP  FOR  CSR  ADDRESS  CHECKING  FOR  NTINIT 

764  002446 

103406 

BCS 

101^                                                           ,   ,r.. 

765  002450 

005767 

OOOOOOG 

TST 

$$HTIM         ;  HELLO  AND  LISTEN  TIMERS  SPECIFIED? 

766  002454 

00140c 

BEO 

50$           ;  BR  IF  NO 

767  002456 

768 

769  002462 

CALL 

SALTLC         ;  ALLOCATE  TRANSPORT  LINE  COUNTERS 

50$: 

RETURN 

770 

771 

772 

;  ERROf 

CONDITION 

G  4 
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VNT!  -  VNP  NETWORK  INITIALIZATI  MA. 

?0  V05.03b  Saturday 

29-Jun-8 

LOCAL  DATA 

146 

U7 

U8 

•  + 

1A9 

;  DLL  DATA 

150 

;- 

151 

152  000110 

SERBEG 

153  000110 

SERFLG 

:.BLKW 

1 

15A  000112 

SERNOD 

:.BLKW 

1 

155  0001U 

SERHST 

r.BLKU 

1 

156  000116 

SERCIR 

:.BLKU 

1 

157  000120 

158 

159  000122 

SERDEV 

:.BLKW 

1 

SERPAS 

r.BLKB 

8. 

160  000132 

ENDPAS 

161  000132 

SERDMP 

!.BLKU 

2 

162  000136 

SERDCT 

:.BLKW 

1 

163  OOOKO 

SERADD 

:.BLKU 

3 

164  000146 

165 

166  000150 

SERTMP 

:.6LKW 

1 

CIRNAM::.BLKU 

2 

167  000154 

CIRNUM 

:.BLKU 

1 

168  000156 

CIRMUL 

:.BLKW 

1 

169  000160 

DEVNM: 

.BLKW 

2 

170  000164 

HEXSTR 

:.BLKB 

16. 

171  000204 

172 

173  000204 

ENDHEX 

STRSIZ::.BLKU 

1 

174  000206 

UICSUF::.BLKU 

6 

175 

000014 

UISZ==.-UIC8UF 

176  000222 

FILBUF.T.BLKB 

16. 

177 

000020 

FLSZ==.-FILBUF 

178 

179  000242 

DEVBUF::.BLKW 

4 

180 

000010 

DVS2==.-DEVBUF 

181  000252 

FILFLG::.BLKW 

1 

182  000254 

CIRUNT.-r.BLKW 

1 

183  000256 

SERCUR::.BLKW 

1 

184  000260 

SER0FF::.BLKW 

1 

185 

186  000262 

SERSLT 

::.BLKW 

1 

187  000264 

FNBLN: 

:  .BLKW 

1 

188  000266 

SERFIN 

189  000266 

FNBUFF 

il.BLKB 

36. 

190 

000044 

FNBSZ==.-FNBUFF 

191  000332 

000266' 

STRAD;  .-FNBUFF 

192  000334 

000266' 

STRPT::  FNBUFF 

193 

000006 

FNBEXT  =  6 

194 

000003 

FIELDC  =  3 

195 

000003 

EXTN    =  3 

196 

197 

• 

198 

;  EQUATED  SYMBOLS 

199 

■ 

200 

001777 

MAXCST=  1023. 

201 

000037 

MAXH0P=  31. 

20i 

000100 

LET 

=  100 
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SERSDF  PARSING  FLAG 
NODE  ADDRESS 
HOST  ADDRESS 
SLN/STA  PAIR 
DEVICE  NAME  (RAD50) 

PASSWORD 

DUMP  ADDRESS  (22  BITS) 
DUMP  COUNT 
HARDWARE  ADDRESS 
WORK  LOCATION 

CIRCUIT  NAME 
CIRCUIT  NUMBER 
TRIB  NUMBER 
DEVICE  NAME  (ASCII) 
HEX  STRING  BUFFER 


STRING  LENGTH 

UIC  BUFFER 

UIC  BUFFER  SIZE 

FILE  NAME  BUFFER 

FILE  NAME  BUFFER  SIZE 

DEVICE  NAME  BUFFER 

DEVICE  NAME  BUFFER  SIZE 

FILSDF  PARSING  FLAG 

UNIT  NUMBER  OF  CIRCUIT 

CURRENT  SERVICE  B'.JCK  UNMAPPED  ADDRESS 

FNB  POINTER  OFFStT  INTO  SERVICE  BLOCK 

SLT  ADDRESS  OF  ASSOCIATED  CIRCUIT 
FNB  LENGTH 

LOCAL  COPY  OFF  CURRENT 

SIZE  OF  LOCAL  FNB  BUFFER 

ADDRESS  FOR  START  OF  BUFFER 

CURRENT  BUFFER  LOCATION 

FILE  NAME  BLOCK  EXT. 

FNB  FIELD  COUNT 

FILENAME  EXTENSION  MAX  SIZE 


MAXIMUM  COST  ALLOWED 
MAXIMUM  NUMBER  OF  HOPS 
HEX  LETTER 
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VKT!  -  VNP  NETWORK  INIT 
ALLOCATE  CCBS  (  AND  EXT 

75A 
755 
756 
757 
758 
759 
760 
761 
762 
765 
76A 
765 
766 
767 
768 
769 
770 
771 
772 
773 
77A 

775  002554  00';267 

776  002560  016702 
777 

778  002564 
779 
780 
781 
782 
783 
784 
785 

786  002570 

787  002574  103422 
788 
789 
790 
791 
792 
793 
794 

795  002576  016767 

796  002604  112767 

797  002612 

798  002630  010067 

799  002634  005302 

800  002636  001352 

801  002640  000241 

802  002642 


F  7 

lALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46 
RAS  FOR  RDBS  ) 


Page  12 
.SBTTL  ALLOCATE  CCBS  (  AND  EXTRAS  FOR  RDBS  ) 

ALLOCATE  NORMAL  CCBS  AND  RDB'S  CCBS 


«*-$CCBS 

INPUTS: 

SCCBNM  -  NUMBER  OF  CCBS  TO  ALLOCATE 
SCCBSZ  -  SIZE  OF  EACH  CCB  IN  BYTES 
SRDBNM  -  NUMBER  OF  RDB  TO  ALLOCATE 

OUTPUTS: 

ALL  REGISTERS  PRESERVED 

SCCBLH  -  LISTHEAD  OF  CCBS  CHAINED  WITH  $CCBNM+$RDBNM  CCBS 
C~BIT  SET 

SCCBLH  -  LISTHEAD  OF  CCBS  CHAIND  WITH  0  OR  MORE  CCBS  BUT 
LESS  THAN  $CCBNM+$RDBNM  CCBS. 


O'^OOOOG 
OOOOOOG 


016701  OOOOOOG 


SCCBS::  JSR 
MOV 


10$: 


12$: 


14$: 


OOOOOOG  OOOOOOG 
000002  000003G 

OOC  }0G 


20$: 


MOV 

.IF 
TST 
BMI 
ADD 
.ENDC 

CALL 
BCS 

.IF 
TST 
BMI 
ADD 

.ENDC 

MOV 

M0V8 

PUTRC 

MOV 

DEC 

BNE 

CLC 

RETURN 


R2,$SAVVR 
SCCBNM, R2 

SCCBSZ, R1 

DF,RS$MPL 
.MPRO 
12$ 
#2,R1 


SALL16 
20$ 

DF,R$$MPL 
.MPRO 
14$ 
*2,R0 


SCCBLH, $BFR 

#Ce  :CB,SBFR+C.BID 

RO,: -CBSZ 

RO, SCCBLH 

R2 

10$ 


SAVE  R0,R1,  AND  R2 

NUMBER  OF  CCBS  TO  ALLOCATE 

NUMBER  OF  BYTES/CCB 


MULTIPROCESSOR  SYSTEM? 

BR  IF  NO 

NEED  AN  EXTRA  WORD 


ATTEMPT  ALLOCATION  FROM  SCOM 
RESOURCE  ERROR 


MULTIPROCESSOR  SYSTEM? 

BR  IF  NO 

EXTRA  WORD  IS  BEFORE  THE  LINK  WORD 


ADD 
CCB 
TO 
QUEUE 
LOOP  TILL 

DONE. 
SIGNAL  SUCCESS 
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02:46 


ir  A  TC       DPvDC 
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STATE  TRANSITIONS  FOR  FINDING  NETWORK  POOL  PARTITION 
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126A 

1265  003632 

1266 

1267  003632 

1268  003632 

1269  003632 

1270  003632 

1271  003632 

1272  003632 

1273  003632 

1274  003632 

1275  003632 
12^6  003632 

1277  003632 

1278  003632 

1279  003632 

1280  003632 

1281  003632 

1282  003632 

1283  003632 

1284  003632 

1285  003632 

1286  003632 

1287  003632 

1288  003632 

1289  003632 

1290  003632 

1291  003632 

1292  003632 

1293  003632 

1294  003632 

1295  003632 

1296  003632 

1297  003632 

1298  003632 

1299  003632 

1300  003632 

1301  003632 

1302  003632 

1303  003632 

1304  003632 

1305  003632 

1306  003632 

1307  003632 

1308  003632 

1309  003632 

1310  003632 

1311  003632 

1312  003632 

1313  003632 

1314  003632 

1315  003632 

1316  003632 

1317  003652 

1318  003632 

1319  003632 

1320  003632 


ISTATS  I8UF5,KBUF5 


STATES 

BRf.DF 

TRANS 

JiSLTSDF!! 

STATES 

TRANS 

SRAD50 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SRAD50 

STATES 

TRANS 

<•,> 

STATES 

TRANS 

SRAD50 

STATES 

TRANS 

<',> 

STATES 

TRANS 

<',>,SLTDF2 

TRANS 

SLAMDA 

STATES 

SLTDF3 

TRANS 

XLF.MFLX.SLTDFI 

TRANS 

XLF.ENAZ,SLTDF1 

TRANS 

)!LF.SER%,SLTDF1 

TRANS 

SRAD50 

STATES 

SLTDFl 

TRANS 

'l,SLTDF3 

TRANS 

<',> 

STATES 

SLTDF2 

TRANS 

SNUMBR 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SNUMBR 

STATES 

TRANS 

SEOS.SEXIT 

TRANS 

<'  -> 

STATES 

TRANS 

<',>,SCTIMM 

TRANS 

SSTRNG 

STATES 

TRANS 

SEOS.SEXIT 

TRANS 

<'  ,> 

STATES 

SCTIMM 

TRANS 

SNUMBR, S CHE Li 

TRANS 

<',>,SCHELL 

STATES 

SCHELI 

TRANS 

SEOS.SEXIT 

TRANS 

<',> 

STATES 

SCHELL 

TRANS 

SNUMBR. BRADJJ 

TRANS 

<'.> 

STATES 

BRADJJ 

TRANS 

<',>,BRADJ2 

TRANS 

SEOS.SEXIT 

STATES 

BRADJ2 

TRANS 

SNUMBR, SEX1T.8RADJT 
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SCAN  CONFIG  FILE  FQR  NTPOOL  DEFINITIONS 

1790  005766 

1791  005772 
1792 
1793 
1794 

1795  006002 

1796  006006 

1797  006010 

1798  0060U 

1799  006020 

1800  006024 

1801  006026 

1802  006034 
1807  006036 

1804  006042 

1805  006044 

1806  006050 

1807  006060 

1808  006066 

1809  006070 

1810  006074 

1811  006100 

1812  006104 

1813  006110 

1814  006112 

1815  006120 

1816  006122 

1817  006124 

1818  006130 

1819  006132 

1820  006136 

1821  006146 

1822  006154 

1823  006156 

1824  006160 

1825  006166 

1826  006170 

1827  006176 

1828  006202 

1829  006204 

1830  006206 
1831 

1832  006212 

1833  006216 

1834  006220 
1835 

1836  006226 

1837  006230 
1838 
1839 
1840 
1841 

1842  006232 

1843  006234 

1844  006240 

1845  006244 

1846  006246 
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CALL 

$CLDEQ 

CLOSE  CONFIG  FILE 

NTIERR 

424 

; 

ROU$DF  SYNTAX  ERROR 

;  BUF$DF 

005767 

OOOOOOG 

18$: 

TST 

CFSFLG 

HAS  BUF$DF  ALREADY  BEEN  PROCESSED? 

100024 

BPL 

30$ 

• 

IF  PL,  YES 

012702 

000002' 

MOV 

#KBUF,R2 

LOOK  FOR  BUF$DF 

012705 

000044' 

MOV 

*IBUF,R5 

CALL 

PARSE 

PARSE  LINE 

103404 

BCS 

20$ 

IF  CS,  NOPE 

042767 

100001 

OOOOOOG 

BIC 

#100001 

.CFSFLG  ', 

INDICATE  BUF$DF  SEEN 

001444 

BEQ 

50$ 

IF  ZERO,  ALL  DONE 

105767 

OOOOOOG 

20$: 

TSTB 

CFSFLG 

WAS  'BUF$DF"  ON  THIS  LINE 

001406 

BEQ 

CALL 

NTIERR 

30$ 

$CLDEQ 

415 

IF  EQ,  NO 

CLOSE  CONFIG  FILE 

BUF$DF  SYNTAX  ERROR 

032767 

040000 

OOOOOOG 

30$: 

BIT 

#40000, 

CFSFLG   ', 

HAS  PAR$DF  ALREADY  BEEN  PROCESSED? 

001661 

BEQ 

10$ 

IF  EQ,  YES 

005067 

OOOOOOG 

CLR 

NONMAP 

INIT  NON  MAPPED  POOL  SIZE 

012702 

000004' 

MOV 

#KeUF2, 

R2 

LOOK  FOR  PAR$DF 

012705 

000124' 

MOV 
CALL 

#IBUF2, 
PARSE 

R5 

103405 

BCS 

40$ 

IF  CS,  NOPE 

042767 

040001 

OOOOOOG 

BIC 

#40001, 

CFSFLG 

INDICATE  PAR$DF  SEEN 

001412 

BEQ 

50$ 

IF  ZERO,  ALL  DONE 

000643 

BR 

10$ 

BR  IF  MORE  TO  LOOK  FOR 

V  V  \J  \J  ^  -^ 

105767 

OOOOOOG 

40$: 

TSTB 

CFSFLG 

WAS  "PAR$DF"  ON  THIS  LINE? 

001640 

BEQ 

CALL 

NTIERR 

10$ 

$CLDEQ 

405 

IF  EQ,  NO 

CLOSE  CONFIG  FILE 

SYNTAX  ERROR  IN  PAR$DF  MACRO 

066767 

000002G 

OOOOOOG 

50$: 

ADD 

NTPSIZ* 

2, NTPSIZ 

ADD  IN  FUDGE  FACTOR  (CLEARS  C-BIT) 

103013 

60$: 

BCC 

70$ 

BR  IF  NO  ERROR 

006016 

ROR 

(SP) 

SAVE  C-BIT  ON  STACK 

022767 

020000 

ooooroG 

CMP 

#20000 

CFSFLG 

ONLY  ROU$DF  MISSING? 

001007 

BNE 

80$ 

BR  IF  NO 

066767 

000002G 

OOOOOOG 

ADD 

NTPSIZi 

2, NTPSIZ 

ADD  IN  FUDGE  FACTOR 

042716 

100000 

BIC 

#100000, (SP) 

ELSE  OK  -  CLEAR  CARRY 

000401 

BR 

80$ 

FINISH  UP 

006016 

70$: 

ROR 

(SP) 

SAVE  C-BIT  ON  STACK 

80$: 

CALL 

$CLDEO 

CLOSE  FILE 

005767 

OOOOOOG 

TST 

SBFLG 

SERVER  BASE  POOL  INDICATED 

001403 

BEQ 

90$ 

IF  NOT  -  BRANCH 

166767 

000002G 

OOOOOOG 

SUB 

NTPSIZ 

h2, NTPSIZ 

•  REDUCE  POOL..  SIZE  BY  THE  TOTAL  RD 

006316 

90$: 
•  PARS! 

ASL 
RETURN 

A  LINE 

(SP) 

■  RESTORE  C-BIT 

005001 

PARSE: 

CLR 

R1 

;  REQUIRE  FULL  LENGTH  KEYWORDS 

016703 

OOOOOOG 

MOV 

LINSIZ 

R3 

;  RECORD  LENGTH 

016704 

OOOOOOG 

MOV 

$CLeUF 

,R4 

;  RECORD  SIZE 

010046 

MOV 

RO,-(SP) 

;  SAVE  FDB  ADDRESS 

CALL 

.TPARS 

;  PARSE  THE  LINE 
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VNT!   -  VNP  WTWORK    INITIALlMTI    MACRO  V05.03b 

OBJSDr    PARSE    TABLES 

2178 

2179 

2180 

;  + 

2181 

2182 

;- 

2185 

218'. 

00652A 

2185 

006324 

2186 

2187 

006324 

2188 

006324 

2189 

2190 

006324 

2191 

006324 

2192 

2193 

006324 

2194 

006324 

2195 

2196 

006324 

2197 

006324 

2198 

2199 

006324 

2200 

006324 

2201 

2202 

006324 

2203 

006324 

F  10 
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.SBTTL  REMSDF  PARSE  TABLES 

STATE  TRANSITIONS  FOR  THE  'REMSDF'  MACRO 


STATES 
TRANS 

REMDF 
L8RA 

STATES 
TRANS 

SSTRNG, 

,.RNAME 

STATES 
TRANS 

R8RA 

STATES 
TRANS 

<'  .> 

STATES 
TRANS 

SNUM8R 

,.RARE 

STATES 
TRANS 

<',> 

STATES 
TRANS 

SNUMBR 

SEXIT,.RNUM 

VNTI  -  VNP  NETWORK  INITIALIZATI 
FVTiPiF  PARSE  TARI  FS 
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ACTION  ROUTINE:  BUFSDF  ARGUMENT  SEEN 


2560 
2561 
2562 
2563 
256A 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 


006356  005367  OOOOOOG 

006362  002407 

00636A  017700  OOOOOOG 

006370  0^6^10  OOOOOOG 

00637A  062767  000002  OOOOOOG 

006A02 


.SBTTL  ACTION  ROUTINE:  BUFSDf  ARGUMENT  SEEN 

*«-.BUFNM-BUf$DF  ARGUMENT  SEEN 

THE  NEXT  ARGUMENT  OF  THE  BUFSDF  MACRO  HAS  BEEN  SEEN,  MOVE  THE 
VALUE  INTO  THE  CORRECT  POSITION  IN  THE  COMMEXEC  DATABASE. 


HAVE  UE  SEEN  ALL  THE  ARGUMENTS 

YES  ...  IGNORE  THIS  ONE 

GET  NEXT  POINTER  FROM  TABLE 

MOVE  ARGUMENT  TO  COMMEXEC  DATABASE  IMAGE 

MOVE  ON  ARGUMENT  POINTER 


BUFNM:    DEC 

DFCNT 

BLT 

10$ 

MOV 

aOFPTR.RO 

MOV 

.PNUMB,(RO) 

ADD 

*2,DFPTR 

10$: 


RETURN 
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2901 
2902 
2905 
290A 
2905 
2906 
2907 

2908  007706 

2909  007712 

2910  007716 

2911  007720 

2912  007722 

2913  007726 
291 ;  007730 

2915  007732 

2916  007734 

2917  007742 
2918 

2919  007744 

2920  007752 

2921  007772 

2922  007776 

2923  010004 
2924 

2925  010012 

2926  010022 

2927  010040 

2928  010044 
2929 

2930  010052 

2931  010056 

2932  010060 

2933  010062 
2934 

2935  010064 

2936  010072 

2937  010074 

2938  010076 

2939  010100 

2940  010102 
2941 

2942  010104 

2943  010106 

2944  010110 

2945  010112 

2946  010114 

2947  010116 

2948  01C122 

2949  010124 
2950 

2951  010126 

2952  010126 

2953  010134 

2954  010136 

2955  010142 

2956  C10152 

2957  010170 


016700 
016701 
005301 
160001 
016702 
160102 
100537 
010246 
022767 
001043 


000324 
OOOOOOG 


000312 

000040  000276 


.SBTTL  ACTION  ROUTINE:  RIGHT  ANGLE  BRACKET  SEEN 

*»-.STRNG-RIGHT  ANGLE  BRACKET  (END  OF  STRING)  SEEN 

THE  TERMINATING  RIGHT  ANGLE  BRACKET  HAS  BEEN  SEEN  ON  THE  'NODSDF'  MACRO. 


.STRNG: 


016700  000020G 


016700 
012767 

016702 
001002 
005726 
000421 

022767 
001004 
010122 
001002 
005726 
000411 

112022 
005301 
001375 
012601 
001404 
112722 
005301 
001374 


022767 
001016 
C16700 


000172 
OOOOOOG  000170 

000164 


5$: 


000040     000146     10$: 


15$: 


000040 

000040     000104 
000020G 


20$: 


30$: 


MOV 
MOV 
DEC 
SUB 
MOV 
SUB 
BMI 
MOV 
CMP 
BNE 

SUTCHI 

GETRV 

MOV 

SUTCHI 

SWTCHO 

CEACC$ 
GETAD 
MOV 
MOV 

MOV 
BNE 
TST 
BR 

CMP 
BNE 
MOV 
BNE 
TST 
BR 

MOVB 

DEC 

BNE 

MOV 

BEQ 

MOVB 

DEC 

BNE 


CMP 

BNE 

MOV 

CEACC$ 

PUTAD 

RETURN 


STRPTR.RO 

.PSTPT,R1 

R1 

R0,R1 

STRMAX,R2 

R1,R2 

lOh 

R2,-(SP) 

#32.,STRMAX 

5$ 

#$HMBUF 

$DECPT,«0$END 

$HM8UF+D$LID,R0 


RO 

R0,«34. 
STRPTR.RO 
#$8FR,5TRADR 

STRADR,R2 
10$ 
(SP)  + 
30$ 

#32.,STRMAX 

15$ 

R1,(R2)+ 

15i 

(SP)  + 

30$ 

(R0)+,(R2)+ 

R1 

15$ 

(SP)+,R1 

30$ 

#'  ,(R2)t 

R1 

20$ 


#32.,STRMAX 

35$ 

$HMeUf+D$LID,R0 

RO 

R0,*34. 


GET  FIRST  TEXT  CHARACTER  ADDRESS 
GET  RIGHT  ANGLE  BRACKET  ADDRESS 

CALCULATE  LENGTH  OF  TEXT  IN  Rl 
CHECK  AGAINST  MAXIMUM  TEXT  LENGTH 

IF  ni,  TEXT  IS  TOO  LONGI 
SAVE  BLANK  FILL  COUNT 
ID  STRING  ? 
IF  NO  -  BRANCH 

SET  INPUT  BUFFER 
READ  DECNET  HOM^  BLOCK 
GET  ID  STRING  ADDRESS 
RESET  BUFFER 
RESET  BUFFER 

MAP  TO  POOL.. 

READ  POOL..  BLOCK  FOR  ID  STRING 
GET  FIRST  TEXT  CHAR  ADDRESS 
GET  ADDRESS  OF  OUTPUT  BUFFER 

PLACE  TO  PUT  THE  TEXT 
IF  VALID  ADDRESS  -  BRANCH 
POP  BLONK  FILL  COUNT 
RETURN 


IS  THIS  THE  NODE 
IF  NE,  NO 
STORE  COUNT 


ID  STRING? 


IN  FIRST  WORD 
IF  NOT  NULL  NODE  ID  BRANCH 
IF  NULLNODE  ID  CLEAN  STACK 


COPY  THE  TEXT  BETWEEN  THE  ANGLE  BRACKETS 
NOW  BLANK   ILL  TO  MAXIMUM  LENGTH 


ID  STRING  ? 

IF  NO  -  BRANCH 

GET  UNMAPPED  ADDRESS 

CONVERT  TO  MAP'^ED  ADDRESS 

UPDATE  ID  STRVlG 
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022767 
103406 


VNTl    -   VNP   NETWORK    INITI 
ACTION  RO'JTINE:    BR0ADCA5 

3538 
3339 
3340 
3341 
3342 

3343  012250 

3344  0122S0 
3345 

3346  012270  005767 

3347  012274  001004 

3348  CI  2276  005767 

3349  012302  001405 

3350  012304  000412 
3351 

3352  012306 

3353  012314 
3354 

3355  012316 
3356 

3357  012324 
3358 

3359  012330 
3360 

3361  012332 

3362  012336 
3363 
3364 
3365 
3366 
3367 
3368 

5569  012340  022767 
3370  012546  103416 
3571 

5572  012550 
5375 

3374  012370 
5575 

5376  012576 
5377 

3578  012402 
5579 

3380  012404 
3581  012410 
5582 
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T   ENDNuDES 

.S8TTL     ACTION  ROUTINE:   BROADCAST  ENDNODES 

.RBEA  -  BROADCAST   ENDNOD'    ADJACENCIES  ACTION  ROUTINE 


.R8EA: 


GETRV   $DECPT,*D$END 


000060G 
OOOOOOG 


002000  OOOOOOG  10$: 
016767  OOOOOOG  000056G  20$: 


062716  000002 


50$: 


TST 
BNE 
TST 
BED 
BR 

CMP 
BLO 

MOV 

PUTRC 

RETURN 

ADD 
RETURN 


$8Ffi+D$NN 

10$ 

.PNUMB 

20$ 

30$ 


#1024. 
30$ 


PNUMB 
. PNUMB, $BfRtD$N8EA 


DECNET  HOME  BLOCK 

ROUTING  NODE  ? 

IF  YES  -  BRANCH 

IF  NO  -  VALUE  MUST  BE  ZERO 

IF  LEGAL  -  BRANCH 

ELSE  -  REPORT  ERROR 

CHECK  HIGH  LIMIT 

IF  OUT  OF  RANGE  -  BRANCH 

COPY  NUMBER  OF  BROADCAST  ENDNODES 

WRITE  BACK  DECNET  HOME  BLOCK 


#2,(SP) 


.RAMXH  -  AREA  MAX  HOPS 


000036  OOOOOOG 


016767  OOOOOOG  000074G 


.RAMXH:  CMP 
BLO 


#30 
30$ 


, .PNUMB 


ILLEGAL  ADJACENT  BROADCAST  ENDNODE  VALUE 


CHECK  HIGH  LIMIT 
IF  OUT  OF  RANGE  - 


062716  000002 


30$: 


GETRV 

MOV 

PUTRC 

RETURN 

ADD 
RETURN 


BRANCH 

$PECPT,#D$END   ;  READ  DECNET  HOME  BLOCK 
. PNUMB, $BFRtD$AMXH  ;  COPY  AREA  MAX  HOPS 

;  WRITE  BACK  DECNET  HOME  BLOCK 


#2,(SP) 


ILLEGAL  ARFA  MAX  HOPS  VALUE 
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3732 

3733 

3734 

3735 

3756 

3737 

3738 

3739 

37A0 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 


013732 
013732 
013740 
013760 

013766 
013772 
013776 
014000 
014004 
014012 
014020 
014022 
014026 
014032 

014034 
014046 
014064 
014070 
014072 
014076 
014100 


.SBTTL  ,'INREM  -  FIND  PLACE  FOR  A  REMOTE  NODE  BLOCK 

*••  -  FINREM  -  FIND  A  PLACE  FOR  A  REMOTE  NODE  BLOCK 

INPUTS: 

R1  =  NODE  ADDRESS  OR  CHANNEL  TO  BE  INSERTED 

OUTPUTS: 

RO  =  PRESERVED 

R1  =  UNMAPPED  ADDRESS  OF  PREVIOUS  REMOTE  BLOCK 

R2  =  DESTROYED 


FINREM: 


012702 
011267 
010146 
010267 
016767 
016767 
001005 
010167 
010067 
000417 


021667 
101345 
016701 
005726 


000004G 
OOOOOOG 

000004' 

000004'  000002'  10$: 

OOOOOOG  000004' 

OOOOOOG 
OOOOOOG 


000010G 
000002' 


15$: 
20$; 


30$: 


SWTCHl  #$HM8UF 

GETRV  $DECPT,*D$END 
SWTCHl 

MOV  *$HM8UFtD$RNN+2,R2 

NOV  (R2),$BFR 

MOV  R1,-(SP) 

MOV  R2,CURUNM 

MOV  CUfiUNM.PRVUNM 

MOV  $8FR,CURUNM 

BNE  15$ 

MOV  R1,$LSTAD 

MOV  RO,$LSTRM 

BR  30$ 

CEACC$  CURUNM,R2 

GETAD  R2,#R.LEN 

CMP  (SP),$BFR+R.ADD 

BHI  10$ 

MOV  PRVUNM.RI 

TST  (SP)+ 

RETURN 


USE  TEMPORARY  BUFFER 
READ  DECNET  HOME  BLOCK 
RESET  DEFAULT  BUFFER 

GET  START  OF  REMOTES  LIST 

GET  FIRST  IN  LIST 

SAVE  NODE  ADDRESS  ON  STACK 

SAVE  UNMAPPED  ADDRESS  OF  CURRENT 

SAVE  UNMAPPED  ADDRESS  OF  PREVIOUS 

GET  NEXT  REMOTE  IN  LIST 

IF  NE,  CONTINUE 

UPDATE  NEW  HIGH  NODE  ADDRESS 

UPDATE  NEW  LAST  NODE  BLOCK  POINTER 

CONTINUE 

CONVERT  TO  UNMAPPED  ADDRESS 

READ  REMOTE  IN  INTERNAL  BUFFER 

DOES  REMOTE  BLOCK  GO  HERE  ? 

IF  HI,  NO 

RETRIEVE  UNMAPPED  ADDRESS  OF  PREVIOUS 

CLEAN  UP  THE  STACK 


G  U 


iTl  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  89 
NREM  -  FIND  PLACE  FOR  A  REMOTE  NODE  BLOCK 


VNTl 
FI 
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;2A2 

A243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4255 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 


SRHFNB  -  SEARCH  FOR  FILE  NAME  BLOCK 
INPUTS 


FNBUFF  CONTAINS  FILE  DESCRIPTOR  INFORMATION 


OUTPUTS 


C  CLEAR  -  FILE  NAME  BLOCK  FOUND 

-  RO  CONTAINS  UNMAPPED  BLOCK  ADDRESS 

C  SET   -  FILE  NAME  BLOCK  NOT  FOUND 


012700 
010003 
011300 
001005 
000261 


015552 
015560 
015566 
015606 

015614 
015620 
015622 
015624 
015626 
015630 
015636 


015640  010002 


015642 
015652 
015670 
015674 

015700 
015704 
015710 

015714 
015720 
015724 

015726 
015730 

015736 


SRHFNB:  SAVRG 
SUTCHI 
GETRV 
SUTCHI 


000034G 


5$: 


10$: 


012703  OOOOOOG 

012700  OOOOOOG 

012701  000266' 

062700  000003 

062701  000003 

012705  000003 

103736 

010200 


MOV 

MOV 

MOV 

BNE 

SEC 

RESRG 

RETURN 

MOV 

CEACCS 
GETAD 
MOV 
MOV 

MOV 
ADD 
ADD 

MOV 

CALL 

BCS 

MOV 
RESRG 

RETURN 


<R3,R4,R5> 

#$HMBUF 

$DECPT,#0$END 


#$HM6UF+D$FNB,R0 

R0,R3 

(R3),R0 

10$ 


<R5,R4,R3> 


R0,R2 

RO 

RO,#FNBSZ 
#$8FR,R3 
#$eFR,RO 

#FNBUFF,R1 

#F.USEt',RO 

#F.USEt1,R1 

#FIELDC,R5 

CMPSTR 

5$ 

R2,R0 
<R5,R4,R3> 


;  SAVE  REGS 
SWITCH  INPUT  BUFFER 
READ  DECNET  HOME  BLOCK 
RESET  INPUT  BUFFER 

;  GET  LISTHEAD 
SAVE  LISTHEAD 

GET  ADDRESS  OF  FIRST  BLOCK 
IF  NOT  END  OF  LIST  BRANCH 
SET  C-BIT 
RESTORE  REGS 


SAVE  UNMAPPED  BLOCK  ADDRESS 

MAP  TO  BLOCK 

READ  BLOCK 

GET  START  OF  BLOCK 


COPY  ADDRESS  OF  LOCAL  FILE  BLOCK 

POINT  TO  FILESPEC  DATA  OF  CURRENT  BLOCK 

POINT  TO  FILESPACE  DATA  OF  LOCAL  BLOCK 

SET  UP  FIELD  COUNT 
CHECK  FOR  FIELD  EQUALITY 
IF  NO  MATCH  -  BRANCH 

IF  MATCH  -  COPY  UNMAPPED  ADDRESS 
;  RESTORE  REGS 
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4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4^25 

4('26  017360 

4727 

4728 

4729 

4730  017364     016701 

4731  017370     016700 

4732  017374     012102 

4733  017376     001411 

4734  017400     005762 

4735  017404     001006 

4736  017406     132762 

4737  017414     001402 

4738  017416 

4739  017422     005300 

4740  017424     001363 
4741 

4742  017426     016700 

4743  017432     016746 

4744  017436     001425 

4745  017440     012001 
47<,6  017442     032761 

4747  017450     001416 

4748  017452     116102 

4749  017456     066702 

4750  017462     011202 

4751  017464     032762 

4752  017472     001403 

4753  017474 

4754  017500  000402 
47:5 

4756  017502 
4757 

4758  017506     005316 

4759  017510     003353 
4760 

4761  017512     005726 

4762  017514 


.SBTTL  PERFORM  'MARKED  FOR  LOAD'  SCAN 

»*-$MFL-PERFORM  'MARKED  FOR  LOAD'  SCAN 

SCAN  THE  COMMEXEC  DATABASE  TO  DISCOVER  WHICH  PROCESSES  AND 
LINES  HAVE  THE  'MARKED  FOR  LOAD"  ATTRIBUTE.  REQUEST  THE  NETWORK 
LOADER  TO  LOAD  ALL  LINES  AND  PROCESSES  SO  MARKED. 


iMFL; 


CALL 


SSAVAL 


OOOOOOG 
OOOOOOG 


000012 

000010  000010 


OOOOOOG 
OOOOOOG 


004000  000000 

000002 
OOOOOOG 

002000  000010 


LOAD  PROCESSES 


10$: 


20$: 


30$: 


35$: 
40$: 

45$: 


MOV 

MOV 

MOV 

BEQ 

TST 

BNE 

BITS 

BEQ 

CALL 

DEC 

BNE 

MOV 

MOV 

BEQ 

MOV 

BIT 

BEQ 

MOVB 

ADD 

MOV 

BIT 

BEQ 

CALL 

BR 

CALL 

DEC 
BGT 

TST 
RETURN 


$PDVTA,R1 

$PDVNM,RO 

(R1)+,R2 

20$ 

Z.PCB(R2) 

20$  , 

#ZF.MFL,Z.FLG(R2) 

20$ 

LDPRO         ; 

RO 

10$ 

$SLTMA,RO 

$SLTNM,-(SP) 

15$ 

(R0)+,R1       ; 

#LF.MFL,L.FLG(R1) 

40$ 

L.DDM(R1),R2 

$PDVTA,R2 

(R2),R2        , 

#ZF. PSE,Z.FLG(R2) 

35$ 

LDDLM 

40$ 

LDLINE         ; 

(SP) 
30$ 

(SP)  + 


SAVE  ALL  REGISTERS$.N  ENTRY 


POINT 

GET  #  OF  ENTRIES 

GET  A  PDV  POINTER 

IGNORE  ZERO  ENTRIES 

IS  THE  PROCESS  ALREADY  LOADED? 

YES  ...  DON'T  LOAD  IT  AGAIN 

;  IS  PROCESS  "MARKED  FOR  LOAD'  ? 

IF  EQ,  NO 

ELSE,  LOAD  THIS  PROCESS 

LOOP  TILL  ALL  PDV'S  HAVE  BEEN  SCANNED 

POINT  TO  THE  SLT  MAPPING  TABLE 

NUMBER  OF  SYSTEM  LINES 

IF  EQ,  NONE 

GET  NEXT  SLT 

;  LINE  'MARKED  FOR  LOAD'  ? 

IF  EQ,  NO 

GET  DDM  PDV  INDEX 

POINT  INTO  PDV  VECTOR  TABLE 

GET  PDV  ADDRESS 

;  IS  THIS  A  DLM  CIRCUIT? 

BR  IF  NO 

ELSE,  REQUEST  NETLOADER  TO  LOAD  DIM  CIRCUIT 

CONTINUE 

ELSE,  REQUEST  NETLOADER  TO  LOAD  THE  LINE 

ONE  LESS  LINE 
LOOP  TILL  DONE 

CLEAN  UP  STACK 
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LX.LIN= 

000006 

OP$CCS= 

000004 

0P$X5S= 

LX.LOG= 

000C21 

OP$CIE= 

004000 

0P$X9S= 

LX.NOD= 

000015 

OP$CON= 

000400 

OTSKTL 

LX.OBJ= 

000023 

OP$COP= 

000001 

PARTAB= 

LX.PRO= 

000005 

OP$C0S= 

000100 

PASWI  L 

L$$ASG= 

000000 

OP$DST= 

000200 

PCKBCD 

L$$DRV= 

000000 

OP$DTE= 

000040 

PF.XDF= 

L$IP11= 

000001 

OPtDUP= 

000002 

PNAMTL 

L$S11R= 

000000 

OP$EST= 

000100 

PRNMTL 

L.ODM  = 

**♦**♦  GX 

OP$EVE= 

010000 

■'SWFTL 

L.FLG  = 

*♦*♦*«  6x 

0P$FIL= 

C00200 

P$$P45= 

MARKER 

0001 04R 

002 

OP$GRP= 

000100 

P$$WRP= 

MAX  ID  = 

000020 

OP$HOS= 

000001 

QF$ACT= 

MOVE 

006522R 

OP$HTM= 

000002 

QF$ALL= 

MSTRIB 

001744R 

002 

OP$INA= 

004000 

QF$KNO= 

MSUNUM 

001677R 

002 

0P$INC= 

001000 

QF$L00= 

MXADDR= 

001777 

OP$KDS= 

002000 

Q$$OPT= 

MXAL1N= 

000006 

OP$ICDT= 

000400 

Q.IOAE= 

MXAREA= 

000077 

OP$KEV= 

001000 

Q.10EF= 

MXCN64 

000667R 

002 

OP$KGR= 

001000 

Q.10FN= 

MXCOP  ■ 

000077 

OP$KNT= 

010000 

Q.I0LU= 

MXCST  -■ 

000031 

op$k;sk= 

002000 

Q.IOPL= 

HXDSTN= 

000006 

OP$LCT= 

000200 

Q.IOPR= 

MXDTEL= 

000020 

OP$LNE= 

000040 

O.IOSB^ 

MXGRPN= 

000006 

0P$L0C= 

000001 

RAD 

MXLN64 

000257R 

002 

OP$LST= 

000002 

RQB   = 

MXNODN= 

000006 

OP$L iM: 

000001 

RQBST  = 

MXPSCN= 

000006 

OP$LVL= 

000010 

R$$DER= 

MXSNKN= 

000050 

OP$MAC= 

000010 

R$$K11= 

H$$CRB= 

000124 

OP$HC0= 

000002 

R$$SND= 

M$$CRX= 

000000 

OP$MDE= 

000400 

R$$11M^ 

M$$FCS= 

OOOUOO 

0P$ML1= 

000004 

SCODV 

H$$MGE= 

000000 

0P$M0N= 

000100 

SCOUN 

M$$NET= 

000000 

OP$MST= 

000020 

SPACE  = 

M$$OVR= 

000000 

OP$NAM= 

000004 

SPFILL 

NAMETL 

002201R 

002 

OP$NET= 

004000 

STORID 

NOD  ID 

000072R 

002 

OP$NLI= 

000002 

STRNAM 

NODNAM 

004744R 

OP$NOD= 

000020 

SYNERR 

NSLINE 

002016R 

002 

OP$OUT= 

002000 

SYSFDB= 

NSTERM 

0016'i2R 

002 

OP$OWN= 

000020 

S$$WRG= 

N$$ACC= 

000001 

OP$PAR= 

000010 

S$$YSZ= 

N$$BUF= 

000001 

OP$PRI= 

000010 

S1.DEC= 

NSJ^LDV- 

000001 

OP$RET= 

010000 

SI.DPR^ 

N$$MCP= 

000001 

OP$RPA= 

000010 

S1.DSI= 

N$$MLL= 

000001 

OP$scr= 

000001 

S1.ESC= 

N$$MOV= 

000010 

OP$SEG= 

000400 

S1.I6F= 

N$$NCT= 

000001 

OP$SER= 

000400  . 

S1.IBY= 

N$$PEM= 

000001 

OP$SIN= 

000010 

S1.0BY= 

OCOPTL 

001305R 

002 

OP$STA= 

000004 

S1.PTH= 

OF$INS= 

000001 

OP$|PA= 

000020 

S1.RES= 

OF$LOG= 

000100 

CP$TRI= 

000040 

S1.RNE= 

OF$OFF= 

000002 

OP$UCS= 

000020 

S1.RNF= 

OF  SON  = 

000000 

OP$USE= 

000002 

S1.RSP= 

OF$SMC= 

000200 

OP$VEC= 

000040 

S1.RST= 

ONAMTL 

001151R 

002 

OP$VER= 

000040 

S1.TNE= 

OP$ADD= 

000200 

OP$XAC= 

000001 

S1.TSY= 

OP$AlL= 

000200 

OP$XPR= 

000002 

S1.USI= 

000004 

000010 

001347R 

******  GX 

000637R 

006204R 

******  GX 

0001 72R 

000321 R 

001604R 

000000 

000000 

000001 

000002 

000004 

000010 

000010 

000012 

000006 

000002 

000004 

000014 

000007 

000010 

006052R 

******  GX 

******  GX 

000000 

000001 

000000 

000000 

000060R 

000062R 

000040 

006536R 

006416R 

004474R 

000114R 

******  GX 

000000 

007600 

001000 

000400 

004000 

000002 

002000 

000200 

000100 

000010 

010000 

000020 

020000 

000004 

000001 

040000 

000040 

100000 


002 


S2.BEL= 
S2.8RQ= 

002  S2.CR  = 
S2.CT0= 

002  S2.CTS- 
S2.ELF= 
S2.FLF= 

002  S2.IRQ= 

002  S2.0BF= 
'  S2.0RQ= 
S2.PCU- 
S2.RCL 
S2.SRQ= 
S2.WAL= 
S2.URA= 
S2.WRB= 
S3.ACR= 
S3.CTC= 
S3.FDX= 
S3.KE= 
S3.MHE= 
S3.NEC= 
S3.PPT= 
S3.PTH= 
S3.RAL= 
S3.RES= 
S3.RU8= 
S3.TAB= 
S3.TME= 
S3.TSY= 
S3.8BC= 

002  S4.ABD= 

002  S4.ANI= 
S4.AV0= 
S4.BLK;= 
S4.DEC= 
S4.DL0= 

002  S4.EDT= 
S4.HFF^ 
S4.HFL= 
S4.HHT= 
S4.HSY= 
S4.RGS= 
S4.SFC= 
S4.VFL= 
S5.ABP= 
S5.BCC= 
S5.DA0= 
S5.HPC= 
S5.HP0= 
S5.ITI= 
S5.0XF= 
S5.RP0= 
S5.SW1= 
S5.TMM= 
S5.VER= 
S5.X0F= 


020000 
000020 
002000 
040000 
100000 
001000 
000400 
000200 
004000 
000100 
010000 
000001 
000040 
000010 
000006 
000002 
000001 
000004 
000200 
001000 
000400 
000020 
020000 
004000 
000010 
010000 
040000 
000002 
002000 
000040 
000100 
100000 
000400 
001000 
002000 
004000 
000100 
010000 
000020 
000007 
000040 
000200 
020000 
040UU0 
000010 
100000 
020000 
040000 
000014 
000020 
000100 
000040 
002000 
000001 
000002 
010000 
000004 


S5.X0N= 

S6.EI0= 

S6.RDI= 

S6.RLU- 

TRIBTL 

TY$CHA= 

TY$EVE= 

TY$STA= 

TY$SUM= 

T$$KM6= 

T$$MIN= 

UC.ALG= 

UC.ATT= 

UC.KIL= 

UC.L6H= 

UC.NPR= 

UC.PWF= 

UC.QUE= 

UD.UNS= 

UD.160= 

UD.200= 

UD.556= 

UD.625= 

UD.8K  = 

UD.800= 

UIDTL 

UM.CLI= 

UM.DSB= 

UH.NBR= 

UM.OVR= 

UNUMTL 

US.ABO= 

US.BSP= 

US.BSY= 

US.FOR= 

US.FRK= 

US.KPF= 

US.LAB= 

US. HOE = 

US.MDM= 

US.MNT= 

US.OFL= 

US.PUB= 

US.PUF= 

US.RED= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

US.UCK= 

UU.ABO= 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.IOS= 

UU.ONIL^ 

UU.RCT= 


000010 

000400 

100000 

001000 

000737R 

000400 

001000 

002000 

000000 

000000 

000000 

000200 

000010 

000004 

000003 

000100 

000020 

000040 

000000 

000004 

000001 

000002 

000005 

000006 

000003 

001547R 

000036 

000200 

000400 

000001 

000421R 

000001 

000002 

000200 

000040 

000002 

000001 

000004 

000002 

000020 

000100 

000001 

000004 

000010 

000002 

000001 

000002 

000010 

000001 

000010 

000400 

000100 

000004 

000010 

002000 

000020 

000002 


002 


002 


002 
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MACRO  NAME 

ASL$ 
CALL 


DHBDFS 

DIRS 

ERRORS 


ETEXTS 


GETRV 

OFFS 

QDPBS 

QIOWS 

RAND 

RE5RG 
RETURN 


SAVRG 
SWTCHI 
UCBDFS 
VNPDFS 
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5-155 
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5-176 
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7-549 
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8-1317 
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7-267 
7-437 
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7-722 
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5-62 
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6-251 
7-636 
7-1004 
8-1317 

6-228 

6-251 

7-517 

7-701 

7-859 

7-1127 

7-1280 

5-147 

5-157 

5-167 

5-177 

5-187 

7-781 

#5-112 

5-112 

#7-781 

7-508 

7-283 

7-455 

7-625 

7-733 

7-857 

7-995 

7-1164 

10-1369 

7-501 

7-782 


7-265 
7-638 
7-1065 
13-1473 

6-232 
7-268 
7-522 
7-712 
7-869 
7-1148 

5-148 
5-158 
5-168 
5-178 
5-188 
7-953 

5-112 

7-781 


7-313 

7-472 

7-643 

7-745 

7-868 

7-1020 

7-1184 

10-1375 

7-952 


7-278 
7-781 
7-1122 
13-1492 

6-241 
7-285 
7-543 
7-723 
7-881 
7-1185 

5-149 
5-159 
5-169 
5-179 
5-189 
7-1004 


#7-953 


7-327 

7-489 

7-645 

7-754 

7-880 

7-1032 

7-1207 

11-1409 

7-"54 


7-282 
7-804 
7-1197 


10-1374 

7-396 

7-564 

7-734 

7-913 

7-1208 

5-150 
5-160 
5-170 
5-180 

7-1065 


7-953 


7-347 

7-514 

7-654 

7-770 

7-888 

7-1039 

7-1220 

12-1435 

7-1003 


7-356 
7-838 
7-1203 


7-413 
7-574 
7-746 
7-926 
7-1209 

5-151 
5-161 
5-171 
5-181 

8-1317 


#7-1004 


7-359 

7-526 

7-666 

7-795 

7-891 

7-1052 

7-1243 

13-1494 

7-1005 


7-373 

7-450 

7-507 

7-852 

7-865 

7-898 

7-1233 

7-1239 

7-1271 

7-425 

7-438 

7-456 

7-584 

7-655 

7-667 

7-772 

7-797 

7-809 

7-942 

7-969 

7-1021 

7-1221 

7-1244 

7-1245 

5-152 

5-153 

5-154 

5-162 

5-163 

5-164 

5-172 

5-173 

5-174 

5-182 

5-183 

5-184 

7-1004 

#7-1065 

7-1065 

7-378 

7-399 

7-412 

7-542 

7-553 

7-563 

7-678 

7-689 

7-700 

7-808 

7-824 

7-832 

7-894 

7-912 

7-925 

7-1056 

7-1081 

7-1115 

7-1261 

7-1279 

8-1308 

13-1497 

14-1520 

15-1542 

7-1064 

7-1066 

•  »F  ILF*tID*«VNP 
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312 
313 
3H 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 

325  000652 

326  000652 

327  000660 

328  000662 

329  000670 
330 

331  000672 

332  00067A 

333  000700 

334  000704 

335  000710 

336  000714 

337  000716 

338  000724 
339 

340  000726 

341  000734 
342 

343 
344 

345  000736 

346  000744 

347  000746 

348  000754 
349 

350 
351 

352  000756 

353  000764 

354  000766 

355  000774 
356 

357 
358 

359  000776 

360  001 OOC 

361  001006 

362  001014 

363  001022 
364 

565 
366 

367  001026 

368  001032 


.SBTTL  PRCIR  -  SPECIAL  PROCESSING  FOR  CIRCUITS 

'♦»-PRCIR-SPECIAL  PROCESSING  FOR  CIRCUITS 

INPUTS: 

RQB  =  REQUEST  BLOCK 
SQUAL  =  SPECIAL  QUALIFERS 

OUTPUTS: 

NONE. 


032767 
001004 
032767 
001667 

005004 
016705 
016703 
116746 

103467 
032767 
001024 

026167 
001365 


032767 
001004 
126067 
001355 


032767 
001004 
126067 
001345 


005204 
016167 
116067 
116067 
105067 


116002 
001405 


000004 
003400 


OOOOOOG 
OOOOOOG 


PRCIR: 


OOOOOOG 
OOOOOOG 
OOOOOOG 


10$: 


15$: 


000004 
OOOOOOG 

000400 
OOOOOOG 

001000 
OOOOOOG 


OOOOOOG 
000002G 

OOOOOOG 
000004G 

OOOOOOG 
000005G 


BIT 
BNE 
BIT 
BEQ 

CLR 

MOV 

MOV 

MOVB 

CALL 

BCS 

BIT 

BNE 


#QF$KNO,$QUAL 
10$ 

#wc.cnt:wc.unt!uc.tri 

SVRQB 

R4 

$SLTMA,R5 

$SLTNM,R3 

$OPTON,-(SP) 

NXTLIN 

60$ 

*QF$KNO,$QUAL 

30$ 


OOOOOG 
OOOOOOG 
OOOOOOG 
000006G 


OOOOOOG 


000002G 
000004G 
000005G 


CMP 
BNE 

;.NAM(R1),RQB+LR 
-5$ 

LIN 

;•  MATCH 

ON  CONTROLLER 

BIT 
BNE 
CMPB 
BNE 

#WC.CNT,$OUAL 
20$ 

L.CTL(RO),RQB+LR 
15$ 

CTL    ; 

';    MATCH 

ON  UNIT 

NUMBER 

J0$: 

BIT 
BNE 
CMPB 
BNE 

*WC.UNT,$QUAL 
30$ 

L.UNT(RO),RQB+LR 
15$ 

UNT 

;•  SAVE 

DATA  IN 

REQUEST  BLOCK 

50$: 

INC 

MOV 

MOVB 

MOVB 

CLRB 

R4 

Z.NAMtR1),RQB+LR 

L.CrL(RO),RQB+LR 

L.UNT(RO),RQBHR 

RQ8+LR.TRI 

LIN     ; 

CTL 
UNT 

;  TAKE 

CARE  OF 

TRIBUTARUIES 

MOVB 
BEQ 

L.NSTA(R0),R2 
50$ 

;  IS  THIS  FOR  KNOWN  CIRCUITS? 
;  IF  NE,  YES 
,$QUAL  ;  ELSE,  ARE  THERE  ANY  WILD  CARDS 
;  IF  EQ,  NO  ..  NOTHING  SPECIAL  HERE 


INITIALIZE  SUCCESS  FLAG 

GET  ADDRESS  OF  SLT  MAPPING  TABLE 

GET  NUMBER  OF  SET'S 

SAVE  OPTIONS  WORD 

ELSE,  GET  THE  NEXT  LINE 

IF  CS,  NO  MORE 

IS  THIS  FOR  KNOWN  CIRCUITS? 

IF  NE,  YES 

IS  THIS  THE  RIGHT  CIRCUIT? 
IF  NE,  NO 


IS  THIS  FOR  ALL  CONTROLLERS  ? 
IF  NE,  YES 

ELSE,  IS  THIS  THE  RIGHT  CONTROLLER 
IF  NE,  NO 


S  THIS  FOR  ALL  UNITS  ? 
IF  NE,  YES 

ELSE,  IS  THIS  THE  RIGHT  UNIT 
IF  NE,  NO 


INDICAIE  A  CIRCUIT  FOUND 

SAVE  DDM  PROCESS  NAME 

SAVE  CONTROLLER  NUMBER 

SAVE  UNIT  NUMBER 

ASSUME  LINE  IS  NOT  MULTIPOINT 


GET  THE  NUMBER  OF  TRIBUTARIES 
IF  EQ,  LINE  IS  NOT  Ml'LTIPOINT 


H  3 

VNP  -  VIRTUAL  NETWORK  COMMAND  P  MACRO  V05.03b  Saturday  29-Jun-85  02:45  Page  12-1 
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LDL'.N  -  LOAD  A  LINE 

77A  00246A  iOIS:   CALLR   $XLIN  ;  DO  A  PARTIAL  "CLEAR  LIME' 
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5 

5 
6 

7 
8 
9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
21 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 


.TITLE  VNSD  -  VNP  SYMBOL  DEFINITIONS 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VNP  -  STANDARD  RSXllH/S  SYMBOLS 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FEB-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DE  NET-11M/S  V3.0 
DECNET-11M-PLUS  Vl.O 

3.00  16-APR-82 

0ECNET-11M  V3.1 
DECNET-llM-PLUS  VI. 1 

4.00  07-N0V-83 

DECNET-11M  V4.0 
DECNET-llM-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-llM/S  V4.2 
OECnet-IIM-PLus  V3.0 
DECnet-Micro/RSX  Vl.O 
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VNTI  -  VNP  METWORK  INITIALIZATI  MACRO  V05.05b  Saturday  29-Jun-85  02:46  Page  7-1 
LOCAL  DATA 


02:4 


203 

20A  000000 


.PSECT 
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ALLOCATE  RDBS 


02:4 


46  Page  13 


804 

805 

806 

807 

808 

809 

810 

811 

812 

8:3 

814 

815 

816 

817 

818 

819  002644 

010346 

820  002646 

010246 

821  002650 

010146 

822  002652 

016701 

OOOOOOG 

823  002656 

016703 

OOOOOOG 

824  002662 

066703 

OOOOOOG 

825  002666 

005203 

826  002670 

042703 

000001 

827 

828  002674 

066705 

OOOOOOG 

829  002700 

010467 

OOOOOOG 

830  002704 

016767 

OOOOOOG  OOOOOOG 

831  002712 

016767 

000002G  000002G 

832  002720 

010546 

833  002722 

042705 

160000 

834  002726 

835  0027;^ 

012605 

836  002746 

010567 

000002G 

837  002752 

010467 

OOOOOOG 

838 

839  002756 

840  002762 

005301 

841  002764 

001343 

842  002766 

012602 

843  002770 

012603 

844  002772 

012601 

845  002774 

.SBTTL  ALLOCATE  RDBS 

**-$RD8S  INITIALIZE  RDB  LISTHEAD 


INPUTS; 


R4 
R5 


-  BIAS  OF  BASE  OF  POOL 

-  VIRTUAL  ADDRESS  OF  BASE  OF  POOL 


OUTPUTS: 

R4      -  BIAS  OF  BASE  OF  NEXT  FREE  SEGMENT  OF  POOL 
R5      -  VIRTUAL  ADDRESS  OF  NEXT  FREE  BLOCK 

ALL  OTHER  REGISTERS  PRESERVED 


SRDBS: 


20$: 


MOV 

R3,-(SP) 

MOV 

R2,-(SP) 

MOV 

R1,-(SP) 

MOV 

$RD8NM,R1 

MOV 

$RDBSZ,R3 

ADD 

.CRC0V,R3 

INC 

R3 

BIC 

#1,R3 

ADD 

$MAX0V,R5 

MOV 

R4,$RBLCK 

MOV 

$RDBLH,$BFR 

MOV 

$RDBLH+2,$BFR+2 

MOV 

R5,-(SP) 

BIC 

#160000, R5 

PUTAD 

R5,#4 

MOV 

(SP)+,R5 

MOV 

R5,$RDBLH+2 

MOV 

R4,$RDBLH 

CALL 

SGTBUF 

DEC 

R1 

BNE 

20$ 

MOV 

(SP)+,R2 

MOV 

(SP)+,R3 

MOV 

{SP)+,R1 

RETURN 

SAVE  R3  AND 

SAVE  R2 

SAVE  Rl 

NUMBER  OF  RDBS  TO  ALLOCATE 

NUMBER  OF  BYTES/RDB 

ADD  IN  THE  CRC  OVERHEAD 

MAKE  IT  EVEN 


SKIP  MAXIMUM  DLC  OVERHEAD  IN  RDB 
MAP  TO  BUFFER 
INITIALIZE  BIAS 

AND  VIRTUAL  ADDRESS 
SAVE  MAPPING  BITS 
CLEAR  MAPPING  BITS 
WRITE  VALUE  BACK  TO  NTPOOL 
RESTORE  REGISTER 

INITIALIZE  LISTHEAD  VIRTUAL  ADDRESS 
AND  BIAS 

GET  DOUBLE-WORD  ADDRESS  OF  NEXT  BUFFER 
LOOP  TILL 

DONE. 
RESTORE  R2 
AND  R3 
AND  Rl 
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STATE  TRANSITIONS  FOR  FINDING  NETWORK  POOL  PARTITION 

1321  003632  STATES 

1322 

1323 
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VNTl  -  VNP  NETWORK  INITIALIZAM  MACRO  V05.03b  Saturday  29-Jun-85  02:^6  Page  30-2 
SCAN  CONFIG  FILE  FOR  NTPOOL  DEFINITIONS 

1847  00625?  012600  MOV  (SP)+,RO       ;  RESTORE  FDB  ADDRESS 

18^8  00625A  RETURN               ;  WITH  C-8IT  FROM  TPARS 
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EVTtDF  PARSE  TABLES 

220:; 

2206 
2207 
2208 

2209  00632A 

2210  006324 
2211 

2212  006324 

2213  006324 
2214 

2215  006324 

2216  006324 
2217 

2218  006324 

2219  006324 
2220 

2221  006324 

2222  006324 
2223 

2224  006324 

2225  006324 

2226  006324 

2227  006324 
2228 
2229 
2230 
2231 

2232  006324 

2233  006324 
2234 

2235  006324 

2236  006324 

2237  006324 


';*              STATE  TRANSITIONS  FOR  THE  'EV 

STATES 
TRANS 

EVTDf 
$NUMBR,,E.NUM 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 

L6RA 

STATES 
TRANS 

lEVTMSK 

STATES 
TRANS 

<'  ,> 

STATES 
TRANS 
TRANS 
TRANS 

"CONSOLE", SEXIT.E. CON 
"fILE",SEXIT,E.FIL 
"MONITOR", SEXIT.E.MON 

;  EVTMSK  SUB-EXPRESSION 

STATES 
TRANS 

EVT 

$NU      M3K 

STATES 

TRANS 

TRANS 

RBRA,SEXIT 
<',>, EVTMSK 
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2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 


006404 
006406 
006410 
006412 
006414 
006416 
006420 
006422 


OOOOOOG 
OOOCOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000010 


.SBTTL  BUFSDF  ARGUMENT  CONTROL  TABLE 

»«-DFTBL-8UF$DF  ARGUMENT  CONTROL  TABLE 

THIS  CONTROL  TABLE  POINTS  TO  THE  ADDRESSES  IN  THE  COMMEXEC 
TO  RECEIVE  THE  ARGUMENTS  OF  THE  BUF$DF  MACRO.  THE  TABLE  IS 
ORDERED  IN  THE  SAME  WAY  AS  THE  ARGUMENTS  OF  THE  BUFSDF 
MACRO. 


DFTBL: 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


DFSlZ=<.-DFTBL>/2 


SCCBNM 
$CC8SZ 
SRDBNM 
SRDBSZ 
SSDSNM 
SSDBSZ 
SRDBTH 
SMAXOV 


#  OF  CCB'S  TO  ALLOCATE 
SIZE  OF  A  CCB  (IN  BYTES) 

#  OF  RDB'S  TO  ALLOCATE 
SIZE  OF  AN  RDB  (IN  BYTES) 

#  OF  SDB'S  TO  ALLOCATE 
SIZE  OF  AN  SDB  (IN  BYTES) 
RDB  ALLOCATION  THRESHOLD 
MAXIMUM  PROTOCOL  OVERHEAD  SIZE 
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ACTION  ROUTINE:  RIGHT  ANGLE  BRACKET  SEEN 


2958 

2959  010172 

2960  010200 

2961  010220 
2962 

2963  010226 
296A 

2965  010250 

2966  01023A 
2967 

2968 
2969 

2970  010236 

2971  010240 

2972  0102-,2 


062716  000002 


35$: 


101$: 


SWTCHO 

PUTRC 

SUTCHO 

RETURN 

ADD 
RETURN 


#$HI»18UF 
$DECPT  #D$END 


#2,(SP) 


WRITE  BACK  DECNET  HOME  BLOCK 


REJECT  TPARS  TRANSITION 


LOCAL  DATA  FOR  ANGLE-BRACKETFD  STRING  MANIPULATION 


STRPTR 
STRMAX 
STHADR 


.BLKW 
.BLKW 
.BLKW 


ADDRLSS  OF  FIRST  TEXT  BYTE 
MAXIMUM  TEXT  STRING  LENGTH 
PLACE  IN  CETAB  WHERE  TEXT  WILL  GO 
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ariinM  RniiTiMF-  <;TATinN  Fl  AfiS  SFFN 


022757 
103416 


002000 


016767  OOOOOOG  000072G  20$: 


062716  000002 


VNtl  -  VNP  NFiWORK  1NITIALI2AT! 
ACTION  ROU'lNE:  AREA  MAX  COST 


3385 
3386 
3387 
3388 

3389  012A12 

3390  012A20 
3391 

3392  012422 

3393 

3394  012442 

3395 

3396  012450 

3597 

3398  012454 

3399 

3400  012456 

5401   012462 

3402 

5405 

5404 

5405 

5406 

5407  012464 

3408  012464 

3409 

5410  012504 

5411  012510 
3412  012512 
5415  012516 

5414  012520 

5415  012522 

5416  012550 
5417 
5418 
5419 
5420 
5421 
3^22  012544 
5425 

3424  012546 

3425  012552 
3426 


MACRO  V05.03b  Saturday  29-Jun-85 


02:46 


Page  76 


.SBTTL  ACTION  ROUTINE;  AREA  MAX  COST 
.RAMXC  -  AREA  MAX  COST  ACTION  ROUTINE 


OOOOOOG  .RAMXC:  CMP 
BLO 


#1024.,.PNUMB 
30$ 


CHECK  FOR  HIGH  LIMIT 

If  OUT  OF  RANGE  -  BRANCH 


GETRV  $DECPT,#[l$EN[)        ;    READ   OECNET   HOME   BLOCK 

MOV  .PNUMB,$BFR  +  [)$AMXC    ;    COPY   AREA  MAX   COST 
PUTRC  ;    WRITF   BACK  OECNET   HOME   BLOCK 

RETURN 


50$: 


005767 
001004 
005767 
001405 
000412 
022767 
002406 


012552  016767 
012540 


ADD     #2,(SP) 
RETURN 


ILLEGAL  AREA  MAX  COST  VALUE 


.RBTM  -  BROADCAST  TIMER  ACTION  ROUTINE 


000060G 
OOOOOOG 

000577 

OOOOOOG 


062716  000002 


.RBTM: 

OOOOOOG  10$: 
000100G  20$: 

30$: 


GETRV   $DECPT,#D$END 


TST 
BNE 
TST 
BEQ 

BR 

CMP 

BLT 

MOV 

PUTRC 

RETURN 

ADD 
RETURN 


READ  DECNET  HOME  BLOCK 

ENDNODE  ? 

IF  NOT  -  BRANCH 

CHECK  FOR  LEGAL  VALUE 

IF  OK  -  BRANCH 

IF  NOT  -  ERROR 

CHECK  LIMIT 

IF  ILLEGAL  BRANCH 


$8fR+D$NN 

10$ 

.PNUMB 

20$ 

30$ 

#255.,. PNUMB 

50$ 

. PNUMB, $BfR+D$BRTM  ;  STORE  BROADCAST  TIMER  VALUE 

;  WRITE  BACK  DECNET  HOME  BLOCK 


*2,(SP) 


ILLEGAL  BROADCAST  TIMER  VALUE 
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VNTl  -  VNP  METWORK  INITlALlZATl  MACRO  V05.03b  Saturday  29-Jun-85 
fINREM  -  flND  PLACE  fOR  A  REMOTE  NODE  BLOCK 


5  1* 

32:46 


Page  89 


3770 

3771 

3772 

3773 

377A 

3775 

3776 

3777 

3778 

3779 

3780 

5781 

3782 

3783 

378A 

3785 

3786 

3787 

3788 

3789 

3790 

3791 

3792 

<  '93 

3794 

3795 

3796 

3797 

3798 

3799 

3800 

5801 

3802 


0U1O2 
0U106 
0U110 
014112 

014114 
014120 
014122 
014126 
01A152 
014136 
014140 


005767  OOOOOOG 

001002 

000261 


020167  OOOOOOG 

103773 

010167  OOOOOOG 

016701  OOOOOOG 

010067  OOOOOOG 

000241 


.SBTTL  QUICK  -  FAST  REMOTE  NODE  PROCESSING 

QUICK  -  FAST  REMOTE  NODE  PROCESSING 

INPUTS: 

RO     -  POINTER  TO  NEW  NODE  BLOCK 
R1     -  NODE  ADDRESS  TO  BE  INSERTED 
$LSTAD  -  CURRENT  HIGHEST  NODE  ADDRESS 
SLSTRM  -  HIGHEST  NODE  ADDRESS  POINTER 

OUTPUTS: 

C  SET  -  FAST  SEARCH  FAILURE 

C  CLR  -  FAST  SEARCH  SUCCESS 

R1     -  POINTER  TO  NEW  PREVIOUS  BLOCK 

SLSTAD, SLSTRM  -  UPDATED 


HIGH  ADDRESS  VALID 
IF  YES  -  BRANCH 
INDICATE  FAILURE 


QUICK: 

TST 

SLSTAD 

BNE 

10S 

5$: 

SEC 
RETURN 

10$: 

CMP 

R1, SLSTAD 

BLO 

5S 

MOV 

R1, SLSTAD 

MOV 

SLSTRM, R1 

MOV 

RO, SLSTRM 

CLC 

RETURN 

INSERT  AT  END  OF  LIST  ? 

IF  NO  -  BRANCH 

UPDATE  NEW  HIGH  ADRESS 

SET  NEW  PREVIOUS  NODE  BLOCK  POINTER 

UPDATE  NEW  LAST  NODE  BLOCK  POINTER 

INDICATE  SUCCESS 


H  U 
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4290 
4291 
A292 
4293 
4294 
429S 
429t 
429? 
4298 
4299 
4300 
4301 
4302 

4303  015740 

4304  015742 

4305  015744 

4306  015746 

4307  015750 
4308 

4309  015752 

4310  015754 
4311 

4312  015756 

4313  015760 
4314 

4315  015762 

4316  015764 
4317 

4318  015766 

4319  015770 

4320  015772 

4321  015774 
4322 

4323  015776 

4324  016000 
4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340  016002 

4341 


121021 
001015 
005004 
112004 
001002 

005305 
000771 

122021 
001006 

005304 
001374 

005305 
001363 
000241 
000401 

000261 


01004t 


CMPSTR  -  COMPARE  STRINGS 
INPUTS  - 


OUTPUTS  - 


RO.RI  ADDRESS  Of  FILE  BLOCKS  TO  BE  MATCHED 


C  CLEAR,  MATCH 
C  SET,   NO  MATCH 


CHPSTR: 
5$: 

CMP8(R0),(R1)* 
BNE     15$ 
CLR     R4 
MOVE    {R0)*,R4 
BNE     10$ 

;  MATCH  ON  FIELD  SIZE 

;  IF  NOT  -  BRANCH 

;  INIT  BYTE  COUNT 

;  GET  FILED  SIZE 

;  IF  FILELD  LENGTH  -  BRANCH 

DEC 
BR 

R5 
CMPSTR 

;  COUNT  ONE  LESS  FIELD 
;  CHECK  NEXT  FIELD 

10$: 

CMPB 
BNE 

(R0)+,(R1)+ 
15$ 

;  MATCH  ? 

;  IF  NOT  -  BRANCH 

DEC 
BNE 

R4 
10$ 

;  COUNT  ONE  LESS  CHARACTER 
;  IF  MORE  -  BRANCH 

DEC 
BNE 
CLC 
BR 

R5 
CMPSTR 

20$ 

;  COUNT  ONE  LESS  FIELD 
;  IF  MORE  BRANCH 
;  INDICATE  BLOCK  MATCH 
;  CONTINUE 

15$: 
20$: 

SEC 

RETURN 

;  INDICATE  NO  MATCH 

INIBUF  -  INITIALIZE  BUFFER 
INPUTS  - 


OUTPUTS 


INieUF:  MOV 


RO  -  BUFFER  ADDRESS 
R1  -  BYTE  COUNT 


BUFFER  INIT 
RO  PRESERVED 


RO,-(SP) 


4342  016004 

105020 

10$: 

CLRB 

(RO)t 

4343  OI0OO6 

00530' 

DEC 

R1 

4344  016010 

001375 

BNE 

10$ 

4345  016012 

012600 

MOV 

(SP)t, 

4346 

SAVE  BUFFER  ADDRESS 

CLEAR  BYTE 
COUNT  ONE  LESS  BYTE 
IF  MORE  -  BRANCH 
RESTORE  BUFFER  ADDRESS 


H  15 
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476A 
A765 
A766 
A767 
'^768 
A  769 
A770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4785 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4/93 
4794 


.SBTTL  REQUEST  NETLOADER  TO  LOAD  A  LINE 

•♦-LDLINE-REQUEST  NETLOADER  TO  LOAD  A  LINE 

A  SYSTEM  LINE  TABLE  ENTRY  INDICATES  THAT  THE  LINE  SHOULD  BE 
LOADED  AT  SYSTEM  INITIALISATION  TIME,  REQUEST  NETLOADER  TO 
LOAD  THE  LINE. 


INPUTS; 


R1  -  POINTER  TO  SYSTEM  LINE  TABLE 
R2  -  POINTER  TO  DDM  PDV 


017516 
017524 
017532 
017540 
017544 
017550 
017554 
017556 
017564 
017572 
017600 
017604 
017612 
017616 
017622 
017624 
017634 


012767 
012767 
012767 
005067 
005067 
005767 
001403 
052767 
116167 
116167 
105067 
016267 

005767 
100004 


000003  OOOOOOG  LDLINE: 
000200  OOOOOOG 
OOOOOOG  OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

002000  OOOOOOG 

000012  000004G  5$: 

000013  000005G 
000006G 

000004  000002G 

OOOOOOG 


10$: 


MOV 
MOV 
MOV 
CLR 
CLR 
TST 
BEQ 
BIS 
MOVB 

Move 

CLRB 

MOV 

CALL 

TST 

BPL 

NTIERR 

RETURN 


#LS.LIN,ROB+LR.STS 

#OP$ALL,$OPTON 

»CM$SET,$CMAND 

$QUAL 

TOPFLG 

TOPFLG 

5$ 

#LS.TOP,RQBtLR.STS 

L.CTL(Ri),RQBHR.CTL 

L.UNT(R1),RQB+LR.UNT 

RQBtLR.TRI 

2.NAM(R2),ROB+LR.LIN 

REQNTL 

RQB 

10$ 

16 


SET  FUNCTION  CODE 

LOAD  LINE  AND  NOTHING  ELSE 

THIS  IS  A  "SET"  OPERATION 

CLEAR  THE  QUALIFIERS 

TURN  OFF  TOP-DOWN  LOADING 

TOP-DOWN  LOADING? 

IF  EQ,  NO 


NO  TRIBUTARY 

GET  NAME 

REQUEST  NETLOADER  TO  LOAD  PROCESSES 

TEST  FOR  ERROR 

FAILED  TO  LOAD  LINE 


H  16 
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H  1 

VNCP  -  VNP  GET  COMMANDS  NCP  STY  MACRO  V05.03b  Saturday  29-Jun-85  02:44 
Symbol  table 


UU.RDY= 

UU.SER= 

UU.SIO= 

UU.SPC= 

U.ACB 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.BPKT= 

U.BUF 

U.CBF  = 

U.CLI 

U.CNT 

U.COTQ 

U.CTCB 

U.CTL 

U.CTYP 

U.CWl 

U.CW2 

U.CW3 

U.CW4 

U.CYL  = 

U.DCB 

U.FCDE= 

U.FNUM= 

U.GRP  = 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.MEDI= 

U.MLUN= 

U.MUP 

U.OWN 

U.RBNS= 

U.RCTC= 

U.RCTS= 

U.RED 

U.RED2 

U.SCB 

U.SHST= 

U.SHUN= 


Af?';. 


000200 

000001 

001000 

000040 

000062 

000032 

000066 

000064 

000022 

00C044 

000024 

000032 

177772 

000030 

000030 

000026 

000004 

000052 

000010 

000012 

000014 

000016 

000104 

000000 

000042 

000040 

000102 

000032 

000034 

177774 

000040 

000050 

177772 

17^''76 

0001  12 

000-13 

000110 

000002 

000034 

000020 

000076 

000074 


177776 
006562 
002624 


DATA 

Errors  detected: 


000 
001 
002 
0 


U.SPC  = 

U.STS 

U.ST2 

U.SUB  = 

U.TCHP 

U.TCVP 

U.TFLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TST5 

U.TST6 

U.TTAB 

U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNTI= 

U.USVR= 

U.UTIL= 

U.VCB  = 

U.V5ER= 

U.2MED= 

U2.AT.= 

U2.CRT= 

U2.DH1= 

U2.DJ1= 

U2.DZ1= 

U2.ESC= 

U2.HFF= 

U2.HLD= 

U2.L0G= 

U2.LUC= 

U2.L3S= 

U2.L8S= 

U2.NEC= 


000036 
000005 
000007 
000036 
000042 
000043 
000040 
000036 
000060 
000053 
000047 
000100 
000026 
000054 
000056 
000050 
000046 
000024 
000107 
000044 
000052 
000006 
000114 
000060 
000106 
000036 
000034 
000120 
000070 
000020 
002000 
100000 
040000 
000100 
001000 
010000 
000040 
000400 
000001 
000004 
010000 
004000 


(RW,I,GSL,ABS,0\/R) 
(RW,I,LCL,REL,CON) 
(RW,D,LCL,REL,CON) 


•*»  Assembler  statistics 


Work  file  '■eads: 
Work  file  writes: 
Size  of  work  file: 
Size  of  core  pool : 
Operating  system: 


17 

21 

17101  Words 

17608  Words 

RSX-11M/PLUS 


C  67  Pages) 
f  67  Pages) 


U2.PRV= 

U2.RMT= 

U2.R04= 

U2.SCS= 

U2.SLV= 

U2.VT5= 

U2.7CH= 

U3.0PA= 

U3.PAR= 

U3.UPC= 

U4.CR  = 

VF.ADD= 

VF.EAD= 

VF.INJ= 

VF.SKA= 

VF.SS  = 

V$$CTR= 

WC.CNT= 

WC.EVE= 

WC.TRI= 

WC.UNT= 

X$$DBT= 

ZF.|V|UX= 

Z.FLG  = 

Z.NAM  = 

IADS 

$ANT 

SARADI 

$ARAD2 

$BFR  = 

SCATS  = 

SCKLOG 

$CLSUF= 

$CL]0S= 

$CMAND=: 

SCOP 

SCOST 

SCSR 

SCTL 

SDACC 

SDECPT= 

SDEVHD= 


000010 
020000 
100000 
000004 
000200 
000002 
010000 
100000 
040000 
020000 
000100 

****** 


GX 
GX 
GX 
GX 
GX 


****** 

****** 

001000 

000400 

004000 

002000 

001000 

000000 

******  GX 

******  GX 

******  GX 

000322RG 

000362RG 

002746RG 

002762RG 

******  GX 

******  GX 

000734RG 

*♦*♦«*  GX 

******  GX 

******  GX 

001002RG 

001056RG 

001126RG 

001204RG 

001300RG 

******  GX 

******  GX 
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SDPAS 

001356RG 

$RDBSZ= 

******  GX 

SDUSE 

001572RG 

SRET 

002564RG 

SEXNOD 

001650RG 

SSAVVR= 

******  GX 

SFLAGS= 

******  GX 

SSCOND 

003636RG 

SGETRV= 

******  GX 

SSCOPl 

003606RG 

SGRO 

001706RG 

SSC0P2 

00361 6RG 

$GTPLN= 

******  GX 

$SC0P3 

003626RG 

SHLPAC 

006276RG 

SSCSR 

003750RG 

$HMBUF= 

******  GX 

SSEG 

004026RG 

SHIM 

001746RG 

SSLTMA= 

******  GX 

SIFALI 

002050RG 

SSLTNM= 

******  GX 

si; LOG 

002042RG 

SSTADD 

004102RG 

SIFNNA 

002004RG 

SSTALI 

004234RG 

SIFXAC 

002056RG 

SSTDES 

004246RG 

SIFXPR 

002070RG 

SSTENO 

004260RG 

SJFX5S 

0021 02RG 

SSTHOS 

004306RG 

SIFX9S 

0021 14RG 

SSTLND 

004440RG 

SINA 

002516RG 

SSTLSH 

004552RG 

SINC 

002402RG 

SSTLSN 

004516R' 

SLNAME 

002166RG 

SSTNAD 

004570RJ 

SLTM 

002230RG 

SSTNAM 

004734RG 

SMACT 

002266t'G 

SSTPAR 

005026RG 

SMDEA 

002334RG 

SSTRPA 

005072RG 

SMUL  = 

******  GX 

SSTSNM 

005166RG 

SHXCO 

002632RG 

SSTTPA 

005230RG 

SMXLJ 

002700RG 

STRI 

005324RG 

SNADD 

003062RG 

STRIBA 

005456RG 

SNNAM 

004722RG 

STYPE  = 

******  GX 

SONAM 

003214RG 

SUNT 

005522RG 

SOPT0N= 

******  GX 

SVEC 

005674RG 

SOTYP 

003260R6 

SVFLAG= 

******  GX 

SOUT 

002450RG 

SVNCP 

OOOOOORG 

SOVER 

003350RG 

SXMISS 

005752RG 

SOWN 

003360RG 

SXTRI 

005372RG 

SPCIR 

003420RG 

SXUNT 

005570RG 

SPDT 

001434RG 

$$SARG= 

000003 

SPDVTA= 

******  GX 

SS$0ST= 

000014 

SPFLAG= 

******  GX 

.PCHAR= 

******  GX 

SPNAM 

003476RG 

.PNUMB= 

******  GX 

SPRI 

003536RG 

.PNUMH= 

******  GX 

SQUAL  = 

******  GX 

.PSTCN= 

******  GX 

$RADDR= 

******  GX 

.PSTPT= 

******  GX 

v,MD    nc  T    rnMMAMhc    KtrD    CTV    tAtiCUn    wfi^    n'^h    ';at-iirrtAv    ?Q-.) 
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vv 

vv 

NN 

NN 
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\l\l 

vv 

NN 

NN 
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vv 

vv 

NN 

NN 

PP      PP 

vv 

vv 

NN 

NN 

PP      PP 

vv 

vv 

NNNN 

NN 

PP      PP 

vv 

vv 
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NN 
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vv 

vv 

NN  NN 

NN 

PPPPPPPP 

vv 

vv 

NN  NN 

NN 

PPPPPPPP 

vv 

vv 

NN 
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PP 

vv 

vv 

NN 
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PP 

vv 

vv 

NN 

NN 

PP 

vv 

vv 

NN 

NN 

PP 

vv 

NN 

NN 

PP 

vv 

NN 

NN 

PP 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

ssssssss 

TTTTT 

TTTTT 

LL 

ss 

LK 

ss 

Lt 

ss 

LL 

ss 

LL 

ssssss 

LL 

ssssss 

LL 

ss 

LL 

ss 

LL 

ss 

LL 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 
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369 

370  001 03^. 

371  001042 

372  001046 

373  001052 

374  001056 
375 

376  001062 

377  001064 

378  001066 

379  001072 
380 

381  001074 

382  001076 

383  001104 

384  001106 

385  001110 

386  001112 
387 

388 
389 
390  001114 


112767  177777  000006G 

105267  000006G       40$: 

016746  OOOOOOG        50$: 

012667  OOOOOOG 


005302 
003366 
111667 
000706 

005726 
032767 
001002 
005704 
001401 


OOOOOOG 


000004  OOOOOOG 


60$: 


MOVB 

#-1,RGBtLR.TRI 

INC8 

RQB+LR.TRI 

MOV 

RQB,-(SP) 

CALL 

$VRQB 

MOV 

CSP)+,RQB 

DEC 

R2 

BGT 

40$ 

MOVS 

(SP),$0PTON 

BR 

15$ 

TST 

(SP)  + 

BIT 

#QF$KNO,$QUAL 

BNE 

70$ 

TST 

R4 

BED 

102$ 

TETURN 

70$: 

ERROR  CONDITIONS 
102$:   ERRPT$  CNER1,$ER0UT 


MUST  BE  FOR  ALL  TRIBUTARIES 

START  WITH  TRIBUTARY  ZERO 

GET  NEXT  TRIBUTARY 

SAVE  FUNCTION  REQUESTED 

PROCESS  REQUEST 

RESTORE  FUNCTION  CODE  JUST  IN  CASE 

NO  ERROR  PROCESSING 

ANY  MORE  TRIBUTARIES  ? 

IF  GT,  YES 

RESTORE  LOW  BYTE  OF  OPTIONS  WORD 

ELSE,  GET  THE  NEXT  LINE 

CLEAN  UP  STACK 

WAS  THIS  FOR  KNOWN  LINES  ? 

IF  NE,  YES  ..  LEAVE 

ELSE,  WERE  ANY  LINES  FOUND 

IF  EQ,  NO  ..  LINE  NOT  IN  SYSTEM 


CIRCUIT  NOT  IN  SYSTEM 
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776 
777 
778 

779  002470 

780  002474 

781  002500 

782  002504 

783  002512 

784  002516 

785  002524 

786  002530 

787  002532 

788  002536 

789  002542 

790  002544 

791  002562 

792  002570 
793 

794 
795 


OOOOOOG 

OOOOOOG 

OOOOOOC 

OOOOOOC  OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 


010167 
116102 
042702 
042767 
050267 
016167 
016102 
001417 
005067 
005767 
100412 


016767  OOOOOOC  0000006 


TEST  FOR  PROCESS  ALREADY  IN  CORE 


AIC: 


10$: 


000104' 


MOV 

HOVB 

BIC 

BIC 

BIS 

MOV 

MOV 

BEO 

CLR 

TST 

BMl 

GETRV 

MOV 

RETURN 


.END 


R1,$PDVA       ;  SAVE  PDV  ADDRESS 

Z.fLG(Rl),R2    ;  GET  PROCESS  TYPE  FROM  PDV  STATUS  BYTE 

#*C<FL.DLC!FL.DDM>,R2  ;  ... 

#<FL.DLC!FL.DDM>,$FLAGS  ;  UPDATE  NETLDR  STATUS  ACCORDINGLY 


,$NAME 
,R2 


R2,$FLAGS 

Z.NAM(RI) 

Z.PCBtRl) 

10$ 

$BIAS 

.MGMGE 

10$ 

R2,.PLGTH 

$BFR+P.REL,$BIAS 


■VNP 


SET  PROCESS  NAME  (RAD50) 
GET  PCS  ADDRESS 
IF  EQ,  PROCESS  IS  NOT  IN  CORE 
ASSUME  UNMAPPED  SYSTEM 
IS  THIS  AN  UNMAPPED  SYSTEM  ? 
IF  MI,  YES 
READ  IN  PCB  IMAGE 
;  GET  RELOCATION  BIAS 
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56 

57 

58 

59 

60  000000 

61 

62 

63 

6A 

65 

66  000000 

67 

68 

69 

70 

71 

72 

73  000000 

74 

75 

76 

77 

78 

79  000000 

80 

81 

82 

83 

8A 

85  000000 

86 

87 

88 

89 

90 

91 

92 

93 

9A 


000001 


.MCALL  DCeDF$,LBLDF$,SCBDF$,UCBDF$,PCBDF$ 

DEVICE  CONTROL  BLOCK  OFFSETS  (DCS) 

OCBDFS 

.GL08L  D.DSP,D.NAM,D.PC8,D.UCB,D.UCBL,D.UNIT,D.VPWF 

TASK  LABEL  BLOCK  OFFSETS 

I  Rl  HF  J 

.GL08L  L$BEXT,L$BFLG,LSBHRB,LSBLDZ,L$8MXZ,L$BSA,TS$NHD 
.GLOBL  L$BBLK,L$BXFR,L$BPAR 

STATUS  CONTROL  BLOCK  OFFSETS  (SCB) 

SC8DF$ 

.GLOBL   S.CON.S.LHD 

UNIT  CONTROL  BLOCK  OFFSETS  (UCB) 

UCBDFS 

.GLOBL  UC.PWF,U.CTL,U.DCB,U.RED,U.SCB 

PARTITION  CONTROL  BLOCK  OFFSETS 

PCBDFS 

.JF  NDF  R$$MPL 
.GLOBL  P. BUSY 
.ENDC 

.GLOBL   P.BLKS,P.STAT,P.MAIN,P.OWN,P.REL 

.GLOBL  P.SUB,P.S]ZE,P.rCB,P.NAM,P.IOC,P.LNK,P.PRI 

.END 


;[MP01] 
;rMP01] 
;[MPOn 
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VNTI   -   VNP  NETWORK    INIT 
NETWORK    INITIALIZATION 


206 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 

218  000000 

219  000000 

220  000000 

221  000004 
222 

223 
22A 

225  000010 

226  000016 

227  000020 
228 

229 
230 

231  000022 

232  000026 

233  000032 

234  000036 
235 

236  000042 

237  000046 

238  000050 

239  000060 

240  000064 

241  000066 
242 

243  000076 

244 

245 

246 

247  000076 

248  000100 

249  000104 
250 

251 

252 

253 

254  000106 

255 

256 

257 

258  000110 

259  000116 
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COLD  START 

.SBTTL  NETWORK  INITIALIZATION  COLD  START 

*••  -  SVNTI  -  VNP  NETWORK  INITIALIZATION 

INPUTS: 

NONE. 

OUTPUTS: 

NETWORK  IS  INITIALIZED 


SVNTI:: 


.MCALL  VNPBPT 


010667  OOOOOOG 


VNPBPT 

MOV 

CALL 


VNTI 

SP.SPSAV 

SCLSAV 


260 
261 
2b2 


032767 
001401 


005067 
005067 
005067 
005067 


103004 
103004 


005001 
012700 
005710 


001006 


012767 
012767 


020000  OOOOOOG 


SEE  IF  COMMEXEC  IS  ALREADY  LOADED 


BIT 
BEQ 
RETURN 


#FE.CEX,$FMASK 
3$ 


SAVE  STACK  POINTER  VALUE 
SAVE  GCL  CONTEXT 


IS  COMMEXEC  LOADED  ? 

NO 

YES,  JUST  RETURN 


DEFINE  NTPOOL  NAME  (  AND  SIZE  IF  MAPPED  ) 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


^$: 


4$: 


CLR 
CLR 
CLR 
CLR 

CALL 

BCC 

NTIERR 

CALL 

BCC 

NTIERR 


SU8PAR 
SSPOOL 
SBFLG 
S8PCB 

OPNCFG 

4$ 

14 

NTPSCN 

5$ 

13 


5$: 


FIND  NETWORK  POOL  PARTITION 


OOOOOOG 


063147 
047574 


OOOOOOG 
000002G 


CLR 
MOV 

TST 

R1 

#NTPNAM,RO 

(RO) 

.IF  DF 
BNE 
.IFF 
BNE 

R$$MPL 
35$ 

7$ 

.ENDC 

;  DF  R$$MPL 

MOV 
MOV 

**RPOO,NTPNAM 
#"RL..,NTPNAMt2 

.IF  NDF 

R$$MPL 

INDICATE  NO  PCB  YET 
INIT  SERVER  BASE  FLAGS 


ATTEMPT  TO  OPEN  CONFIG  FILE 
SCAN  FOR  NTPOOL  DEFS 


ASSUME  NO  PCB  ADDRESS 

ADDRESS  OF  RAD50  PARTITION  NAME 

IS  NAME  PRESENT  ? 


IF  YFS  -  BRANCH 
POOL  .AME  SPECIFIED 

USE  DEFAULT  NAME 


;tMP01] 
;[MP01] 


;[MP01] 


;[MP01] 
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84? 
849 

.SBTTL 

INITIALIZE 

SMALL  DATA 

BUFFER  POOL 

850 
851 

+ 

**-$SD8S 

INITIALIZE 

SMALL  DATA  BUFFER  POOL 

852 
855 

INPUTS: 

854 

R4 

-  BIAS  OF 

BASE  OF 

FREE  SPACE  IN  POOL 

855 

R5 

-  VIRTUAl 

ADDRESS 

OF 

BASE 

OF  FREE  SPACE 

856 
857 

OUTPUTS: 

858 

R4 

-  BIAS  OF 

BASE  OF 

FREE  SPACE 

859 

R5 

-  VIRTUAL 

ADDRESS 

OF 

FREE 

SPACE 

860 
861 

. 

ALL  OTHER  REGISTERS  PRESERVED 

862 

863  002776 

010346 

ESD8S: 

MOV 

R3,-(SP) 

SAVE 

864  003000 

010246 

MOV 

R2,-(SP) 

REGISTERS 

865  003002 

010146 

MOV 

R1,-(SP) 

866  003004 

016701 

OOOOOOG 

MOV 

$SD8NM,R1 

NUMBER  OF  SDBS  TO  ALLOCATE 

867  003010 

001444 

BEQ 

90$ 

IF  ZERO,  NO  WORK  TO  DO 

868  003012 

016703 

OOOOOOG 

MOV 

$SD8SZ,R3 

NUMBER  OF  BYTES/SDB 

869  003016 

066703 

OOOOOOG 

ADD 

.CRC0V,R3 

COUNT  CRC  BYTES 

870  003022 

005203 

INC 

R3 

MAKE  IT  EVEN 

871  003024 

042703 

000001 

BIC 

#1,R3 

872 

873  003030 

066705 

OOOOOOG 

10$: 

ADD 

$MAX0V,R5 

SKIP  MAXIMUM  DLC  OVERHEAD 

874  003034 

010467 

OOOOOOG 

MOV 

R4,$RBLCK 

MAP  TO  BUFFER 

875  003040 

016767 

OOOOOOG  OOOOOOG 

MOV 

$SD8LH,$BFR 

INITIALIZE  BIAS 

876  003046 

016767 

000002G  000002G 

MOV 

$SD8LH+2, 

EBFR+2 

AND  VIRTUAL  ADDRESS 

877  003054 

010546 

MOV 

R5,-(SP) 

SAVE  MAPPING  BITS 

878  003056 

042705 

140000 

BIC 

#U0000,R5 

CLEAR  MAPPING  BITS 

879  003062 

PUTAD 

R5,*4 

WRITE  VALUE  BACK  TO  NTPOOL 

880  003100 

012605 

MOV 

(SP)+,R5 

RESTORE  REGISTER 

881  003102 

010567 

000002G 

40$: 

MOV 

R5,$SDBLH 

♦■2 

INITIALIZE  LISTHEAD  VIRTUAL  ADDRESS 

882  003106 

010467 

OOOOOOG 

MOV 

R4,$SDBLH 

AND  BIAS 

883 

884  003112 

CALL 

$GT8UF 

GET  DOUBLE-WORD  ADDRESS  OF  NEXT  BUFFER 

885  003116 

005301 

DEC 

Rl 

LOOP  TILL 

886  003120 

001343 

BNE 

10$ 

DONE. 

887  003122 

012601 

90$: 

MOV 

(SP)+,R1 

RESTORE 

888  003124 

012602 

MOV 

(SP)+,R2 

REGISTERS 

889  003126 

012603 

MOV 

(SP)+,R3 

890  003130 

RETURN 
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ACTION  ROUTINES   FOR  ESTIMATING  NTPOOL    SIZE 


1325 
1326 
1327 

1328  003632 

1329  003640 
1330 

1331  0036A2 

1332  003650 
1333 

1334  003652 

1335  003660 
1336 

1337  005662 

1338  003670 
1339 

1340  003672 

1341 

1342 

1343  00370v. 

1344  003706 
1345 

1346  003710 

1347  003716 

1348  003724 
1349 

1350 

1351  003726 

1352  003732 

1353  003736 

1354  003742 

1355  003746 

1356  003752 

1357  003756 

1358  003762 

1359  003766 

1360  003772 

1361  003776 

1362  004002 

1363  004004 

1364  004010 

1365  004014 

1366  004020 

1367  004024 

1368  004026 

1369  004032 

1370  004034 

1371  004040 

1372  004042 

1373  004044 

1374  004046 

1375  004050 

1376  004054 
1377 

1378  004056 
1379 

1380  004064 

1381  004070 


.SBTTL  ACTION  ROUTINES  FOR  ESTIMATING  NTPOOL  SIZE 


016767 
016767 
016767 
016767 
016767 
016767 


016767 
016767 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000022' 
OOOOOOG 


000022' 
OOOOOOG 


000074'  .Rl: 
000076'  .R2: 
000106'  .R3: 
000022'  .Nl: 
OOOOOOG  .N2: 
OOOOOOG 


OOOOOOG  .N3: 
OOOOOOG 


016701 
016700 
066700 
066700 

010067 
010167 
016700 
016701 
066701 
066701 
005201 
042701 

066700 
066701 
005500 
062701 
005500 
012702 
006200 
006001 
C05302 
001374 
010167 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000024' 
000026' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000001 

000024' 
000026' 

000077 

000006 


000002G 


.N4: 


10S: 


005767  000074' 
001461 


MOV 
RETURN 

MOV 
RETURN 

MOV 
RETURN 

MOV 
RETURN 

MOV 


MOV 
RETURN 

MOV 
MOV 
RETURN 


MOV 

MOV 

ADD 

ADD 

CALL 

MOV 

MOV 

MOV 

MOV 

ADD 

ADD 

INC 

BIC 

CALL 

ADD 

ADD 

ADC 

ADD 

ADC 

MOV 

ASR 

ROfi 

DEC 

BNE 

MOV 

RETURN 


016767  OOOOOOG  OOOOOOG  .FUDG:  MOV 


.PNUMB,NN 

.PNUMB.NA 

.PNUMB.NBEAJ 

.PNUMB.NAMBUF 

NAMBUF,.RDBNM 

.PNUMB,.RDBSZ 


NAM8UF , . SDBNM 
.PNUMB,.SDBSZ 


.RDSNM.RI 

.RDSSZ.RO 

.CRCOV.RO 

.PNUMB.RO 

$MUL 

R0,NAMBUF+2 

R1,NAMBUF+4 

. SDBNM, RO 

.SD8SZ,R1 

.CRCOV.Rl 

.PNUMB.RI 

Rl 

#1,R1 

$MUL 

NAM6UF+2,R0 

NAMBUF+4,R1 

RO 

#77, Rl 

RO 

#6,R2 

RO 

Rl 

R2 

10$ 

R1,NTPSIZt2 


.PNUMB,NTPSIZ 


TST 
BEQ 


NN 
10$ 


SAVE  MAXIMUM  NODE  ADDRESS 

SAVE  MAX  AREAS 

SAVE  BROADCAST  ENDNODE  ADJACENCIES 

STORE  NUMBER  OF  RDBS/SDBS 

Gf,  NUMBER  OF  RDBS  FROM  STORAGE 

GET  RDB  SIZE  IN  BYTES 


GET  NUMBER  OF  SDBS  FROM  STORAGE 
SIZE  IN  BYTES  OF  SDB 


GET  NUMBER  OF  RDB'S 

GET  RDB  SIZE 

ADD  CRC  BYTES 

ADD  MAX  DLC  OVERHEAD 

DETERMINE  TOTAL  BYTES 

SAVE  DOUBLE  PRECISION  ANSWER 

GET  NUMBER  OF  SDB'S 
GET  SDB  SIZE 
ADD  CRC  BYTES 
ADD  DLC  OVERHEAD 
MAKE  IT  EVEN 

MULTIPLY  THE  TWO 
ADD  PREVIOUS  RESULT 
DOUBLE  PRECISION 

ROUND  up" TO  SLOCK  BOUNDARY 

LOOP  COUNT 

DOUBLE  SHIFT  RIGHT  6  PLACES 


SAVE  RD8/SDB  SIZE 


EXTRA  BLOCKS  NEEDED  IN  POOL 

ENDNODE  ? 

IF  YES  -  BRANCH 
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1850 
1851 
1852 
1853 
185A 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
18b5 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 


.SBTTL  PROCESS  TEXT  STRING  FROM  FILE 

**-PROTXT-PROCESS  TEXT  STRING  FROM  FILE 

A  STRING  HAS  BEEN  READ  FROM  THE  CONFIGURATION  FILE  WHICH  WE 
MUST  NOW  PARSE  TO  CHECK  WHETHER  IT  IS  A  FUNCTION  THAT  WE  MUST 
KNOW  ABOUT  AND  IF  SO  WE  MUST  SET  UP  THE  APPROPRIATE  DATA 
STRUCTURES  IN  THE  COMMEXEC  DATABASE. 

INPUTS: 

CONFIG  FILE  MUST  BE  OPEN 

OUTPUTS: 

R1,R2,R3,R4,R5  -  CORRUPTED 


006256 
006260 
006264 
006270 
006274 
006276 
006302 
006306 
006312 
006316 
006322 


005001 
016703 
016303 
010367 
001412 
016704 
012702 
012705 
005067 


OOOOOOG 

000002 

OOOOOOG 

OOOOOOG 
000032' 
000466' 
OOOOOOG 


PROTXT:  CLR 
MOV 
MOV 
MOV 
BEQ 
MOV 
MOV 
MOV 
CLR 


10$: 


CALL 
RETURN 


Rl 

$CLI0S,R3 

2(R3),R3 

R3,LINS1Z 

lOi 

$CL6UF,R4 

#KW0RD,R2 

#ISTATE,R5 

MACTyP 

.TPARS 


INITIALISE  ACTION  FLAGS  -  NO  ABREVIATIONS 
lOSB  ADDRESS 
LENGTH  OF  LINE 

STORE  LINE  SIZE  IN  CASE  OF  ERROR 
IGNORE  NULL  LINES 
POINT  TO  THE  STRING  TO  PARSE 
POINT  TO  THE  KEYWORD  TABLE 
SET  UP  THE  INITIAL  STATE 
INITIALISE  MACRO  TYPE  FLAG 
THEN  PARSE  THE  LINE 
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LOG$ST  PARSE  TABLES 


2239 

2240 

22A1 

2242 

2243  006324 

224^  006324 


.SBTTL  LOGIST  PARSE  TABLES 

STATE  TRANSITIONS  FOR  THE  'LOGSST'  MACRO 

STATES  LOGST 

TRANS   SNUM8R,SEX1T,L.LGST 
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2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 


006424 
006424 
006432 
006434 
006442 
006450 
006456 
006464 
006470 
006476 


.SBTTL  ACTION  ROUTINE:  END  OF  BUFSDF  SOURCE  LINE 

**-.BUFCT-END  OF  BUFSDF  SOURCE  LINE  DETECTED 

THE  CONTENTS  OF  SCCBNM,  SRDBNM,  AND  SSDBNM  ARE  COPIED  INTO  SCCBCT, 
SRDBCT,  AND  SSDBCT  RESPECTIVELY. 


032767  000004  OOOOOOG 

001003 

066767  OOOOOOG  OOOOOOG 

016767  OOOOOOG  OOOOOOG  10S: 

016767  OOOOOOG  OOOOOOG 

016767  OOOOOOG  OOOOOOG 

005267  OOOOOOG 

042767  000001  OOOOOOG 


BIT 
BNE 
ADD 
MOV 
MOV 
MOV 
INC 
BIC 
RETURN 


#CF.DYN,SCXOPT 

10$ 

SRDBNM, SCCBNM 

SCCBNM, SCCBCT 

SRDBNM, SRDBCT 

SSDBNM, SSDBCT 

SMAXOV 

*1,SMAX0V 


DYNAMIC  CCB  ALLOCATIONS? 
BR  IF  YES,  LEAVE  CCB  COUNT  ALONE 
ADD  NUMBER  OF  RDBS  TO  ALLOCATE 
COPY  #  CCB'S 


MAKE  MAXOV  EVEN 
MAKE  MAXOV  EVEN 
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297A 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2985 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

300o 

3007 


.SSTTL  ACTION  ROUTINE:  STATION  FLAGS  SEEN 

♦♦♦  -  X.FLG  -  STATION  FLAGS  SEEN 
*•*  -  X.FLGI  -  NO  STATION  FLAGS  SEEN 

INPUTS: 

MRKFL  =  FLAGS  BYTE 

SLTNUM  =  CURRENT  SLT  NUMBER 

OUTPUTS: 

S.FLG  IN  STATION  TABLE  IS  UPDATED 


010244 
010244 
010250 
010252 
010256 
010260 
010264 
010266 
010272 
010274 
010276 
010300 
010304 
010312 
010320 
010326 
010330 
010336 
010336 


016731  OOOOOOG 

006301 

066701  OOOOOOG 

011101 

105761  000014 

001424 

016700  000036' 

006300 

006300 

060100 

062700  000022 

142760  000100  000000 

156760  000040'  000000 

032761  004000  000000 

001003 

142760  000100  000000 


X.FLG: 

MOV 

ASL 

ADD 

MOV 

rSTB 

BEQ 

MOV 

ASL 

ASL 

ADD 

ADD 

81 CB 

BJS8 

BIT 

BNE 

BICB 

10$: 

X.FLGI:  RETURN 


SLTNUM, R1 

Rl 

ISLTMA.Rl 

(R1),R1 

L.NSTA(Rl) 

10$ 

STAN,RO 

RO 

RO 

Rl.RO 

#L.MPF,RO 

*SF  cNA,S.FLG(RO) 

f'   L,S.FLG(RO) 

#1  r .MFL.L.FLGCRl) 

10$ 

#SF.ENA,S.FLG(RO) 


GET  THE  SLT  NUMBER 

CONVERT  TO  A  WORD  INDEX 

POINT  INTO  SLT  MAPPING  TABLE 

POINT  TO  SLT 

IS  THIS  LINE  A  SLAVE  LINE  ? 

IF  EQ,  YES 

GET  STATION  NUMBER 

CONVERT  TO  A  DOUBLE  WORD  INDEX 

GET  START  OF  STATION  TAulES 

CLEAR  SETTABLE  BITS 

SET  FLAG  BITS 

IS  THE  LINE  MARKED  FOR  LOAD  ? 

IF  NE,  YES  OKAY 

ELSE,  MAKE  SURE  WE  DON'T  ENABLE  LINE 
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3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 


012554 
012560 
012562 
012570 
012572 
012600 
012604 
012610 


012624 
012626 
012632 


005767  OOOOOOG 

0O1C22 

022767  077700  OOOOOOG 

103416 

016767  OOOOOOG  000042" 

005067  000044' 

012700  000046' 

010067  000056' 

000004 


000402 

062716  000002 


.SBTTL  ACTION  ROUTINE:  EVENT  CLASS  NUMBER  FOUND 

E.NUM  -  EVENT  CLASS  NUMBER  FOUND 

INPUTS: 

.PNUMB  -  EVENT  CLASS  NUMBER 

E . NUM : 


10$; 
20$: 


TST 

. PNUMH 

;  MUST  BE  WORD  VALUE 

BNE 

10$ 

;  BR  IF  NO 

CMP 

*77700,. PNUMB 

;  LEGAL  VALUE? 

BLO 

10$ 

;  BR  IF  NO 

MOV 

.PNUMB, CLASS 

;  STORE  CLASS 

CLR 

FLTFLG 

;  INITIALIZE  FILTER  FLAGS 

MOV 

#EVENT,RO 

;  POINT  TO  EVENT  MASKS 

MOV 

RO.STRADD 

;  SAVE  ADDRESS  OF  EVENT  MASKS 

.REPT 

4 

CLR 

(R0)  + 

;  INITIALIZE  EVENT  MASKS 

.ENDR 

BR 

20$ 

;  AND  EXIT 

ADD 

#2,(SP) 

;  REJECT  THE  TRANSITION 

RETURN 
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3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3815 
38U 
3815 
3816 
3817 
3818 

3819  0UU2 

3820  0KU6 

3821  01A152 
3822 

3823  01A156 

3824  014160 

3825  014164 

3826  014166 

3827  014174 
3828 

3829  014200 

3830 

3831 

3832 

3833 

3834 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842  014202 

3843  014210 

3844  014212 

3845  014216 

3846  014220 

3847  014224 

3848  014230 

3849  014232 

3850  014234 

3851  014240 

3852  014244 

3853  014252 

3854  014254 

3855  014260 
3856 

3857  014262 

3858  014270 
5859 

3860  014274 


.S8TTL  fIL$DF/SER$DF  ACTION  ROUTINES 

FILES  -  STORE  FILE  NAME  IN  FILBUF 
INPUTS  - 


012702  000222' 

116722  000204' 

016700  000552' 

112022 

005367  000204' 

001574 

012767  000266'  000554' 

005067  000204' 


OUTPUTS  - 


FILES;:  MOV 
M0V8 
MOV 


STRAD  - 
STRSIZ 


CURRENT  STRING  ADDRESS 
STRING  SIZE 


FILE  NAME  STORED  IN  FILBUF 


1$.- 


Move 

DEC 
BNE 
MOV 
CLR 

RETURN 


#F1LBUF,R2 
STRSIZ, (R2)t 
STRAD, RO 

(R0)+,(R2)t 

STRSIZ 

1$ 

#FN8UFF,STRPT 

STRSIZ 


GET  FILE  NAME  BUFFER  ADDRESS 
STORE  LENGTH  OF  STRING 
GET  ADDRESS  OF  STRING 

COPY  STRING  INTO  BUFFER 
COUNT  ONE  LESS  CHARACTER 
IF  MORE  -  BRANCH 
RESET  BUFFER  ADDRESS 
INIT  STRING  SIZE 


EXT  -  STORE  FILE  EXTENSION 

INPUTS  - 

STRAD  -  STRING  ADDRESS 
STRSIZ  -  STRING  SIZE 

OUTPUTS  - 

FILBUF  CONTAINS  FILE  EXTENSION 


022767 

000003 

000204'  EXT:: 

CMP 

#EXTN, STRSIZ 

100452 

BMI 

10$ 

016700 

000552' 

MOV 

STRAD,RO 

005002 

CLR 

"2 

116702 

000222' 

MOVS 

FJL8UF,R2      ; 

012701 

000222' 

MOV 

#F]L6UF,R1 

005201 

INC 

R1             ; 

060102 

ADD 

R1,R2 

112722 

000056 

MOVB 

#'.,(R2)t 

005267 

000222' 

INC 

FILBUF 

066767 

000204' 

000222' 

ADD 

STRSIZ, FILBUF 

112022 

5$: 

MOVB 

(R0)+,(R2)+ 

005367 

000204' 

DEC 

STRSIZ 

001574 

BNE 

5$ 

012767 

000266' 

000334' 

MOV 

#FN8UFF,STRPT 

005067 

000204' 

CLR 

STRSIZ 

CHECK  FOR  LEGAL  SIZE 

IF  TOO  LARGE  -  BRANCH 

GET  STRING  ADDRESS 

INIT  REG  FOR  FILENAME  SIZE 

GET  SIZE  OF  FILE  NAME 

GET  FILE  NAME  BUFFER  ADDRESS 

SKIP  SIZE  BYTE 

CALCULATE  STARTING  ADDR.  OF  EXTENSION 

INSERT  DOT 

BUMP  BYTE  COUNT 

ADJUST  FILE  NAME  SIZE 

COPY  FILE  EXTENSION 

COUNT  ONE  LESS  BYTE 

IF  MORE  -  BRANCH 

RESET  BUFFER  POINTER 
INIT  STRING  SIZE 


RETURN 
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A796 
4797 
4798 
A799 

4801 
4802 
4803 
4804 
4805 
4806 
4807 

'.aos 

4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4852 
4835 
4834 
4835 
4856 
4857 


017636 
017642 
017646 
017650 
017652 
017656 
017664 
017666 
017674 
017700 
017706 
017712 
017716 
017722 
017724 
017732 
017740 
017746 
017752 
017760 
017764 
017770 
017772 
020002 
020004 
020012 
020014 
020020 
020022 
020024 


004567 
116104 
005005 
010103 
062703 
152765 
001447 
012767 
005067 
012767 
005067 
005067 
005767 
001405 
052767 
116167 
116167 
110567 
016267 

005767 
100005 

000410 
142765 
005205 
062705 
005504 
005515 


OOOOOOG 
000014 


LDDLM: 


000022 

000040  000000  10$: 

000035  OOOOOOG 

OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

002000  OOOOOOG 

000012  000004G  20$: 

000015  000005G 

000006G 

000004     000002G 

OOOOOOG 


000040  000000  50$: 
000004 

40$: 


.SBTTL  REQUEST  NETLOADER  TO  LOAD  A  DLM  CIRCUIT 

•*-LDDLM-REQUEST  NETLOADER  TO  LOAD  A  DLM  CIRCUIT 

A  SYSTEM  LINE  TABLE  ENTRY  INDICATES  THAT  THE  DLM  CIRCUIT  SHOULD  BE 
LOADED  AT  SYSTEM  INITIALIZATION  TIME.  REQUEST  NETLOADER  TO  LOAD 
THE  CIRCUIT. 


INPUTS: 


JSR 

M0V8 

CLR 

MOV 

ADD 

BITS 

BEQ 

MOV 

CLR 

MOV 

CLR 

CLR 

TST 

BEQ 

BIS 

MOVS 

MOVB 

M0V8 

MOV 

CALL 

TST 

BPL 

NTIERR 

BR 

BICS 

INC 

ADD 

DEC 

BGT 

RETURN 


R1  -  POINTER  TO  SYSTEM  LINE  TABLE 
R2  -  DDH'S  PDV  ADDRESS 


R5,$SAVRG 

L.NSTA(R1),R4 

R5 

R1,R5 

*L.MPF,R3 

#SF.MFL,S.FLG(R5) 

30$ 

#LS.CIR,RQB*LR.STS 

$OPTON 

#CM$SET,$CMAND 

$QUAL 

TOPFLG 

TOPFLG 

20$ 

*LS.TOP,RQB+LR.STS 

L.CTL(R1),RQBtLR.CTL 

L.UNT(R1),RQB+LR.UNT 

R5,RQB+LR.TRI 

Z.NAM(R2),RQB+LR.LIN 

REQNTL 

RQB 

30$ 

51 

40$ 

#SF.MFL,S.FLG(R5) 

R5 

#S.LEN,R5 

R4 

10$ 


SAVE  R3-R5 

GET  NUMBER  OF  CIRCUITS 

INITIALIZE  COUNT 

POINT  TO  SLT 

POINT  TO  FIRST  CIRCUIT  IN  SLT 

LOAD  THIS  CIRCUIT? 

BR  IF  NO 

SET  FUNCTION  CODE 

LOAD  CIRCUIT  AND  NOTHING  ELSE 

THIS  IS  A  "SET"  OPERATION 

CLEAR  THE  QUALIFIERS 

TURN  OFF  TOP-DOWN  LOADING 

TOP-DOWN  LOADING? 

IF  EQ,  NO 

SET  TOP  DOWN  FLAG 

STORE  CONTROLLER  NUMBER 

STORE  UNIT  NUMBER 

STORE  STATION  NUMBER 

GET  NAME 

REQUEST  NETLOADER  TO  LOAD  PROCESSES 

TEST  FOR  ERROR 

BR  IF  SUCCESS 

FAILED  TO  LOAD  CIRCUIT 

EXIT 

CLEAR  MARKED-FOR-LOAD  BIT 

UPDATE  CIRCUIT  COUNT 

POINT  TO  NEXT  CIRCUIT 

MORE  CIRCUITS? 

BR  IF  YES 


I  16 
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MACRO  DEFINITIONS 

ERROR  MESSAGES 

$VNP  -  VIRTUAL  NCP  ENTRY  POINT 

SPANK  -  VNP  EXIT  AND  PANIC  EXIT  ROUTINE 

PROC  -  PROCESS  SPECIAL  REQUESTS 

PRLIN  -  SPECIAL  PROCESSING  FOR  LINES 

SVRQB  -  PROCESS  REQUESTS  FROM  VNCP 

PRCIR  -  SPECIAL  PROCESSING  FOR  CIRCUITS 

FUNCTION  CODE  DISPATCH  TABLE 

NXTLIN  -  GET  THE  NEXT  LINE  IN  THE  SVSTEM 

ECHO  -  ECHO  COMMANDS 

tSPRO  -  SET  PROCESS 

SSCIR  -  SET  CIRCUIT 

SSLIN  -  SET  LINE 

LDLIN  -  LOAD  A  LINE 


h-h 


s- 

SS 

ft- 

/H 

f- 

90 

8- 

IS^ 

9- 

Ifil 

10- 

^^,> 

11- 

?M 

V- 

^v 

1^- 

S92 

lA- 

46^ 

1S- 

49A 

16- 

SSft 

17- 

^?? 

IK- 

f.81 

19- 

/^6 
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392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 


425 
426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

001124 

436 

001126 

437 

001130 

438 

001132 

439 

001 134 

440 

001136 

441 

001140 

442 

001142 

443 

001144 

444 

C01146 

445 

001150 

446 

001152 

447 

001154 

448 

001156 

.SBTTL  FUNCTION  CODE  DISPATCH  TABLE 
DEFINED  FUNCTION  CODES: 


LS.CEX=1 

LS.PR0=2 

LS.LIN=3 

LX.CEX=4 

LX.PR0=5 

LX.LIN=6 

LS.LMC=7 

LS.TST=10 

LS.xn  =  11 

LS.HLP=12 

LS.NTI=13 

LS.N0D=14 

LX.N0D=15 

LS.ALI=16 

LX.ALI=17 

LS.L0G=20 

LX.L0G=21 

LS.OBJ=22 

LX.OBJ=23 

LD.CEX=24 

LD.LJN=25 

LD.PR0=26 

LD.N0D=27 

LD.ALI=30 

LD.L0G=31 

LD.OBJ=32 

LS.C]R=33 

LX.CJR=34 

LD,CIR=35 

STATUS  BITS  DEFINED  IN  HIGH  BYTE 

LS.0PT=400 
LS.ECH=1000 


"SET  CEX  (PART  OF  LS.NTD" 

"SET  PROCESS" 

"SET  LINE" 

CLEAR  CEX,PROCESSES,LINES... 

"CLEAR  PROCESS" 

"CLEAR  LINE" 

RELOAD  ALL  KMC  MICROCODE  (AFTER  POWERFAIL) 


TEST 


(  VNP  TEST  ROUTINES 
EXIT  FROM  VNP 
HELP 

"SET  SYSTEM" 
"SET  NODE" 
"CLEAR  NODE" 
"SET  ALIAS" 
"CLEAR  ALIAS" 
"SET  LOGGING" 
"CLEAR  LOGGING" 
"SET  OBJECT" 
"CLEAR  OBJECT" 
"SHOW  SYSTEM" 
"SHOW  LINE" 
"SHOW  PROCESS" 
"SHOW  NODE" 
"SHOW  ALIAS" 
"SHOW  LOGGING" 
"SHOW  OBJECT" 
"SET  CIRCUIT" 
"CLEAR  CIRCUIT" 
"SHOW  CIRCUIT" 


OPTIONAL  PARAMETERS  INCLUDED 
ECHO  THE  TEMPLATE 


TRANSFER  TABLE  USING  FUNCTION  CODE  AS  INDEX 


OOOOOOG 

001614' 

002236' 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000000 

OOOOOOG 

000130' 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 


FTAB: 


WORD 

SSCEX 

1  -  SET  CEX  (PART  OF  LS.NTD 

WORD 

$SPRO 

2  -  SET  PROCESS 

WORD 

$SLIN 

3  -  SET  LINE 

WORD 

$CCEX 

4  -  CLEAR  CEX 

WORD 

$CPRO 

5  -  CLEAR  PROCESS 

WORD 

SCLIN 

6  -  CLEAR  LINE 

WORD 

0 

7  -  RELOAD  KMC  MICROCODE  AFTER  POWERFAIL 

WORD 

SVTST 

10  -  VNP  TEST  ROUTINES 

WORD 

SPAN I C 

11  -  EXIT  FROM  VNP 

WORD 

SVHELP 

12  -  HELP 

WORD 

SVNTI 

13  -  SET  SYSTEM 

WORD 

SSNOD 

14  -  SET  NODE 

WORD 

SCNOD 

15  -  CLEAR  NODE 

WORD 

SVALI 

16  -  SET  ALIAS 

J     3, 
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AIC 

A$$CHK= 

At$CPS= 

A$$PRI= 

AS$TRP= 

CIRTAB 

CLEAR 

CL.OPN= 

CNER1 

C$$CKP= 

C$$ORE= 

Ct$RSH= 

D$$BUG= 

D$SISK= 

D$$L11= 

D$$yNC= 

D$$YNM= 

ECHO 

ECH2 

ECH3 

E$$XPR= 

FL.DDM= 

FL.DLC= 

FL.LLC= 

FL.PX1= 

FL.PX2= 

FTAB 

F$$LVL= 

F.RSIZ= 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

I$$RAR= 

I$SRDN= 

K$$CNT= 

K$$CSR= 

Ki$LDC= 

K$$rPS= 

LDLIN 

LDSLP  = 

LD.ALI= 

LD.CEX= 

LD.CIR= 

LD.L1N= 

LD.LDG= 

LD.MOD= 

LD.NOD= 

LD.OBJ= 

LD.PRO= 

LF.RDY= 

LINTAB 

LNER1 

LNER2 

LO.ADD 

LO.ADR 

LO.rLS 


002470R 

000000 

000000 

000000 

000000 

002174R 

00160^R 

*»♦**♦  GX 

000102R 

000000 

000400 

177564 

177514 

000000 

000001 

000000 

000000 

001250R 

001472R 

001546R 

000000 

«♦*•**  GX 

««*»*♦  GX 

»****♦  GX 

«♦*♦*»  GX 

»*«♦»«  GX 

001124R 

000001 

******  GX 

000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

002320R 

000000 

000030 

000024 

000035 

000025 

000031 

000037 

000027 

000032 

000026 

«■«♦•«♦  GX 

002312R 

000024R 

000052R 

000022 

000052 

000002 


LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LO.GRO 

LO.HOS 

LO.HTM 

LO.INA 

LO.INC 

LO.LDT 

LO.LID 

LO.LIN 

LO.LTM 

LO.MAC 

LO.MDE 

LO.NAM 

LO.NET= 

LO.NNM 

LO.OFL 

LO.ONM 

LO.OUT 

LO.OWN 

LO.PAR 

LO.PRI 

LO.RET 

LO.RPA 

LO.SCR 

LO.SEG 

LO.SKA 

LO.SKN 

LO.SNM 

LO.TPA 

L0.TR8 

LO.TRI 

LO.UNT 

LO.VCT 

LO.VER 

LR.ACC 

LR.ACO 

LR.ADD 

LR.ALI 

LR.BLK 

LR.CTL 

LR.DES 

LR.HLP 

LR.LIN 

LR.NAM 

LR.PAS 

LR.PRO 

LR.STS 

LR.TRI 

LR.TYP 

LR.UCB 


000006 
000010 
000020 
000010 
000032 
000002 
000047 
000004 
000024 
000040 
000032 
000062 
000060 
000046 
000030 
000004 
000034 
000022 
000024 
000044 
000002 
000022 
000012 
000004 
000056 
000026 
000010 
000012 
000064 
000030 
000016 
000054 
000014 
000014 
000035 
000020 
000034 
000030 
000033 
000014 
000042 
000020 
000052 
000012 
000002 
000010 
000004 
000010 
000002 
000002 
000012 
000041 
000002 
000000 
000006 
000002 
000016 


LR.UIC 

LR.UNT 

LS.ALI= 

LS.CEX= 

LS.CIR= 

LS.CX0= 

LS.CX5= 

LS.ECH= 

LS.FDX= 

LS.HDX= 

LS.HLP= 

LS.L]N= 

LS.LMC= 

LS.LOG= 

LS.MOD= 

LS.NOD= 

LS.NT]= 

LS.08J= 

LS.OPT= 

LS.PRO= 

LS.TOP= 

LS.TST= 

LS.UNF= 

LS.X]T= 

LX.ALI= 

LX.CEX= 

LX.C1R= 

LX.LIN= 

LX.L0G= 

LX.NOD^ 

LX.08J= 

LX.PRC= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.CTL  = 

L.DDM  = 

L.FLG  = 

L.NSrA= 

L.UNT  = 

MS.CJR= 

MS.EXT= 

MS.INC= 

M$$CRB= 

M$ICRX= 

M$$FCS= 

M$$M6E= 

M$$NEr= 

M$$0VR= 

NXTLIN 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

IJ$$M0V= 


000020 

N$$NCT= 

000001 

OP$SIN= 

000010 

000005 

N$$PEM= 

000001 

0PSSTA= 

000004 

000016 

0F$INS= 

000001 

OP$TPA= 

000020 

000001 

0F$L0G= 

000100 

OP$TRI= 

000040 

000033 

OFSOFF^ 

000002 

OP$UCS= 

000020 

010000 

OF  SON  = 

000000 

OP$USE= 

000002 

000400 

OF$SMC= 

000200 

OP$VEC= 

000040 

001000 

ONOFF 

001566R 

OP$VER= 

000040 

004000 

OPiADD= 

000200 

OP$XAC= 

000001 

010000 

OP$ALL= 

000200 

OP$XPR= 

000002 

000012 

OP$CCS= 

000004 

0P$X5S= 

000004 

000003 

OPSCIE= 

004000 

0P$X9S= 

000010 

000007 

CP$CON= 

000400 

PRCIR 

000652R 

000020 

OP$COP= 

000001 

PR  I 

001612R 

000036 

OP$COS= 

000100 

PRLIN 

000202R 

000014 

OPSDST= 

000200 

PROC 

000134R 

000013 

OPSDTE= 

000040 

PRTBL 

000164R 

000022 

OP$DUP= 

000002 

P$$P45= 

000000 

000400 

OP$EST= 

000100 

P$$URD= 

000000 

000002 

OP$EVE= 

010000 

P.REL  = 

****** 

GX 

002000 

OPSFIL= 

000200 

QF$ACT= 

000001 

000010 

OPSGRP= 

000100 

QF$ALL= 

000002 

020000 

OP$HOS= 

000001 

QF$KNO= 

000004 

000011 

OP$HTM= 

000002 

QF$LOO= 

000010 

000017 

OPSINA= 

004000 

Q$$OPT= 

000010 

000004 

OP$INC= 

001000 

RQB   = 

****** 

GX 

000034 

OPSKDS= 

002000 

R$$DER= 

000000 

000006 

OPSKDT= 

000400 

R$$K11= 

000001 

000021 

OP$KEV= 

001000 

R$$SND= 

000000 

000015 

OP$KGR= 

001000 

R$$11M= 

000000 

000023 

OP$KNT= 

010000 

SO 

001572R 

000005 

OPSKSK= 

002000 

SET 

001600R 

000000 

OP$LCT= 

000200 

SYSFDB= 

****** 

GX 

000000 

OPSLNE= 

000040 

S$$WRG= 

000000 

000001 

OPSLOC= 

000001 

S$$YSZ= 

007600 

000000 

OP$LST= 

000002 

TY$CHA= 

000400 

******  GX 

OP$LTM= 

000001 

rY$EVE= 

001000 

******  GX 

OPSLVL= 

000010 

TY$STA= 

002000 

******  GX 

OP$MAC= 

000010 

TY$SUM= 

000000 

******  GX 

OPSMCO= 

000002 

T$$KMG= 

000000 

******  GX 

OP$MDE= 

000400 

T$$MIN= 

000000 

******   GX 

CPSMLI= 

000004 

UNS1 

000650R 

******  GX 

OP$MON= 

000100 

VF.ECH= 

****** 

GX 

******  GX 

OP$MST= 

000020 

VF.NTI= 

****** 

GX 

000124 

OP$NAM= 

000004 

V$$CTR= 

001000 

000000 

OP$NET= 

004000 

WC.CNT= 

000400 

000000 

OPSNLI= 

000002 

WC.EVE= 

004000 

000000 

OP$NOD= 

000020 

WC.TRI= 

002000 

000000 

OP$OUT= 

002000 

WC.UNT= 

001000 

000000 

OP$OUN= 

000020 

X$$DBT= 

000000 

001222R 

OP$PAR= 

000010 

ZF.MFL= 

****** 

GX 

000001 

OPSPRI= 

000010 

ZF.PSE= 

****** 

GX 

000001 

OPSRET= 

010000 

Z.FLG  = 

****** 

GX 

000001 

OP$RPA= 

000010 

Z.NAM  = 

****** 

GX 

000001 

OP$SCO= 

000001 

Z.PCB  = 

****** 

GX 

000001 

OP$SEG= 

000400 

$ALADJ= 

****** 

GX 

000010 

OP$SER= 

000400 

$ALECL= 

****** 

GX 
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AS.DEL= 

AS.EXT= 

AS.RED= 

AS.URT= 

A$$CHK= 

A$$CPS= 

A$$PftI= 

A$$TRP= 

A.  IOC 

A.LGTH= 

A.MPCT 

A.PCB 

A.PCBL 

A.PRI 

A.STAT 

A.TCB 

A.TCBL 

C$$CKP= 

C$$ORE= 

C$$RSH= 

DV.CCL= 

DV.COM= 

DV.[)IR= 

DV.EXT= 

0V.F11= 

DV.ISP= 

DV.MBC= 

DV.MNT= 

DV.MSD= 

DV.OSP= 

DV.PSE= 

DV.REC^ 

DV.SDI= 

DV.SQD= 

DV.SWL= 

DV.TTY= 

DV.UMD= 

D$$BUG= 

OSSISKn 

D$$L11= 

D$$YNC= 

D$$YNM= 

D.DSP 

D.LNK 

D.MSK 

D.NAM 

D.PCB 

D.UCB 

D.UCBL 

D.UNIT 

D.VCAN= 

D.VDEB= 

D.VIN1= 

O.VOUT= 

D.VPWF= 

E$$XPR= 

F$$LVL- 


000010 
000004 
000001 
000002 
000000 
000000 
000000 
000000 
000003 

oooou 

000011 

000012 

000000 

000002 

000010 

OOOOOA 

000006 

000000 

000400 

177564 

000002 

020000 

000010 

OOOAOO 

040000 

002000 

000400 

100000 

000100 

004000 

010000 

000001 

000020 

000040 

001000 

000004 

000200 

177514 

000000 

000001 

000000 

oooooc 

000012 
000000 
000014 
000004 
000034 
000002 
000010 
000006 
000002 
177776 
000000 
000004 
000006 
000000 
00000 1 


G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRO= 

I$$RAR= 

I$$RDN= 

K$$CNT= 

K$$CSR= 

K$$LDC= 

K$$TPS= 

LB$REV= 

LD$ACC= 

LD$CLS= 

LD$LP  = 

LD$REL= 

LD$RSV= 

LD$SUP= 

LSBASG 

LIBBLK 

LSBDAT 

LSBEXT 

LSBFLG 

L$BFL2 

LSBHGV 

LSBHRB 

LSBLDZ 

LSBLIB 

LSBLRL 

LSBLUN 

LSBMXV 

LSBMXZ 

LSBOFF 

LSBPAR 

LSBPRI 

LSBROB 

LSBROL 

LSBSA 

LSBSEG 

LSBSGL 

L$BSYS 

LSBTSK 

LSBWND 

LSBXFR 

L$$ASG= 

L$SDRV= 

L$$P11= 

L$$11R= 

M$$CRS= 

M$$CRX= 

M$$FCS= 

M$$MGE= 

M$$NET= 

M$$OVR= 

M.BFVH 

M.BFVL 

M.LGTH= 

M.LNK 


000000 

000000 

000000 

000000 

000000 

000000 

177546 

177546 

000000 

000074 

000400 

100000 

020000 

000000 

000004 

040000 

000010 

001000 

000360  G 

000032 

000352  G 

000030  G 

000774 

000012 

000356  G 

000016  G 

000040 

000776 

000362 

000014 

000020  G 

000022 

000004  G 

000346 

000364 

000366 

000010  G 

000026 

000354 

000025 

000000 

000024 

000350  G 

000000 

000000 

000001 

000000 

000124 

000000 

000000 

000000 

000000 

000000 

000011 

000012 

000014 

000000 


M.UMRA 

M.UMRN 

M.UHVH 

M.UMVL 

N$$ACC= 

N$$BUF= 

N$$LDV= 

N$$MCP= 

N$$MLL= 

N$$MOV= 

N$$NCT= 

N$$PEM= 

PS.APR= 

PS.CHK= 

PS.CKP= 

PS.CKR= 

PS.C0M= 

PS.DEL= 

PS.DRV= 

PS.FXD= 

PS.LIO= 

PS.NSF= 

PS.OUT= 

PS.PER= 

PS.PIC= 

PS.SYS= 

P$$P45= 

P$$WRD= 

P.8LKS 

P. BUSY 

P. IOC 

P.LNK 

P. MAIN 

P.NAM 

P.  OWN 

P.PRI 

P.f!EL 

P. SIZE 

P.STAT 

P.  SUB 

P.SWSZ 

P.TCB 

P. WAIT 

Q$$OPT= 

RSLDAT 

RSLFLG 

RSLHGV 

RSLLDZ 

RSLMXV 

RSLMXZ 

RSLNAM 

RSLOFF 

R$LSA 

RSLSEG 

RSLSIZ 

RSLWND 

R$$DER= 


000002 

000004 

000010 

000006 

000001 

000001 

000001 

000001 

000001 

000010 

000001 

000001 

000007 

010000 

040000 

020000 

000200 

000010 

000020 

004000 

001000 

000400 

100000 

002000 

000100 

000040 

000000 

000000 

000016 

000024 

000003 

000000 

000012 

000004 

000026 

000002 

000014 

000016 

000030 

000010 

000022 

000026 

000020 

000010 

000026 

000024 

000006 

000012 

000010 

000014 

000000 

000016 

000004 

000022 

000034 

000020 

000000 


R$$K11= 

R$$SND= 

R$$11M= 

SPARE  = 

SP.EIP= 

SP.ENB= 

SP.L0G= 

SSSWRG-^ 

S$$YSZ= 

S.BMSK 

S.BMSV 

S.CON 

S.CSR 

S.CTM 

S.DMCS 

S.FRK 

S.JTM 


LHD 
S.PKT 
S.PRI 
S.RCNT 
S.ROFF 
S.STS 
S.VCT 
S1.DEC= 
S1.DPR= 
S1.DSI= 
S1.ESC= 
S1.IBF= 
S1.IBY= 
S1.0BY= 
S1.PTH= 
S1.RES= 
S1.RNE= 
S1.RNF= 
S1.RSP= 
S1.RST= 
S1.TNE= 
S1.TSY= 
S1.USI= 
S2.BEL= 
S2.BRQ= 
S2.CR  = 
S2.CT0= 
52.CTS= 
S2.ELF= 
S2.FLF= 
S2.IRQ= 
S2.0BF= 
S2.0RQ= 
S2.PCU= 
S2.RCU= 
S2.SRQ= 
S2.WAL= 
S2.WRA= 
S2.URB= 
S3.ACR= 


000001 

000000 

000000 

000010 

000001 

000002 

000004 

000000 

007600 

177776 

177774 

000010  ( 

000012 

000006 

000020 

000016 

000007 

000000  I 

000014 

000004 

177772 

177773 

000011 

000005 

001000 

000400 

004000 

000002 

002000 

000200 

000100 

000010 

010000 

000020 

020000 

000004 

000001 

040000 

000040 

100000 

020000 

000020 

002000 

040000 

100000 

001000 

000400 

000200 

004000 

000100 

010000 

000001 

000040 

000010 

000006 

000002 

000001 


S3.CTC= 
S3.FDX= 
S3.ICE= 
S3.MHE= 
S3.NEC= 
S3.PPT= 
S3.PTH= 
S3.RAL= 
$3.RES= 
S3.RUB= 
S3.TAB= 
S3.TME= 
S3.TSY= 
S3.8BC= 
S4.ABD= 
S4.ANI= 
S4.AV0= 
S4.BLK= 
S4.DEC= 
S4.DL0= 
S4.EDT= 
S4.HFF= 
S4.HFL= 
S4.HHT= 
S4.HSY= 
S4.RGS= 
S4.SFC= 
S4.VFL= 
S5.ABP= 
S5.BCC= 
S5.DA0= 
S5.HPC= 
S5.HP0= 
S5.ITI= 
S5.0XF= 
S5.RP0= 
S5.SW1= 
S5.TMM= 
S5.VER= 
S5.X0F= 
S5.X0N= 
S6.EI0= 
S6.RDI= 
S6.RLU= 
TS$ACP= 
TS$CHK= 
TS$CMP= 
TS$IOP= 
TS$NEW= 
TS$NHD= 
TS$NSD= 
TS$NXH= 
TS$PIC= 
TS$PMD= 
TS$PRV= 
TS$RES= 
TS$SLV= 


000004 

000200 

001000 

000400 

000020 

020000 

004000 

000010 

010000 

040000 

000002 

002000 

000040 

000100 

100000 

000400 

001000 

002000 

004000 

000100 

010000 

000020 

000007 

000040 

000200 

020000 

040000 

000010 

100000 

020000 

040000 

000014 

000020 

000100 

000040 

002000 

000001 

000002 

010000 

000004 

000010 

000400 

100000 

001000 

020000 

000100 

000200 

000020 

000001 

040000  G 

002000 

000002 

100000 

010000 

000400 

000040 

004000 


VNSD 
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NETWORK    INITIALIZATION  COLD   START 

263 
264 
265 

266  000124 

267  000132 

268  000140 

269  000146 

270  000150 

271  000154 

272  000160 

273  000162 

274  000170 

275  000172 

276  000200 
277 

278  000202 

279  000206 

280  000210 

281  000214 

282  000220 

283  000222 

284  000224 

285  000230 

286  000234 

287  000240 

288  000250 

289  000256 

290  000262 

291  000264 

292  000272 

293  000276 

294  000302 

295  000310 
296 

297  000314 

298  000322 

299  000326 

300  000332 

301  000334 

302  000340 

303  000344 

304  000350 

305  000354 
306 
307 
308 
309 

310  000360 

311  000362 
312 
313 
314 
315 
316 

317  000364 
318 
319 
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';  FIND  SPECIFIED  PARTITION 

016767 

OOOOOOG 

OOOOOOG 

H: 

MOV 

$PARHD,$BFR 

ADDRESS  OF  PARTITION  LISTHEAD 

016767 

OOOOOOG 

OOOOOOG 

MOV 

.PLGTH,$RSIZE 

^ 

SET  SIZE  OF  TRANSFERS 

016767 

OOOOOOG 

OOOOOOG 

10$: 

MOV 

$BFR,$RADDR 

^ 

SET  ADDRESS  OF  NEXT  PCB 

001504 

BEO 
GETRV 

30$ 

■ 

IF  EQ,  NO  MORE  PARTITIONS. 
GET  PCB  INTO  DEFAULT  BUFFER 

026710 

000004G 

CMP 

P.NAM+$BFR,(R0) 

FIRST  HALF  MATCH  ? 

001367 

BNE 

10$ 

NOPE 

026760 

000006G 

000002 

CMP 

P.NAM+2+$BFR,2(R0) 

SECOND  HALF  MATCH  ? 

001363 
032767 

000200 

000030G 

BNE 
BIT 

10$ 
#PS.COH,P.STAT^ 

$BFR 

NOPE 

IS  THIS  A  COMMON  PARTITION  ? 

001757 

BEQ 

10$ 

NO  ??? 

105767 

000025G 

TSTB 

P.8USYtl+$BFR 

PARTITION  BUSY  ? 

001064 

BNE 

30$ 

YES 

016702 

OOOOOOG 

MOV 

$RADDR,R2 

SAVE  PCB  ADDRESS 

016703 

00001 2G 

MOV 

P.MAIN+$BFR,R3 

GET  MAIN  PCB  ADDRESS 

020203 

CMP 

R2,R3 

ARE  THEY  THE  SAME? 

001434 

BEQ 

20i 

IF  EQ,  YES  -  NO  MAIN  PCB  WORK  TO  DO 

012704 

OOOOOOG 

MOV 

#$BFR,R4 

POINT  JUST  PAST  THE  PCB 

066704 

OOOOOOG 

ADD 

SWTCHI 

GETRV 

SWTCHI 

TSTB 

.PLGTH,R4 

R4 

R3 

READ  In'tHE  MAIN  PCB 

105764 

000025 

P.BUSY+1 (R4) 

IS  MAIn'pCB  BUSY? 

001036 

BNE 

30$ 

IF  NE,  YES 

156764 

000024G 

000025 

BISB 

P.BUSYt$BFR,P.6USY+ 

(R4) 

;  SET  MAIN  PCB  BUSY 

SWTCHO 

R4 

RE-WRITE  MAIN  PCB 

PUTRC 

SWTCHO 

010267 

OOOOOOG 

MOV 

R2,$RADDR 

RESTORE  PCB  ADDRESS 

156767 

000024G 

000025G 

20$: 

BISB 

P.8USYt$BFR,P.8USY+ 

+$BFR  ;  SETIT  BUSY 

PUTRC 

•  REWRITE  PCB 

012702 

OOOOOOG 

MOV 

#$BFR,R2 

•  GET  BUFFER  ADDRESS 

010203 

MOV 

R2,R3 

•  COPY  IT 

062702 

000014 

ADD 

#P.REL,R2 

■  POINT  AT  RELOCATION  BIAS 

011267 

OOOOOOG 

MOV 

(R2),PSTART 

;  COPY  POOL  STARTING  BLOCK  NUMBER 

062703 

000016 

ADD 

#P.SIZE,R3 

;  POINT  AT  P.BLKS/P.SIZE  FIELD 

011367 

OOOOOOG 

MOV 

(R3),PBL0X 

;  COPY  POOL  SIZE  IN  BLOCKS 

016701 

OOOOOOG 

MOV 

$RADDR,R1 

;  LOAD  ADDRESS  OF  POOL  PARTITION 

;  IF 

Rl  EQ  0  - 

PARTITION  NAME 

DOES 

NOT 

EXIST 

;  IF 

R1  NE  0  - 

PARTITION  CONTROL  BLOCK 

ADDRESS 

005701 

^0$: 

TST 

Rl 

;  GET  PCB  ADDRESS  ? 

001002 

BNE 

110$ 

;  YES 

.ENDC 
CREATE  A  NEW  SUBPARTITION 
^5$:    CALL    SCRPAR 
;  COMMON  PATH 


DYNAMICALLY  CREATE  PARTITION 
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RETURN  DOUBLE-WORD  ADDRESS  OF  NEXT  FREE  BUFFER 


7 

46 


Page  15 


892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908  003132 

909  003132 

010046 

910  003134 

060305 

911  003136 

010500 

912  003140 

042705  177700 

913  003144 

052705  140000 

914  003150 

042700  160000 

915  003154 

006200 

916  003156 

006200 

917  003160 

006200 

918  003162 

006200 

919  003164 

006200 

920  003166 

006200 

921  003170 

000241 

922  003172 

060004 

923  003174 

012600 

924  003176 

.S8TTL  RETURN  DOUBLE-WORD  ADDRESS  OF  NEXT  FREE  BUFFER 
»*-$GT8UF       -  RETURN  ADDRESS  OF  NEXT  BUFFER  IN  POOL 


INPUTS: 

R3  -  NUMBER  OF   BYTES   NEEDED    (    EVEN   ) 

R4  -  OLD  BIAS 

R5  -  OLD  VIRTUAL  ADDRESS 

OUTPUTS: 

R4  -  NEW  BIAS 

R5  -  NEW  VIRTUAL  ADDRESS 

OTHER  REGISTERS  UNCHANGED 


SGTBUF: 


MOV 

RO,-(SP) 

ADD 

R3,R5 

MOV 

R5,fiO 

BIC 

#»C<77>,R5 

BIS 

#. BASES, R5 

BIC 

#160000, RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

ASR 

RO 

CLC 

ADD 

R0,R4 

MOV 

(SP)+,RO 

SAVE  RO 

ADD  BUFFER  SIZE  TO  VIRTUAL  ADDRESS 

SAVE  NUMBER 

GET  NEW  VIRTUAL  ADDRESS 

FORCE  PAR3  BIAS  IN  CASE  BUF  >  4K 

CLEAR  MAPPING  BIAS  BITS 

H   OF  FULL  32-WORD  BLOCKS  IN  BUFFER 


NEW  BIAS 
RESTORE  RO 


RETURN 


VNTI 
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1382 

138"5  004072 

1384  004076 

1385  004100 

1386  004104 

1387  004110 

1388  004114 

1389  004120 

1390  004124 

1391  004130 
1392 

1393 
1394 

1395  004146 

1396  004152 
1397 

1398  004156 

1399  004162 

1400  004166 

1401  004170 

1402  004174 

1403  004200 

1404  004204 

1405  004206 
1406 

1407 
1408 
1409 
1410 

1411  004224 

1412  004230 
1413 

1414 

1415  004234 

1416  004240 

1417  004244 

1418  004250 

1419  004254 
1420 

1421 
1422 
1423 
1424 

1425  004274 

1426  004300 
1427 

1428  004304 

1429  004310 

1430  004314 

1431  004320 

1432  004324 
1433 

1434 
1435 
1436 
1437 
1438  004344 


016700 
005200 
066700 
066700 
012701 

062701 
042701 
000241 
000006 


060167 
060167 

016700 
066700 
006300 
062700 
062700 
042700 
006300 
000241 

000006 


000104' 

000066' 
000106' 
000010 

000176 
000077 


OOOOOOG 
OOOOOOG 

000074' 
000076' 

000010 
000077 
000077 


060067  OOOOOOG 
060067  OOOOOOG 


016700  000066' 

012701  000046 

062701  000077 

042701  000077 

000006 


060167  OOOOOOG 

060167  OOOOOOG 

016700  000070' 

012701  000124 

062701  000077 

042701  000077 

000006 


010167  OOOOOOG 


10$: 


MOV 

RAD.RO 

INC 
ADD 
A)D 

RO 

XPTLLN.RO 
NBEAJ.RO 

MOV 

#<2«A$LEN> 

CALL 

$MUL 

ADD 

#176, R1 

BIG 

#77, R1 

CLC 

.REPT 

6 

ASR 

R1 

.ENDM 

ADD 

R1,N0NMAP 

ADD 

R1,NTPSIZ 

MOV 

NN,RO 

A>D 

NA,RO 

ASL 
ADD 

RO 

#10, RO 

ADD 

#77, RO 

BIC 

#77, RO 

ASL 

RO 

CLC 

.REPT 

6 

ASR 

RO 

.ENDM 

ADD 

RO,NONMAP 

ADD 

RO,NTPSIZ 

MOV 

XPTLLN,RO 

MOV 

#T$LLEN,R1 

CALL 

$MUL 

ADD 

#77, R1 

BIC 

#77, R1 

.REPT 

6 

ASR 

Rl 

.ENDM 

ADD 

R1,N0NMAP 

ADD 

R1,NTPSIZ 

MOV 

ECLLLN,RO 

MOV 

#L.LNG,R1 

CALL 

$MUL 

ADD 

#77, Rl 

BIC 

#77, Rl 

.REPT 

6 

ASR 

Rl 

.ENHM 

MOV 

Rl,. ALLOC 

STORE  BROADCAST  ROUTER  ADJACENCIES 

INCLUDE  LOOPBACK  CHANNEL 

INCLUDE  NUMBER  OF  CIRCUITS 

INCLUDE  BROADCAST  ENDNODE  ADJACENCIES 

STORE  LENGTH  PER  ADJACENCY 

CLACULATE  TOTAL  SIZE 

ROUND  UP  TWO  BLOCKS 


CONVERT  TO  BLOCKS 

ADJUST  NON  UMR  POOL..  SIZE 
ADJUST  TOTAL  POOL  SIZE 

COPY  MAX  NODES 
GET  TOTAL  ROL  ENTRIES 
CONVERT  TO  BYTES 
ALLOW  FOR  ZERO  OFFSET 
ROUND  UP  TO  NEXT  BLOCK 

ALLOCATE  MIN  HOP/COST  MATRIX 
CLEAR  C-BIT 


CALCULATE  NUMBER  OF  BLOCKS 


ALLOCATE  SOME  NON  UMR  MAPPED  POOL. 
UPDATE  POOL  SIZE 


COPY  NUMBER  OF  CIRCUITS 
STORE  CONTER  BLOCK  SIZE 
CALCULATE  TOTAL 
ROUND  UP  TO  NEXT  BLOCK 


CONVERT  TO  BLOCKS 


ALLOCATE  NON  UMR  BLOCK  POOL 
UPDATE  TOTAL  POOL  SIZE 

COPY  MAX  LOGICAL  LINKS 
STORE  LOGICAL  LINK  SIZE 
CALCULATE  TOTAL 
ROUND  UP  TO  NEXT  BLOCK 


CONVERT  TO  BLOCKS 

ALLOCATE  BLOCKS  OF  BYTE  POOL. 
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1878 

1879 

1880 

1881 

1882 

1883 

1884  006324 

1885 

1886 

1887 

1888 

1889 

1890  006324 

1891  006324 

1892  006324 

1893  006324 

1894  006324 

1895  006324 

1896  006324 

1897  006324 

1898  006324 

1899  006324 

1900  006324 

1901  006324 

1902  006324 

1903  006324 

1904  006324 

1905  006324 

1906  006324 

1907  006324 

1908  006324 

1909  006324 


.SBTTL  STATE  TRANSITION  TABLES  FOR  PARSING 

THE  FOLLOWING  STATE  TRANSITION  TABLES  DEFINE  THE  SYNTAX  FOR 
PARSING  THE  CONFIGURATION  FILE. 


ISTATS  ISTATE,KWORD 

IN  THE  INITIAL  STATE  WE  IGNORE  LINES  BEGINNING  WITH 


STATES 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 
TRANS 

STATES 


<';>,SEXIT 

xsufsdfx.bufdf, 
xllcsdfx.prodf, 
xdlcsdfz.prodf, 
jiddmsdfx.prodf, 
xstasdfx,stadf, 
xsltsdfx.sltdf, 
xaddsdfx.adddf, 
j!n0dsdf3!,n0ddf, 
5;08jsdfx,objdf, 
xevtsdfx.evtdf, 
xlog$stx,logst, 
xremsdfx.remdf, 
5;rousdfx,roudf, 

5iSERSDFX,SERDF 
XFILSDFX,FILDF 
XDECSDFX.DECDF 
SLAMDA,SEXIT 


.BUFDF 

,MC.LLC,MACTYP 

,MC.DLC,MACTYP 

,MC.1)DM,MACTYP 

.STADF,MC.STA,MACTYP 

.SLTDF,HC.SLT,MACTYP 

,MC.ADD,MACTYP 

,MC.N0D,MACTYP 

,MC.OBJ,mCTYP 

,MC.EVT,MACTYP 

,MC.LOG,MACTYP 

,HC.REM,MACTYP 

,MC.ROU,MACTYP 
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2246 

2247 

2248 

2249 

2250 

2251 

2252 

2255 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 


006324 
006324 
006324 
006324 
006324 
0063^4 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 
006324 


.SBTTL  ROUSDF  PARSE  TABLES 

STATE  TRANSITIONS  FOR  THE  'ROUSDF'  MACRO 


STATES 

ROUDF 

TRANS 

SNUMBR , 

, .RADDR 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SNUMBR , 

,.RCOST 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMBR , 

, .RHOP 

STATES 

THANS 

<',> 

STATES 

TRANS 

SNUMBR 

,,.RRTM 

STATES 

TRANS 

<'  .> 

STATES 

TRANS 

SNUMBR , 

, .RMAXA 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMBR, 

,.RBEA 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMBR, 

, .RAMXH 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SNUMBR, 

,.RAMXC 

STATES 

TRANS 

<'  ,> 

STAVES 

TRANS 

SNUMBR, 

SEXIT,.R8TM 

STATES 
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26K 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622  006500 

262?  00650A 

2624  006506 

2625  006512 

2626  006516 


016700 
010701 

010^67 


OOOOOOG 
OOOOOOG 


.SBTTL  ACTION  ROUTINE;  PROCESS  NAME  FOUND 

•*-.PRONM-PROCESS  NAME  FOUND 

A  STATE  TRANSITION  HAS  JUST  PARSED  A  PROCESS  NAME, 
TO  A  16-8IT  RAD50  VALUE. 


CONVERT  IT 


PRONM:  MOV 

.PSTPT.RO 

MOV 

PCRI 

CALL 

$CAT5 

MOV 

RI.PDVNAM 

RETURN 

POINT  TO  THE  PROCESS  NAME 

ALLOW  '.'  AS  A  RAD50  CHARACTER 

CONVERT  NAME  TO  RAD50 

SAVE  PROCESS  NAME  FOR  LATER 
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ACTION  ROUTINE;  STATION  FLAGS  SEEN 
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02:4 
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5009 
3010 
3011 
3012 
3013 
30K 

3015  010340 

3016  010344 

3017  010346 

3018  010366 

3019  010374 

3020  010402 

3021  010406 
3022 

3023  010410 
3024 

3025  010420 

3026  010424 

3027  010426 

3028  010446 

3029  010454 

3030  010462 

3031  010466 
3032 

3033  010470 
3034 

3035  010500 

3036  010504 

3037  010506 

3038  010526 

3039  010534 

3040  010'.  40 
3041 

3042  010542 
3043 

3044  010552 

3045  010556 

3046  010560 

3047  010600 

3048  010606 

3049  010612 
3050 

3051 

3052  010614 

3053 

3054  010624 

3055  010630 

3056  010632 

3057  010652 

3058  010660 

3059  010664 
3060 

3061  010666 
3062 

3065  010676 
3064  010702 
5065  010704 


STORE   MAX  LOGICAL   LINKS  AND  NODE   C    .NTER   VALUES 


105767 
001021 

156767 
016767 


105767 
001021 

156767 
016767 


105767 
001016 


000001 G 


OOOOOOG  000040G 
OOOOOOG  OOOOOOG 


ECLLNK:TST8 
BNE 
GETRV 
BISB 
MOV 
PUTRC 
RETURN 


000001 G 


101$: 
NODCT: 


OOOOOOG  00004 IG 
OOOOOOG  OOOOOOG 


OOOOOIG 


INCT: 


156767  OOOOOOG  000042G 


105767  OOOOOIG 
001016 

156767  OOOOOOG  000045G 


101$: 
OUTT: 


OOOOOIG 
156767  OOOOOOG  000044G 


105767 
001016 


105767 
001016 


OOOOOIG 


101$: 
INAC: 


101$: 
DELF: 


.PNUM8+1       ;  >  255.  ? 

101$  ;  IF  YES  -  BRANCH 

$DECPT,#D$END   ;  GET  DECNET  HOME  BLOCK  ADDRESS 

.PNUMB,D$MLL+$BFR  ;  STORE  MAX  LINKS  IN  HOME  BLOCK 

.PNUMB,$$LINX   ;  ... 

;  UPDATE  HOME  BLOCK 


NTIERR  34 


TST6 

BNE 

GETRV 

BISB 

MOV 

PUTRC 

RETURN 


TST8 

BNE 

GETRV 


ILLEGAL  MAX  LOGICA  LINKS  VALUE 


.PNUMB+1       ;  >  255.  ? 

101$  ;  IF  YES  -  BRANCH 

$DECPT,#D$END   ;  GET  DECNET  HOME  BLOCK  ADDRESS 

.PNUMB,D$MNOD+$BFR  ;  STORE  MAX  NODE  COUNTERS  IN  HOME  BLOCK 

.PNUMB,$$NODC   ;  ... 

;  UPDATE  HOME  BLOCK 


101$:   NTIERR  35 


ILLEGAL  MAX  NODE  COUNTERS  VALUE 


TSTB 

BNE 

GETRV 

BISB 

PUTRC 

RETURN 


NTIERR  42 


TSTB 

BNE 

GETRV 

BISB 

PUTRC 

RETURN 


.PNUMB+1       ;  >  255.  ? 
101$  ;  IF  YES  -  BRANCH 

$DECPT,#D$END   ;  GET  DECNET  HOME  BLOCK  ADDRESS 
.PNUMB,D$INCT+$BFR  ;  STORE  INCOMING  TIMER  VALUE 
;  UPDATE  HOME  BLOCK 


;  ILLEGAL  INCOMING  TIMER  VALUE 

.PNUMBtl       ;  >  255.  ? 
101$  ;  IF  YES  -  BRANCH 

$DECPT,#D$END   ;  GET  DECNET  HOME  BLOCK  ADDRESS 
.PNUMB,D$OUTT+$BFR  ;  STORE  OUTGOING  TIMER  VALUE 
;  UPDATE  HOME  BLOCK 


NTIERR  43 


ILLEGAL  OUTGOING  TIMER 


TSTB 

BNE 

GETRV 

BISB 

PUTRC 

RETURN 


NTIERR  44 


.PNUMB+1       ;  >  255.  ? 
101$  ;  IF  YES  -  BRANCH 

$DECPT,#D$END   ;  GF^  HOME  BLOCK  ADDRESS 
.PNUMB,D$!NAC+$8FR  ;  STORE  INACTIVITY  TIMER 
;  UPDATE  HOME  BLOCK 


.PNUMB+I 

101$ 

$DECPT,#D$END 


ILLEGAL  INACTIVITY  TIMER 

>  255.  ? 

IF  YES  -  BRANCH 

GET  HOME  BLOCK  ADDRESS 
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ACTION  ROUTINE:  EVENT  TYPE  MASK  SEEN 
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11,^1 

3456 
3A57 
3458 
3459 
3460 
346T 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 


012634 
012640 
012642 
012650 
012652 
012660 
012666 
012670 
012674 


005767 
001C13 
022767 
001407 
016777 
062767 
000402 
062716 


OOOOOOG 

000056'  000056' 

OOOOOOG  000056" 
000002  000056' 

000002 


.SBTTL  ACTION  ROUTINE:  EVENT  TYPE  MASK  SEEN 

E.MSK  -  EVENT  TYPE  MASK  SEEN 

INPUTS: 

.PNUMB  -  EVENT  TYPE  MASK 


E.MSK: 

1ST 

BNE 

CMP 

BEQ 

MOV 

ADD 

BR 

10$: 

ADD 

20$: 

RETURN 

. PNUMH 

10$ 

#EVENTt10,STRADD 

10$ 

.PNUMB,aSTRADD 

#2,STRADD 

20i 

#2,(SP) 


MUST  BE  WORD  VALUE 

BR  IF  NO 

MORE  THAN  4  EVENT  TYPE  MASK  WORDS? 

BR  IF  YES  -  ERROR 

SAVE  THE  MASK 

POINT  TO  NEXT  EVENT  TYPE  MASK 

AND  EXIT 

REJECT  THE  TRANSITION 


J  13 

VNTI  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46 
ACTION  ROUTINE:  SET  UP  FILTER  CONTROL  BLOCK 


Page  79 


I  u 
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Fl.tDF/SERtDf  ACTION  ROUTINES 

386?  0U276  062716  000002        10$;    ADD    #2,(SP)       ;  SYNTAX  ERROR 

3863  0U302  RETURN 

386A 

3865 
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i   1* 
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FlLlDf/SERSDF  ACTION  ROUTINES 


I  15 

02:4 
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4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
A371 
4372 


M0V8UF  -  SET  UP  LOCAL  FILE  NAME  BLOCK 
INPUTS  - 


R2  -  INPUT  BUFFER 

RO  -  LOCAL  FILE  NAME  BLOCK  ADDRESS 


OUTPUTS 


LOCAL  FILE  BLOCK  SET 


016016 
016020 
016022 
016024 

016026 
016030 
016032 
016034 

016036 


005701 
001002 
111220 
000404 

005201 
112220 
005301 
001375 


MOVBUF 

TST 
BNE 
MOVB 
BR 

Rl 

10$ 

(R2),(R0)t 

30$ 

10$.- 
20$: 

INC 
MOVB 

Rl 
(R2)+,(R0)+ 

30$: 

RETURN 

ZERO  LENGTH  ? 

IF  NOT  -  BRANCH 

COPY  THE  ZERO  LENGTH  BYTE  (DLL  DEFAULT) 

CONTINUE 

INCLUDE  STRING  LENGTH  BYTE 

COPY  FIELD 

ANY  LEFT  ? 

IF  MORE  -  BRANCH 
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4839 

4840 

4841 

4842 

4843 

4844 

484S 

4846 

4847 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 


020026 
020034 
020040 
020046 
020052 
020056 
020062 
020064 
020072 

o:oioo 

020104 
020110 
020114 
020120 
020124 
020126 
020136 


012767 
005C67 
012767 
00506' 
0050... 
005767 
001403 
052767 
016267 
005067 
005067 
005067 

005767 
100004 


.SBTTL  REQUEST  NETLOAPER  TO  LOAD  A  PROCESS 

••-LDPRO-REQUEST  NETLOADER  TO  LOAD  A  PROCESS 

A  POV  HAS  BEEN  FOUND  TO  HAVE  THE  'MARKED  FOR  LOAD'  BIT  SET. 
REQUEST  NETLOADER  TO  LOAD  THE  PROCESS. 

INPUTS; 


000002  OOOOOOG  LDPRO: 

OOOOOOG 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

002000  OOOOOOG 

000004  000002G  5$: 

000004G 

000006G 

00001 OG 


OOOOOOG 


10$: 


R2  -  PDV  POINTER 

MOV  #LS.PRO,RQB+LR.STS 

CLR  $OPTON 

MOV  #CM$SET,$CMAND 

CLR  SQUAL 

CLR  TOPFLG 

TST  TOPFLG 

BEQ  5$ 

BIS  *LS.TOP.RQBtLR.STS 

MOV  Z.NAM(R2),RQB+LR.PR0 

CLR  RQ8+L0.L1N 

CLR  RQ8+L0.C0N 

CLR  RQBtLO.PAR 

CALL  REQNTL 

TST  RQ8 

BPL  10$ 

NTIERR  17 

RETURN 


SET  FUNCTION  CODE 

NO  OPTIONS 

THIS  IS  A  "SET"  OPERATION 

CLEAR  ALL  QUALIFIERS 

TURN  OFF  TOP-DOWN  LOADING 

TOP-DOWN  LOADING? 

IF  EQ,  NO 

INITIALIZE  NTL  REQUEST  BLOCK 


REQUEST  NETLOADER  TO  LOAD  PROCESS 
TEST  STATUS  SLOCK 

FAILED  TO  LOAD  A  PROCESS 


VNTi  - 
REQUE5 
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J 

1 

VNCP 

CREATED  BY 

MACRO     ON  29-JUN-85   AT 

02:44 

PAGE   1 

SYMBOL 

:R0SS   REFERENCE 

CREF       04. 

00 

'.YMBOL 

VALUE 

REFERENCES 

ACCTTL 
ADDRS 

001512  R 
000102  R 

#5-171 
#5-131 

5-171 
*7-753 

7-473 
7-756 

•7-768 

7-787 

7-789 

7-792 

7-960 

7-962 

7-965 

7-1011 

7-1014 

7-1017 

7-1072 

7-1075 

7-1078 

ARAMSK 

=   ******     GX 

7-785 

7-957 

7-1008 

7-1069 

AREAN 

000100  R 

#5-130 

•7-752 

♦7-767 

7-777 

•7-786 

7-793 

7-949 

♦7-958 

7-966 

7-1000 

»7-1009 

7-1018 

7-1061 

♦7-1070 

7-1079 

ASCII 

000064  R 

#5-123 

8-1291 

8-1300 

8DGRP 

002047  R 

#5-178 

5-178 

7-396 

7-58'. 

BOHELT 

002110  R 

#5-179 

5-179 

7-574 

BDLIST 

002UA  R 

#5-180 

5-180 

7-655 

CHKLOG 

006366  R 

7-450 

7-638 

7-1197 

7-1233 

#12-1428 

CKEVE 

000452  R 

#7-290 

7-356 

7-373 

CKEVEB 

000536  RG 

#7-318 

CKEVEC 

000566  RG 

#7-333 

CKEVEN 

000640  RG 

#7-352 

CKEVER 

000666  RG 

#7-364 

CMSSHO 

=   **.*.*     GX 

7-848 

CNUMTL 

000357  R 

#5-152 

5-152 

7-456 

CRLF 

000106  R 

#5-143 

5-144 

^i?5 

DTEATL 

002257  R 

#5-183 

5-183 

7-522 

DSEND 

=  000104 

7-549 

7-781 

7-953 

7-1004 

7-1065 

DSLNUM 

000014 

7-551 

7-784 

7-956 

7-1007 

7-1068 

D.NAM 

=   **«*«»     GX 

8-1318 

D.PCB 

=   »**.*.     GX 

8-1317 

D.UCB 

=   *««»♦♦     GX 

7-910 

D.UCBL 

=   ******     GX 

7-908 

D.UNIT 

-    ******     GX 

7-901 

7-903 

7-906 

EBUF 

=  000014  R 

#5-107 

5-108 

♦6-199 

•6-243 

•6-251 

6-252 

*^i^§ 

♦7-285 

•7-396 

*7-413 

♦7-423 

•7-438 

♦7-456 

♦7-473 

*7-/,f  - 

•7-517 

♦7-522 

•7-543 

*7-564 

*7-574 

•7-584 

♦7-655 

♦7-667 

♦  7-f 

•7-690 

♦7-701 

♦7-712 

*7-723 

*7-734 

♦7-746 

•7-772 

•7-797 

♦7-     .' 

♦7-825 

♦7-842 

♦7-859 

*  7-869 

♦7-881 

♦7-913 

•7-926 

•7-942 

•7->.9 

•7-1021 

•7-1083 

♦7-1116 

*7-1127 

♦7-1148 

•7-1185 

♦7-1208 

•7-1209 

•7-1221 

♦7-1244 

•7-1245 

♦7-1248 

*7-1262 

♦7-1280 

ELEN 

=  000016  R 

#5-108 

♦6-243 

♦6-251 

♦7-268 

•7-285 

•7-396 

•7-413 

•7-425 

♦7-458 

*7-456 

♦7-473 

♦7-490 

♦7-517 

•7-522 

•7-543 

•7-564 

•7-574 

•7-584 

*7-655 

♦7-667 

♦7-679 

♦7-690 

•7-701 

♦7-712 

•7-723 

•7-734 

•7-746 

*7-772 

♦7-797 

♦7-809 

•7-825 

♦7-842 

♦7-859 

•7-869 

•7-881 

•7-913 

*  7-926 

♦7-942 

♦7-969 

•7-1021 

•7-1083 

♦7-1116 

•7-1127 

•7-1148 

•7-1185 

*7-1208 

♦7-1209 

•7-1221 

•7-1244 

•7-1245 

•7-1248 

♦7-1262 

•7-1280 

EMSG 

000000  R 

#5-106 

5-107 

10-1374 

EOJ 

000320  R 

6-250 

#6-254 

ERRKOL 

006304  R 

6-243 

6-251 

7-268 

7-285 

7-396 

7-413 

7-425 

7-438 

7-456 

7-473 

7-490 

7-517 

7-522 

7-543 

7-564 

7-574 

7-584 

7-655 

7-667 

7-679 

7-690 

7-701 

7-712 

7-723 

7-734 

7-746 

7-772 

7-797 

7-809 

7-825 

7-842 

7-859 

7-869 

7-881 

7-913 

7-926 

7-942 

7-969 

7-1021 

7-1083 

7-1116 

7-1127 

7-1148 

7-1185 

7-1208 

7-1209 

7-1221 

7-1244 

7-1245 

7-1248 

7-1262 

7-1280 

#10-1374 

ERRLID 

005654  R 

7-445 

7-1192 

7-1206 

7-1228 

7-1242 

#7-1248 

7-1274 

7-1278 

EVEBEG 

=  000062  R 

#5-118 

•7-326 

7-365 

FL.CNT 

=    ******      GX 

7-1267 

7-1269 

FNDDCB 

006146  R 

7-898 

#8-1313 

rDCATcn   Bv      Maron      nw   5Q-IIIW-RS    AT   Vi7:LU 
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1 
2 
3 
4 
5 
6 
7 

8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 


.TITLE  VNP  -  VIRTUAL  NETWORK  COMMAND  PROCESSOR 
.IDENT  /V05.00/ 

COPYRIGHT  (C)  1978,  1979,  1980,  1982,  1983,  1985  BY 
DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 

DIGITAL  ASSUMES  NO  RES°0NSI8ILITY  FOR  THE  USE  OR  RELIABILITY  OF  ITS 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

MODULE  DESCRIPTION: 

VIRTUAL  NETWORK  LOADER  (VNP)  MAIN  CONTROL  LOOP 

DISTRIBUTED  SYSTEMS  SOFTWARE  ENGINEERING 

IDENT  HISTORY: 

1.00  27-FE8-78 

VERSION  2.0  RELEASE 

2.00  14-DEC-79 

DECNET-11M/S  V3.0 
DECNET-11M-PLUS  VI. 0 

3.00  16-APR-82 

DECNET-11M  V3.1 
DECNET-11M-PLUS  VI. 1 

4.00  07-NOV-83 

DECNET-11M  V4.0 
DECNET-11M-PLUS  V2.0 

5.00  22-JUL-85 

DECnet-IIM/S  V4.2 
DECnet-IIM-Plus  V3.0 
DECnet-Micro/RSX  VI. 0 
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4A9  001160 
'.SO  001162 
^51  001164 

452  001166 

453  001170 

454  001172 

455  001174 

456  001176 

457  001200 

458  001202 

459  001204 

460  001206 

461  001210 

462  001212 

463  001214 

464  001216 

465  001220 


OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

002024' 

000000 

OOOOOOG 

OOOOOOG 

OOOOOOG 


WORD 

SVALI 

17  - 

CLEAR  ALIAS 

WORD 

$VLOG 

20  - 

SET  LOGGING 

WORD 

$VLOG 

21  - 

CLEAR  LOGGING 

WORD 

SVOBJ 

22  - 

SET  OBJECT 

WORD 

$V08J 

?^  - 

CLEAR  OBJECT 

WORD 

$DSYS 

24  - 

SHOW  SYSTEM 

WORD 

$DLIN 

SHOW  LINE 

WORD 

SDPRO 

26  - 

SHOW  PROCESS 

WORD 

$DN0D 

?/  - 

SHOW  NODE 

WORD 

SDALI 

<0  - 

SHOW  ALIAS 

WORD 

SDLOG 

VI  - 

SHOW  LOGGING 

WORD 

$D08J 

32  - 

SHOW  OBJECT 

WORD 

$SCIR 

33  - 

SET  CIRCUIT 

WORD 

0 

<4  - 

CLEAR  CIRCUIT 

WORD 

$DCIR 

35  - 

SHOW  CIRCUIT 

WORD 

$SMOD 

36  - 

SET  MODULE 

WORD 

$DMOD 

i/  - 

SHOW  MODULE 
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$ALMHC= 

****** 

GX 

SDLOG  = 

******  GX 

SALTLC= 

****** 

GX 

SDMOD  = 

******  GX 

$BFR   = 

****** 

GX 

SDNOD  = 

******  GX 

SBIAS  = 

****** 

GX 

SDOBJ  = 

******  GX 

SCACH  = 

****** 

GX 

SDPRO  = 

******  GX 

SCCEX  = 

****** 

GX 

SDSYS  = 

******  GX 

$CKT  = 

****** 

GX 

$EROUT= 

«*«***  GX 

$CLFLG= 

****** 

GX 

$FLAGS= 

******  GX 

$CLIN  ^ 

****** 

GX 

SFUNC  = 

***«*♦  GX 

$CLSAV=: 

****** 

GX 

SGETRV= 

******  GX 

SCNOO  = 

****** 

GX 

SWISS  = 

******  GX 

SCPRO  = 

****** 

GX 

SNAME  = 

******  GX 

$C5RLD= 

****** 

GX 

$NLCFG= 

**»»**  GX 

$DALI  = 

****** 

GX 

SNLDEV= 

******  GX 

SDCIR  = 

****** 

GX 

$NLRQB= 

******  GX 

$DDMPV= 

****** 

GX 

SOPTON= 

******  GX 

$DLCPV= 

****** 

GX 

SPANK 

0001 30RG 

SDLIN  = 

****** 

GX 

.  ABS. 

000106 

000 

(RW,I,GBL,A8S,0VR 

002572 

001 

{RW,I,LCL,REL,CON 

Errors 

detected:  0 

SPDVA  = 

******  GX 

$PDVTA= 

***»»♦  GX 

SQUAL  = 

******  GX 

SRADDR= 

***♦*♦  GX 

SROL  = 

«*»*»*  GX 

SRSNTI= 

*»»«**  GX 

$SAVAL= 

******  GX 

SSCEX  = 

******  GX 

SSCIR 

002024R 

SSLIN 

002236R 

SSLTA  = 

******  GX 

SSLTWA= 

******  GX 

SSLTNM= 

******  GX 

SSMOD  = 

******  GX 

SSNOD  = 

******  GX 

SSPRO 

0016UR 

SIMP  = 

******  GX 

SVACT  = 

******  GX 

SVALI  = 

******  GX 

SVC0ST= 

******  GX 

SVDEA  = 

******  GX 

SVENA  = 

******  GX 

SVFLAG= 

******  GX 

SVHELP= 

******  GX 

SVHTM  = 

******  GX 

SVINI  = 

******  GX 

SVLOG  = 

*»*»*♦  GX 

SVLTM  = 

******  GX 

SVNCP  = 

******  GX 

SVNP 

000104RG 

SVNTI  = 

******  GX 

SVOBJ  = 

******  GX 

SVOWN  = 

******  GX 

SVRQB 

000450RG 

SVSER  = 

****** 

GX 

SVTAD  = 

****** 

GX 

SVTST  = 

****** 

uX 

SVXIT  = 

****** 

GX 

SXFER  = 

****** 

GX 

SXLIN  = 

****** 

GX 

SXPRO  = 

****** 

(iX 

$S 

M7777 

SSCSR  = 

****** 

GX 

SSDEV  = 

****** 

GX 

S$HTIM= 

****** 

GX 

SSPRI  = 

****** 

GX 

SSVECT= 

****** 

GX 

$$$   = 

001500R 

SSSS  = 

001546R 

.MGMGE= 

****** 

GX 

.PLGTH= 

****** 

GX 

***  Assembler   statistics 


Work   fUe  reads: 

0 

Uork   file  writes: 

0 

Size  of  work  f i le: 

13761  Words 

(  54  Pages) 

Size  of  core  pool : 

KA40  WordE 

(  55  Pages) 

Operating      system:    RSX-11M/PLUS 
SY:VNP?vr,[f32J34]VNP/CR/-SP=SV:C1,1]RSXMCM.SML/ML,C130,110JNETLIB/ML,[130,10]RSXMCM/PA:1,C132,10]VNP 
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TS$SUP= 
TS$XHR= 
T$$KMG= 
T$$MIN= 
T2$CLI= 
T2$FMP= 
UC.ALG= 
UC.ATT= 
UC.KIL= 
UC.LGH= 
UC.NPR= 
UC.PWF= 
UC.QUE= 
UD.UNS= 
UD.160= 
UD.200= 
UD.556= 
UD.625= 
UD.8K  = 
UD.800= 
UM.CLI= 
UM.I;SB= 
UM.NBR= 
UM.OVR= 
US.ABO= 
US.BSP= 
US.BSY= 
US.FOR= 
US.FRK= 
US.<PF= 

ABS. 


000010 

OOOOOA 

000000 

000000 

000001 

000002 

000200 

000010 

000004 

000003 

000100 

000020  G 

000040 

000000 

OOOOOA 

000001 

000002 

000005 

000006 

000003 

000036 

000200 

000400 

000001 

000001 

000002 

000200 

000040 

000002 

000001 


US.LAB= 

US.HDE= 

US.MDM= 

US.MNT= 

US.OFL= 

US.PUB= 

US.PUF= 

US.RED= 

US.SHR= 

US.SPU= 

US.UMD= 

US.VV  = 

US.WCK= 

UU.ABO= 

UU.ATN= 

UU.AVN= 

UU.GUS= 

UU.IOS= 

UU.ONL= 

UU.RCT= 

UU.RDY= 

UU.SER= 

UU.SIO= 

UU.SPC= 

U.AC8 

U.ACP  = 

U.ADMA 

U.AFLG 

U.ATT 

U.BPKT= 


000004 
000002 
000020 
000100 
000001 
000004 
000010 
000002 
000001 
000002 
000010 
000001 
000010 
000400 
000100 
000004 
000010 
002000 
000020 
000002 
000200 
000001 
001000 
000040 
000062 
000032 
000066 
000064 
000022 
000044 


177776 
000000 
Errors  detected: 


000 
001 
0 


(RW,I,GBL,ABS,0VR) 
(RW,I,LCL,REL,CON) 


Assembler  statistics 


Work   file  reads:  0 

Work  f i le  writes:  0 

Size  of  work  file:  12913  Words  (  51  Pages) 

Size  of  core  pool:  14440  Words  (  55  Pages) 

Operating  system:  RSX-11M/PLUS 


U.BUF 

U.CBF  = 

U.CLI 

U.CNT 

U.COTQ 

U.CTC8 

U.CTL 

U.CTYP 

U.CWI 

U.CW2 

U.CW3 

U.CW4 

U.CYL  = 

u.Dce 

U.FCDE= 

U.FNUM= 

U.GRP  = 

U.KCSR= 

U.KCS6= 

U.LUIC 

U.MED]= 

U.MLUN= 

U.MUP 

U.OWN 

U.RBNS= 

U.RCTC= 

U.RCTS= 

U.RED 

U.RED2 

U.SCB 


000024 

000032 

177772 

000030 

000030 

000026 

000004  G 

000052 

000010 

000012 

000014 

000016 

000104 

000000  G 

000042 

000040 

000102 

000032 

000034 

177774 

000040 

000050 

177772 

177776 

000112 

000113 

000110 

000002  G 

000034 

000020  G 


U.SHST= 

U.SHUN= 

U.SPC  = 

U.STS 

U.ST2 

U.SUB  = 

U.TCHP 

U.TCVP 

U.TFLK 

U.TFRQ 

U.TIXL 

U.TLPP 

U.TMTI 

U.TRCK= 

U.TSTA 

U.TST5 

U.TST6 

U.TTAB 

U.TTYP 

U.TUX 

U.UHVR= 

U.UIC 

U.UNFL= 

U.UNIT 

U.UNSZ= 

U.UNTI= 

U.USVR= 

U.UTIL= 

U.VCB  = 


000076 
000074 
000036 
000005 
000007 
000036 
000042 
000043 
000040 
000036 
000060 
000053 
000047 
000100 
000026 
000054 
000056 
000050 
000046 
000024 
000107 
000044 
000052 
000006 
000114 
000060 
000106 
000036 
000034 


U.VSER= 
U.2MED= 
U2.AT.= 
U2.CRT= 
U2.DH1= 
U2.DJ1= 
U2.DZ1= 
U2.ESC= 
U2.HFF= 
U2.HLD= 
U2.L0G= 
U2.LWC= 
U2.L3S= 
U2.L8S= 
U2.NEC= 
U2.PRV= 
U2.RMT= 
U2.R04= 
U2.SCS= 
U2.SLV= 
U2.VT5= 
U2.7CH= 
U3.0PA= 
U3.PAR= 
U3.UPC= 
U4.CR  = 
V$$CTR= 
X$$DBT= 
SLBXL  = 


000120 
000070 
000020 
002000 
100000 
040000 
000100 
001000 
010000 
000040 
000400 
000001 
000004 
010000 
004000 
000010 
020000 
100000 
000004 
000200 
000002 
010000 
100000 
040000 
020000 
000100 
001000 
000000 
000340 


Elapsed  time:  00:00:09.11 

SY : VNSD. V2, CI  32,1 343VNSD/CR/- 


SP=SV:[1,1]RSXMCM.SML/ML,[130,110]NETLIB/ML,[130,10]RSXMCM/PA:1,C132,10]VNSD 


rRFATFD  RV   MAfRO   ON  29-JUN-85  AT  02:46 
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320 

321  000370 

322  000374 

323  000376 
32A 

325 
326 

327  000406 

328  0004U 

329  000416 

330  000434 

331  000440 

332  000446 

333  000450 

334  000454 

335  000456 

336  000460 

337  000464 
338 

339 

340 

341 

342 

343  000470 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

561 

362  000470 

363 

364 

365 

366  000474 

367  000502 

368  000510 

369  000514 

370  000520 

371  000522 

372  000532 


010167  OOOOOOG 
001004 


032767 
001425 

016702 
012762 
005722 
005062 
010146 
060216 
012662 


110$:   MOV     RI.SUBPAR 
BNE     120$ 
NTIERR  2 

FINISH  PARTITION  ALLOCATION 


000020  OOOOOOG  i20$: 


OOOOOOG 
177774 

OOOOOOG 


000002G 


OOOOOOG 


BIT 

BEQ 

GETRV 

MOV 

MOV 

TST 

CLR 

MOV 

ADD 

MOV 

PUTRC 


#FE.PLA,$FMASK 

125$ 

R1,.PLGTH 

.PPR0,R2 

#*C<3>,$BFR(R2) 

(R2)  + 

$8FR(R2) 

R1,-(SP) 

R2,(SP) 

(SP)+,$BFR+2(R2) 


DO  WE  HAVE  PCB  ADDRESS  ? 

YES 

UNABLE  TO  CREATE  SUB-PARTITION 


PLAS  SYSTEM? 

NO  IF  EQ 

RETRIEVE  SUB  PCB 

PROTECTION  WORD  OFFSET  IN  PCB 

ALLOW  ONLY  SYSTEM  READ/ 

POINT  AT  ATTACH  LISTHEAD 

CLEAR  FIRST  LIST  POINTER 

ADDR  OF  SUB  PCB 

PLUS  OFFSET  TO  FIRST  POINTER 

POINT  LAST  LISTHEAD  TO  FIRST 

WRITE  PCB  BACK 


ALLOCATE  UMRS  IF  IT'S  AN  11/70.   NOTE  THAT  ON  MULTI-PROCESSOR  SYSTEMS, 
EACH  CPU  HAS  ITS  OWN  POINTER  TO  ITS  UMR  BLOCK,  AND  THE  UMR  BLOCK  POINTER 
IN  THE  NTL  HOME  BLOCK  IS  NOT  USED. 


MULTI  PROCESSOR  SYSYTEM  ? 

IF  NO  -  BRANCH 

COPY  THE  PROCESSOR  NUMBER 

CHANGE  OFFSET  TO  ZERO 

MAKE  INTO  A  WORD  INDEX 

POINT  INTO  CPU  AREA  TABLE 

SET  TO  "GET"  INTO  CPU  BIAS  WORD 

GET  THE  CPU  AREA'S  BIAS 

RESET  INPUT  BUFFER 

SAVE  THE  CPU  COUNT 

ALLOCATE  THE  UMR  BLOCK  FOR  THIS  CPU 

RECOVER  THE  CPU  COUNT 

NEXT  CPU 

BR  IF  MORE  TO  GO 

ALL  UMR  BLOCKS  NOW  ALLOCATED 


012767 
016767 

005767 
100004 


125$: 

.IF 

MOV 
BMI 

DF,R$$MPL 

.MPR0,R2 
128$ 

126$: 

MOV 

DEC 

ASL 

ADD 

SWTCHI 

GETRV 

SWTCHI 

MOV 

CALL 

MOV 

DEC 

BGT 

BR 

.ENDC 

R2,R3 

R3 

R3 

.K6TAB,R3 

*$CP8IA 

R3,*2 

R2,-(SP) 

$UMRAL 

(SP)+,R2 

R2 

126$ 

130$ 

128$: 

CALL 

$UMRAL 

■  LOAD 

THE  COMH 

EXEC 

000001 

OOOOOOG 

130$:* 

MOV 

#LS.CEX,RQB 

OOOOOOG 

000002G 

MOV 
CALL 

PSTART,RQB+2 
REQNTL 

OOOOOOG 

TST 
BPL 
NTIERR 

ROB 

132$ 

4 

132$: 


373 

000532 

SWTCHO 

374 

000540 

016767 

OOOOOOG 

OOOOOOG 

MOV 

SU8PAR 

$NTLHB 

375 

000546 

016767 

OOOOOOG 

000002G 

MOV 

UMRPTR 

$NTI.HBt2 

376 

000554 

016702 

OOOOOOG 

MOV 

PSTART 

R2 

ALLOCATE  THE  UMR  BLOCK 


SET  FUNCTION  CODE 

SET  NETLDR  HOME  BLOCK  ADDRESS 

REQUEST  NETLDR 

DID  COMM  EXEC  LOAD  SUCCEED? 

IF  PL,  YES 

FAILED  TO  LOAD  CEX 

RESET  BUFFERS 

COPY  POOL  PCB  ADDRESS 

COPY  UMR  BLOCK  ADDRESS 

GET  POOL  STARTING  BLOCK  NUMBER 
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926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 

938  003200 

939  003200 

940  003206 
941 

942 

943 

944  003210 

945 

946  003214 

947  003220 

948  003222 

949  003240 

950  003246 

951  003252 
952 

953 

.SBTTL  DEALLOCATE  RESOURCES 
**-$DALCT       -  DEALLOCTE  ALLOC/ 

INPUTS: 

$CC8LH 
SRDBLH 
SSDBLH 

-  CCB  LISTHEAD 

-  RD8  LISTHEAD 

-  SD8  LISTHEAD 

032767 
001442 

SDALCT:: 
020000  OOOOOOG        BIT 
BEQ 

*FE.CEX,$FMASK 

20$                 ; 

FIRST  RETURN 

CCBS 

016701 

OOOOOOG 

MOV 

$CCBSZ,R1             ; 

016700 
001415 

016767 

000760 

OOOOOOG 
OOOOOOG  OOOOOOG 

)$:     MOV 
BEQ 
GETRV 
MOV 
CALL 
BR 

$CCBLH,RO 

10$ 

R0,*2 

$8FR,$CCBLH            ; 

$DEA16               ; 

5$                 ; 

RETURN  RDB'S 

CCBS 

954 

955  003254 

956  003260 
957 

958  003264 

959  003270 
960 

961 
962 

963  003274 

964  003302 

965  003306 

966  003312 
967 

968 

005067 
005067 

005067 
005067 

OOOOOOG 
000002G 

OOOOOOG 
000002G 

0$:    CLR 
CLR 

15$:    CLR 
CLR 

$RD8LH 
$RD8LH+2 

$SD6LH 
$SDBLHt2 

•  UNLOAD  COMM 

EXEC 

012767 

005767 
100024 

000004  OOOOOOG 
OOOOOOG 

MOV 
CALL 
TST 
BPL 

*LX.CEX,RQB           ; 
REQNTL                ; 
RQB 
30$ 

;  UNLOAD  NETWORK  POOL  PARTITION 

969 

970  003314 

971  003320 

972  003322 
973 

974  003326 

975  003332 

976  003334 
977 

978 

016700 
001407 

OOOOOOG 

50$:    MOV 
BED 
CALL 

SUBPAR,R0            ; 

25$ 

$XPAR 

0^6700 
001402 

OOOOOOG 

MOV 
BEQ 
CALL 

SBPCB.RO 

25$ 

$XPAR               ; 

;  DE-ALLOCATE 

UMR  BLOCK 

980  003340 

981 

982 

J5$:    .IF 
TST 
BMI 

DF,R$$MPL 

.MPfiO 

28$ 

HAS  COMM  EXEC  BEEN  LOADED? 
IF  EQ,  NO 


ALL  CCBS  ARE  THIS  SIZE 

GET  ADDRESS  OF  NEXT  CCB 

GET  IMAGE  INTO  BUFFER 
MAINTAIN  QUEUE  LISTHEAD 
DEALLOCATE  NODE 
LOOP  FOR  NEXT  NODE 


RESTORE  RDB  LISTHEAD 
TO  INITIAL  VALUE 

RESTORE  SDB  LISTHEAD 
TO  INITIAL  VALUE 


CLEAR  CEX  FUNCTION  CODE 

REQUEST  NTL 

SUCCESS? 

IF  PL,  YES  -  NOTHING  ELSE  TO  DO 


GET  PCB  ADDRESS 
WAS  NOT  ALLOCATED 
DEALLOCATE  IT 

GET  SERVER  BASE  BUFFER  PCB  ADDRESS 
WAS  NOT  ALLOCATED 
DEALLOCATE  IT 


MULTIPROCESSOR  SYSTEM 
IF  YES  -  BRANCH 
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1439  004350 

060167 

OOOOOOG 

ADD 

R1,NTPSIZ 

1440 

1441  004354 

016700 

000072' 

MOV 

ECLNOD.RO 

1442  004360 

012701 

000050 

MOV 

*E$NLEN,R1 

1443  004364 

CALL 

$MyL 

1444  004370 

062701 

000077 

ADD 

#77, Rl 

1445  004374 

04270^ 

000077 

BIC 

*77, R1 

1446 

1447 

000006 

.REPT 

6 

1448 

ASR 

Rl 

1449 

.ENDM 

1450  004414 

060167 

OOOOOOG 

ADD 

RI.NONMAP 

1451  004420 

060167 

OOOOOOG 

ADD 

RI.NTPSIZ 

1452 

1453  004424 

1454 

1455  004426 

RETURN 

005767 

OOOOOOG 

.NOMAP 

TST 

.MGEXT 

1456  004432 

100003 

BPL 

10$ 

1457  004434 

012767 

000002  OOOOOOG 

MOV 

#2,UMRFLG 

1458  004442 

066767 

OOOOOOG  OOOOOOG 

10$: 

ADD 

.PNUMB,NONMAP 

1459  004450 

1460 

1461  004452 

RETURN 

012746 

OOOOOOG 

.NAM1: 

MOV 

#NTPNAM,-(SP) 

1462  004456 

000402 

BR 

.NAM 

1463  004460 

012746 

OOOOOOG 

.NAM2: 

MOV 

#NTPPAR,-(SP) 

1464  004464 

012700 

000026' 

.NAM: 

MOV 

#NAM8UF+4,H0 

1465  004470 

012710 

020040 

MOV 

#"  ,(R0) 

1466  004474 

011040 

MOV 

(R0),-(RO) 

1467  004476 

011040 

MOV 

(R0),-(RO) 

1468  004500 

016701 

OOOOOOG 

MOV 

.PSTPT,R1 

1469  004504 

016702 

OOOOOOG 

MOV 

.PSTCN,R2 

1470  004510 

022702 

000006 

CMP 

#6,R2 

1471  004514 

103002 

BHIS 

10$ 

1472  004516 

012702 

000006 

MOV 

*6,R2 

1473  004522 

112120 

10$: 

MOVB 

(Rl)  +  ,(RO)f- 

1474  004524 

005302 

DEC 

R2 

1475  004526 

001375 

BNE 

10$ 

1476  004530 

012700 

000022' 

MOV 

#NAMBUF,RO 

1477  004534 

010701 

MOV 

PCRl 

1478  004536 

CALL 

$CAT5 

1479  004542 

011602 

MOV 

(SP),R2 

1480  004544 

010122 

MOV 

R1,(R2)t 

1481  004546 

010216 

MOV 

R2,(SP) 

1482  004550 

010701 

MOV 

PCRl 

1483  004552 

CALL 

$CAT5 

1484  004556 

010136 

MOV 

Rl,5j(SP)t- 

1485  004560 

1486 

1487  004562 

RETURN 

066767 

OOOOOOG  OOOOOOG 

.ALLC: 

ADD 

.PNUMB,. ALLOC 

1488  004570 

066767 

OOOOOOG  OOOOOOG 

ADD 

.PNUMB.NTPSIZ 

1489  004576 

RETURN 

1490 


UPDATE  TOTAL  PARTITION  SIZE 

STORE  ECL  NUMBER  OF  NODE  COUNTERS 
STORE  NODE  COUNTER  SIZE 
CALCULATE  TOTAL 
ROUND  UP  TO  NEXT  BLOCK 


CONVERT  TO  BLOCKS 

ALLOCATE  MORE  NON-UNR  MAPPED  POOL 
UPDATE  TOTAL  SIZE 


11/70  TARGET  SYSTEM? 

IF  PL,  YES 

ELSE  DISABLE  UMR'S 

AMOUNT  OF  NON-UMR-MAPPED  POOL 


COPY  TPARS  STRING  TO  LOCAL  BUFFER 
AND  FILL  OUT  TO  SIX  CHARACTERS 
WITH  BLANKS 


DON'T  COPY  MORE  THAN  SIX 


NOW  CONVERT  TO  RAD50 
ALLOWING  PERIODS 


INCREASE  SIZE  OF  SINGLE-WORD  POOL 
INCREASE  SIZE  OF  POOL 
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BUF$DF  PARSE  TABLES 


STATE  TRANSITIONS  FOR  THE  'BUFSDf  MACRO 


1911  .SBTTL  BUFSDF  PARSE  TABLES 

1912 

1913 

19U 

1916  006324  STATES  BUFDF 
9  7  00632A  TRANS   SNUMBR,BUFLP, .8UFNM 

9  8  00632A  TRANS   SLAMDA, , .8UFSK 

9  9  00632A  STATES  BUFLP 

1920  00632A  TRANS   <',>, BUFDF 

1921  006324  TRANS   1 END.SEXIT, .BUFCT 

1922  006524  STATES 


K  9 

VNTI  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  34 


J  10 

VNTl  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  45 
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2289 
2290 
2291 
2292 
2293 

2294  006324 

2295  006324 

2296  006324 
2297 

2298 
2299 
2300 
2301 

2302  006324 

2303  006324 

2304  006324 

2305  006324 

2306  006324 
2307 

2308 
2309 
2310 
2311 

2312  006324 

2313  006324 

2314  006324 

2315  006324 

2316  006324 

2317  006324 
2318 

2319 
2320 


.SBTTL  SUB-EXPRESSION  PARSE  TABLES 
SUB-EXPRESSION  FOR  EXIT  CONDITION 


STATES 
TRANS 
TRANS 


END 

<';>,SEX1T 

$EOS,SEXIT 


SUB-EXPRESSION  TRANSITIONS  FOR  'PROCESS  NAME', 


STATES 
TRANS 

STATES 
TRANS 

STATES 


PRONAM 
SRAD50 

<',>,SEXIT 


SUB-EXPRESSION  TRANSITIONS  FOR  ANGLE-BRACKETED  STRINGS 


STATES 
TRANS 
TRANS 

STATES 
TRANS 

STATES 


STRING 
RBfiA,STRNG1 

sany, string 
strngI 
slamda.sexit, 


.STRNG 
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2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2659 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 


006520  016700  OOOOOOG        .PROMF: 

006524  016701  OOOOOOG 

006530  012002  10$: 

006532  001404 

006534  026762  OOOOOOG  000004 

006542  001403 

006544  005301  20$: 

006546  001370 

006550 

006552  152762  000010  000010  30$: 

006560 


.SBTTL  ACTION  ROUTINE:  'MARKED  FOR  LOAD'  FLAG  SEEN 

»*-.PROMF-'MARKED  FOR  LOAD'  FLAG  SEEN 

ONE  OF  THE  PROCESS  DEFINITION  MACROS  HAS  BEEN  FOUND  TO  CONTAIN 
A  'MARKED  FOR  LOAD'  REFERENCE.  SCAN  THE  PROCESS  DESCRIPTOR 
VECTORS  FOR  THE  CORRECT  PROCESS  AND  SET  THE  'MARKED  FOR  LOAD' 
BIT  IN  THE  FLAG  BYTE. 


GET  POINTER  TO  PROCESS  INDEX  TABLE 
GET  #  OF  ENTRIES  TO  SCAN 
GET  POINTER  TO  A  PDV 
IGNORE  ZERO  ENTRIES 


MOV 

$PDVrA,RO 

MOV 

$PDVNM,R1 

MOV 

(R0)+,R2 

BED 

20$ 

CMP 

PDVNAM,Z.NAM(R2) 

BED 

30$ 

DEC 

R1 

BNE 

10$ 

RETURN 

Bise 

#ZF.MFL,Z.FLG(R2 

RETURN 

IS  THIS  THE  CORRECT  PROCESS? 


;  NO 


KEEP  SCANNING 
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ACTION  ROUTINE:    STATION   FLAGS   SEEN 


3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

5104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 


010724 
010732 
010736 

010740 

010750 
010754 
010756 
010776 
011004 
011010 

011012 

011022 
011026 
011030 
011050 
011056 
011062 

011064 


011074 
011100 
011102 
011122 
011130 
011134 

011136 


011146 
011152 
011154 
011174 
011202 
011206 

011210 

011220 
011240 
011246 
011252 


156767     OOOOOOG  000045G 


000001 G 
156767     OOOOOOG  000046G 


105767 
001016 


101$: 
DELW: 


BIS8 

PUTRC 

RETURN 


NTIERR     36 


.PNUMB,D$DELft$8FR   ;    STORE   DELAY  FACTOR 
;    UPDATE  HOME   BLOCK 


101$: 
000001G  IPL: 


105767 
001016 


156767     OOOOOOG  000051G 


105767 
001016 


101$: 
000001 G  RETF: 

156767     OOOOOOG  000050G 


105767 
001016 


016767     OOOOOOG  000036G 


101$ 
SEG: 


TSTB 

BNE 

GETRV 

BISB 

PUTRC 

RETURN 


GETRV 
MOV 
PUTRC 
RETURN 


ILLEGAL   VALUE 


TSTB 

BNE 

GETRV 

BISB 

PUTRC 

RETURN 


NTIERR     37 


.PNUMB+1  ;    >  255.    ? 

101$  ;    IF   YES  -  BRANCH 

$DECPT,*D$END       ;    GET  HOME  BLOCK  ADDRESS 
.PNUMB,D$DELW+$BFR    ;    STORE    DELAY  WEIGHT 
;    UPDATE  HOME   BLOCK 


.PNUMBtl 

101$ 

$DECPT,*D$END 

.PNUM8,D$IPLt$BFR 


ILLEGAL  VALUE 

>  255.  ? 

IF  YES  -  BRANCH 

GET  HOME  BLOCK  ADDRESS 

;  STORE  INPUT  PACKET  LIMITER 

UPDATE  HOME  BLOCK 


101$:   NTIERR  40 
OOOOOIG        LST 
156767  OOOOOOG  000047G 


TSTB 

BNE 

GETRV 

BISB 

PUTRC 

RETURN 


NTIERR  41 


.PNUMB+1 

101$ 

$DECPT,*D$END 

.PNUMB,D$LST+$BFR 


ILLEGAL  VALUE 


>255.  ? 

IF  YES  -  BRANCH 

GET  HOME  BLOCK  ADDRESS 

;  STORE  LINK  SERVICE  THRESHOLD 

UPDATE  HOME  BLOCK 


ILLEGAL  VALUE 


TSTB 

BNE 

GETRV 

BISB 

PUTRC 

RETURN 


NTIERR  45 


.PNUMB+I       ;  >  255.  ? 
101$  ;  IF  YES  -  BRANCH 

$DECPT,#D$END   ;  GET  HOME  BLOCK 
.PNUMB,D$RETFt$BFR  ;  STORE  RETRANSMIT  FACTOR 
;  UPDATE  HOME  BLOCK 


$DECPT,#0$END 
.PNUMB,D$SEG+$BF 


ILLEGAL  RETRANSMIT  FACTOR 

GET  HOME  BLOCK 

;  STORE  ECL  SEGMENT  SIZE 

UPDATE  HOME  BLOCK 
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3473 

.SBTTL 

ACTION  ROUTINE:  SET  UP  FU 

3474 

3475 
3476 
3477 

+ 

E.CON 

-  SINK 

TYPE  CONSOLE  FOUND 

3478 

E.FIL 

-  SINK 

TYPE  FILE  FOUND 

3479 

E.MON 

-  SINK 

TYPE  MONITOR  FOUND 

3480 

3481 

INPUTS: 

3482 

CLASS  - 

EVENT  CLASS 

3483 

EVENT  - 

EVENT  MASKS 

3484 

3485 

- 

3486 

.ENABL 

LSB 

3487  012676 

052767 

000001 

000044'  E 

.CON: 

BIS 

#FF.CON,FLTFLG         ; 

3488  012704 

000407 

BR 

5$ 

3489  012706 

052767 

000002 

000044'  E 

.FIL: 

BIS 

#FF.FIL,FLTFLG 

3490  012714 

000403 

BR 

5$ 

3491  012716 

3492 

3493  012724 

052767 

000004 

000044'  f 

.MON: 

BIS 

#FF.MON,FLTFLG 

012701 

000016 

>i: 

MOV 

#F.LEN,R1 

3494  012730 

CALL 

SAL POL 

3495  012/34 

103457 

BCS 

101$ 

3496  012736 

012701 

OOOOOOG 

MOV 

#$8FR,R1 

3497  012742 

016761 

000042' 

000002 

MOV 

CLASS, F.CLS(RI) 

3498  012750 

052761 

000016 

000002 

BIS 

#F.LEN,F.CLS(R1) 
EVENT+0,F.EVT+0(R1)     ; 

3499  012756 

016761 

000046' 

000004 

MOV 

3500  012764 

016761 

000050' 

000006 

MOV 

EVENT+2,F.EVT+2(R1) 

3501  012772 

016761 

000052' 

000010 

MOV 

EVENT+4,F.EVT+4(R1) 

3502  013000 

016761 

00005'.  • 

000012 

MOV 

EVENT+6,F.EVT+6(R1) 

3503  013006 

016761 

00004.,' 

000014 

MOV 

FLTFLG,F.FLG(R1) 

3504  013014 

010067 

000004' 

MOV 

RO.CURUNM 

3505  013020 

CEACC$ 

RO 

3506  013030 

3507 

3508 

3509 

3510  013046 

10$: 

PUTAD 

RO,#F.LEN 

;  INSERT  ENTRY 

INTO  LIST 

016701 

000042' 

MOV 

CLASS, R1 

3511  013052 

016700 

000004' 

MOV 

CURUNM,RO 

3512  013056 

CALL 

FINFJL 

3513  013062 

012702 

OOOOOOG 

MOV 

#$FILHD,R2 

3514  013066 

CALL 

QINS                 ; 

3515  013072 

RETURN 

3516  013074 

101$: 

NTIERR 

23 

3517 

.DSABL 

LSB 

INDICATE  EVENT  DESTINED  FOR  CONSOLE 

INDICATE  EVENT  DESTINED  FOR  FILE 

INDICATE  EVENT  DESTINED  FOR  MONITOR 

GET  LENGTH  OF  FILTER  CONTROL  BLOCK 

TRY  TO  ALLOCATE  FILTER  BLOCK 

BR  IF  COULDN'T 

POINT  AT  I/O  BUFFER 

STORE  EVENT  CLASS 

SET  LENGTH  OF  FILTER  BLOCK 

STORE  EVENT  TYPE  MASKS 


STORE  FLAGS 
SAVE  UNMAPPED  ADDRESS 
CONVERT  TO  MAPPED  ADDRESS 
WRITE  OUT  FILTER  BLOCK 


GET  CLASS  NUMBER 

GET  UNMAPPED  ADDR  OF  BLOCK  TO  INSERT 

FIND  FILTER  BLOCK 

POINT  TO  LISTHEAD 

INSERT  ENTRY  INTO  LIST 

FILTER  BLOCK  ALLOCATION  FAILURE 
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016767 
016767 
016767 


016700 
012701 
070100 
010167 


OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOPOOO 


VNTl  -  VNP  ^JE1WGRK  INITIALIZATI 
F!L$DF/5ERSDF  ACTION  ROUTINES 


3867 

5868 

3869 

3870 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

5879  0H30A 

3880  0K512 

3881 

5882  0U5U 

3883  0U322 

3884 

5885  0U52A 

3886  0U332 

5887 

3888  0U554 

5889  0U540 

5890  0K54A 
3891  0K3A6 
5892  0U552 
5893 

389A  0K554 
5895  0K562 
5896 

5897  0K564 

5898  0U370 

5899  0K574 

5900  0K576 

5901  OKA02 
3902 

5905  01A40A 
5904  014412 
5905 

5906  014414 

5907  014420 

5908  014424 
3909 

5910  014450 

5911 

5912  014452 

3915  014440 

3914 

3915  014446 

5916 

5917  014450 

3918  014456 

5919 

5920 
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SERSDF   ACTION  ROUTINS 

INPUTS  - 

.PNUMB  -  NUMERICAL  VALUE  PARSED 
.PSTPT  -  PARSED  STRING  ADDRESS 
.PSTCN  -  STRING  SIZE 


000154' 
000156' 
000254' 


OUTPUTS  - 

PARAMETERS  COPIED  INTO  NTLCF2 


000112' 
056767  OOOOOOG  000112' 


016700 
012701 
070100 
010167 


OOOOOOG 
002000 


000114' 
056767  OOOOOOG  000114' 


SERUNI::MOV     . PNUMB, C IRNUM 
RETURN 

SERMUL::MOV     .PNUMB.CIRMUL 
RETURN 

SERMUX::MOV     .PNUMB, C  IRUNT 
RETURN 

NOAR:;  MOV  . PNUMB, RO 

MOV  #1024., R1 

MUL  R0,R1 

MOV  R1,SERN0D 
RETURN 

NOAD::  BIS     .PNUMB, SERNOD 
RETURN 

HSAfi::  MOV  . PNUMB, RO 

MOV  #1024., R1 

MUL  R0,R1 

MOV  R1,SERHST 
RETURN 

HSAD::  BIS     . PNUMB, SERHST 
RETURN 


016700 
010167 


016767 
016767 


OOOOOOG 
000120' 


OOOOOOG 
OOOOOOG 


000132' 
000154' 


016767  OOOOOOG  000156' 


SERDV::  MOV 
CALL 
MOV 


RETURN 


DADDR::  MOV 
MOV 


. PSTPT, RO 

$CAT5 

R1,SERDEV 


. PNUMB, SERDMP 
.PNUMH,SERDMP+2 


RETURN 


DCT::   MOV     . PNUMB, 5ERDCT 
RETURN 


STORE  UNIT  NUMBER 

STORE  TRID  ADDRESS 

STORE  UNIT  NUMBER 

STORE  NODE  AREA 
POSITION  AREA  ADRESS 

SAVE  NODE  AREA 

SET  NODE  ADDRESS 

SET  HOST  AREA 
POSITION  AREA  ADDRESS 

SAVE  HOST  AREA 
SET  HOST  ADDRESS 


GET  STRING  ADDRESS 
CONVERT  TO  RAD50 
STORE  DEVICE  NAME 


STORE  DUMP  ADDRESS 


STORE  DUMP  COUNT 
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52:16 
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A37A 

A375 

4576 

A377 

4378 

4379 

4380 

4381 

4382 

4385 

4384 

4385 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4394 

4395 

4596 

4597 

4598 

4599 

4400 

4401 

4402 

4405 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 


SETBLK  -  SET  LOCAL  FILE  NAME  DESCRIPTOR  BLOCK 

INPUTS  - 

DEV8UF  -  DEVICE  STRING 

UIC8UF  -  UIC  STRING 

FIL8UF  -  FILE  NAME  STRING 


OUTPUTS 


016040 
016042 
016046 
016052 

016056 
016060 
016062 
016064 

016070 
016074 
016076 
016100 
016104 
016110 
016114 
016116 

016122 
016126 
016132 
016134 
016140 
016144 
016150 

016152 


010546 
012700 
012701 


005020 
105020 
005001 
116701 

012702 
005003 
060103 

116701 
012702 
060105 


116701 
012702 
060103 

062703 
010367 
012603 


SET8LK:  MOV 

R3,-(SP) 

000266' 

MOV 

#FN8UFF,R0 

000044 

MOV 

#FN8SZ,R1 

CALL 

IN18UF 

CLR 

(R0)  + 

CLR8 

(RO)* 

CLR 

R1 

000242' 

M0V8 

DEVBUF.Rl 

000242' 

MOV 

#DEV8UF,R2 

CLR 

R5 

ADD 

R1,fi5 

CALL 

M0V8UF 

000206' 

MOVB 

U]C8UF,R1 

000206' 

MOV 

#U]C8UF,R2 

ADD 

R1,R5 

CALL 

M0V8UF 

000222' 
000222' 


000006 
000264' 


MOVB 

MOV 

ADD 

CALL 

ADD 

MOV 

MOV 

RETURN 


FIL8UF,R1 

#FILBUF,R2 

R1,R3 

MOVBUF 

*fNBEXT,R3 

R5,FNBLN 

(SP)+,R5 


FNBUFF  -  SET  UP  IN  A  FILE  NAME  BLOCK  FORMAT 


SAVE  R5 

GET  BUFFER  ADDRESS 

GET  BYTE  SIZE 

INIT  LOCAL  FN8  BUFFER 

ZERO  NEXT  BLOCK  POINTER 
ZERO  USAGE  COUNT 
INIT  BYIE  COUNT 
GET  FIELD  SIZE 

GET  FIElD  ADDRESS 
INIT  TOTAL  STRING  SIZE 
DETERMJNE  FNB  SIZE 
MOVE  DEVBUF  FIELD 
GET  FIELD  SIZE 
GET  FIELD  ADDRESS 
UPDATE  FND  SIZE 
MOVE  NEXT  FIELD 


GET  FIELD  SIZE 

GET  FIELD  ADDRESS 

UPDATE  FNB  SIZE 

MOVE  NEXT  FIELD 

INCLUDE  FNB  LINK  WORD, USAGE  AND  LEN  BYTES 

STORE  FNB  LENGTH 

RESTORE  R5 
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VNll  -  V 
REQUEST 

486? 
^868 
4869 

A871 
^^872 
A875 
/.87A 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
488? 
4883 
4884 
4885 
4886 
4887 


NP  NETWORK  INITIAL  IMTl  MACRO  V05.05b  Saturday  29-Jun-85 
NETLOADBR  TO  RUN 


0?;46 
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'^20^40 
020144 
020152 
020156 
020156 

020164 
020164 


052767 
000167 


0000006  OOOOOOG 
OOOOOOG 


REQNTL: 


042767  OOOOOOG  OOOOOOG 


000001 


SRSNTI; 


.S8TTL  REQUEST  NETLOAOER  TO  RUN 

•*-REQNTL-REQUEST  NETLOADER  TO  RUN 

THE  NETLOADER  REQUEST  BLOCK  HAS  BEEN  CORRECTLY  SET  UP, 
DATA  BLOCK  TO  THE  NETLOADER  AND  REQUEST  IT  TO  RUN. 


SEND  THE 


OUTPUTS; 


C-BIT  IF  NETLDR  IS  NOT  INSTALLED 


CALL 

BIS 

JMP 

'bic 

.MCALL 
VNPBPT 
RETURN 


.END 


$SAVAL 

#VF.NTI,$VFLAG 

SVRQB 

#VF.NTI,SVFLAG 

VNP6PT 

RNTi 


SAVE  ALL  REGISTERS 

SET  NTINIT  MODE 

JUMP  TO  ROOT  TO  PROCESS  REQUEST 

DON'T  LEAVE  BITS  LVING  AROUND 
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VNCP      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:44 
SVM30L  CROSS  REFERENCE 


SYMBOL  VALUE 


FORWR 

F.RSIZ 

F.UP3D 

GBUF 

GETFAL 

GETLIN 

GLEN 

GMSG 

IE. EOF 

IFALIT 

IFLOGT 

IFMODT 

ILLARE 

ILLCOS 

ILLCSR 

ILLINA 

ILLINC 

ILLMAC 

ILLMOE 

ILLNAD 

ILLOBJ 

ILLOUT 

ILLPRl 

ILLRET 

ILLSEG 

ILLTRI 

ILLUCS 

ILLVEC 

lO.WLB 

IVDTEA 

IVLIID 

I$$AS 

KEYTAB 

LACCTT 

LBDGRP 

LBDHEL 

LBDLIS 

LCNUMT 

LCRLF 

LOTEAT 

LD.ALl 

LD.CEX 

LD.CIR 

LD.LIN 

LD.LOG 

LD.MOD 

LD.NOD 

LD.OBJ 

LD.PRC 

LF.MTP 

LGE'-Fi 

LILLAR 


0045U  R 

r  ****** 

::  ****** 

=  00004A  R 
00U51  R 
0063K 

=  000046  R 
000030  R 

r  ****** 

002152  R 
002156  R 
002162  R 
002312  R 
000607  R 
000455  R 
002514 
002403 
001037 
001105 
000137 
001253 
002561 
000507  R 
002446  R 
002344  R 
001213  R 
001000  R 
000550  R 


GX 
GX 


GX 


002225  R 
001407  R 

-  ***♦♦♦ 
=   ****** 

=  000035 
=  000041 
=  000034 
=  000035 
=  000042 
=  000006 
=  G00033 
=  000030 
=  000024 
=  000035 
=  000025 
=  000031 
=  000037 
=  000027 
=  000032 
=  000026 

=  000041 
=  000032 


GX 


GX 


GX 


REFERENCES 

7-977 
♦7-549 
•7-780 
#5-113 
#5-170 

7-1203 
#5-114 
#5-112 

6-249 

7-593 

7-590 

7-610 
#5-184 
#5-157 
#5-154 
#5-188 
#5-186 
#5-162 
#5-163 
#5-147 
#5-166 
#5-189 
#5-155 
#5-187 
#5-185 
#5-165 
#5-161 
#5-156 

5-106 
#5-182 
#5-169 

9-1355 

6-211 
#5-171 
#5-178 
#5-179 
#5-180 
#5-152 
#5-144 
#5-183 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 
#5-61 

7-1205 
#5-170 
#5-184 


7-985 

•7-781 

•7-782 

5-114 

5-170 

7-1239 

♦6-221 

5-113 

#7-627 
#7-628 
#7-629 
5-184 
5-157 
5-154 
5-188 
5-186 
5-162 
5-163 
5-147 
5-166 
5-189 
5-155 
5-187 
5-185 
5-165 
5-161 
5-156 
5-112 
5-182 
5-169 


7-473 
7-396 
7-574 
7-655 
7-456 
6-221 
7-522 
7-627 


7-628 
7-629 


7-K'r5 

6-251 

7-772 


#7-1041 

♦7-953 

•7-952 

♦6-220 

6-251 

7-1271 

•6-225 

6-222 


7-772 

7-425 

7-438 

7-712 

7-690 

7-667 

7-679 

-'-797 

7-825 

7-701 

7-881 

7-723 

7-942 

7-1221 

7-926 

7-1262 

7-517 
7-1248 


7-584 
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CREF        04.00 


♦7-1004         ^7-1065 
•7-954  •7-1003 

•6-224  ^6-230 


#11-1395 
♦6-226 
6-228 


♦6-231 
6-232 


•8-1317 
•7-1005 
♦6-239 


♦6-240 
6-241 


♦7-1064 


♦7-1066 


7-969 


7-1021 


7-1083 


iiM-a'^    AT   nD././. 
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MACRO  DEFINITIONS 


55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69  000000 

70 

71 

72 

73 

74 

75 

76 


.SBTTL  MACRO  DEflNlTIONS 
**** 
MACRO  CALLS 


.MCALL  GETRV,ERMSG$,ERRPT$,ERBLK$,VNPDF$,ASR$ 

.IF  DF  R$$MPL 

.MCALL  SCBDFS.KRBDFS 

.ENDC 


.ENABL  LC 

VNPDFS 

.IF  DF  R$$MPL 

SCBDFS  <:>,,G 

KRBDFS  <:> 
.ENDC 


DEFINE  REQUEST  BLOCK  OFFSETS  AND  FUNCTION  CODES 


DEFINE  see  OFFSETS 
DEFINE  KRB  OFFSETS 


CMPOn 
[MPOl] 
[MP01] 
[MPOl] 


ITl  IM    MC  T  i.inDi- 


rnWIMAMh     D     MATDn     \lC\^     (T^h     ^atiiri^iiv     PO- 


,in-RS    h?     ■ 


L^       Panp    f\ 
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467 
A68 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 


001222 

001222  000261 

001224  005303 

001226  002407 

001230  012500 

001232  116001  OOOOOOG 

001236  066701  OOOOOOG 

001242  011101 

001244  000241 

001246 


.S8TTL  NXTLIN  -  GET  THE  NEXT  LINE  IN  THE  SYSTEM 

••-NXTLIN-GET  THE  NEXT  LINE  IN  THE  SYSTEM 

INPUTS: 

R3  =  NUMBER  OF  SLT'S  LEFT  TO  SCAN 
R5  =  POINTER  INTO  SLT  MAPPING  TABLE 

OUTPUTS: 

C-BIT  =  SUCCESS/FAILURE 
RO  =  SLT  ADDRESS 
R1  =  ADDRESS  OF  DDM  PDV 
R5  =  UPDATED  TO  NEXT  LINE 


ASSUME  FAILURE 

ANY  MORE  LINES  LEFT  ? 

IF  LT,  NO 

ELSE,  GET  SLT  ADDRESS 

GET  DDM  PDV  INDEX 

POINT  INTO  PDV  INDEX  TABLE 

GET  ADDRESS  OF  PDV 

INDICATE  SUCCESS 


NXTLJN: 

SEC 

DEC 

R3 

BLT 

10$ 

MOV 

(R5)t,R0 

HOVB 

L.DDM(R0),R1 

ADD 

$PDVTA,R1 

MOV 

(R1),R1 

CLC 

10$: 


RETURN 


/IDTilAl      MCTunDr      mMMAMH 
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CREF   OA.OO 


SYMBOL  VALUE 


AIC 

CIRTAB 

CLEAR 

CL.OPN 

CNER1 

ECHO 

ECH2 

ECH3 

FL.DDM 

FL.DLC 

FL.LLC 

FL.PX1 

FL.PX2 

FTAB 

F.RSIZ 

1$$AS 

LOLIN 

LD.ALI 

LD.CEX 

LD.CIR 

LD.LIN 

LD.LOG 

LD.MOD 

LD.NOD 

LD.OBJ 

LD.PRO 

LF.RDY 

LINTAB 

LNER1 

LNER2 

LO.AOD 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.CDS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EVT 

LO.GRO 

LO.HOS 

LO.HTM 

LO.INA 

LO.INC 

LD.LDT 

LO.LID 

LO.LIN 

LO.LTM 

lO.MAC 

LO.MDE 


002A70 
002174 


001604  R 
****** 

000102 
001250 
00U72 
001 5A6 

*■*■**** 
****** 
****** 
****** 
****** 
001124 


GX 
R 
R 
R 
R 


r  ****** 
=     ****** 

002320 
=  000030 
=  000024 
=  000035 
=  000025 
=  000031 
=  000037 
=  000027 
=  000032 
=  000026 

=   ****** 

002312 
000024 
000052 
000022 
000052 
000002 
000006 
000010 
000020 
000010 
000032 
000002 
000047 
000004 
000024 
000040 
000032 
000062 
000060 
000046 
000030 
000004 
000034 
000022 
000024 


GX 
GX 
GX 
GX 
GX 

GX 


GX 

R 
R 
R 


REFERENCES 

17-651 

17-637 

15-520 

11-279 
#6-88 

11-290 

15-521 

15-533 

20-781 

20-781 

16-579 

16-575 

17-658 

11-293 
•20-790 

15-526 

18-696 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 

17-664 

18-698 
#6-84 
#6-86 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 


19-736 

#17-670 

15-532 

12-390 

#15-511 

#15-542 

#15-544 

20-782 

20-782 

19-743 

19-754 

#13-435 


#19-733 


#18-712 
10-261 
10-262 


5-69 
5-69 


19-747         #20-779 
#15-551 


ror.  ATFn   nv     WATRn     OM  PQ-lilN-RS   AT   02:45 
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CREf   OA.OO 


SYMBOL   VALUE 


D.DSP 

O.NAM 

D.PCB 

D.UCB 

D.UCBL 

O.UNIT 

D.VPWF 

LSBBLK 

LSBEXT 

L$BFLG 

LSBHRB 

LSBLDZ 

LSBMX2 

LSBPAR 

L$BSA 

LIBXFR 

P.BLKS 

P. BUSY 

P. IOC 

P.LNK 

P. MAIN 

P.NAM 

P.  OWN 

P.PRI 

P.REL 

P. SIZE 

P.STAT 

P.  SUB 

P.TCB 

R$$MPL 

S.CON 

S.LHD 

TSSNHD 

UC.PWF 

U.CTL 

U.DCB 

U.RED 

U.SCB 


000012 
OOOOOA 
00003^!. 
000002 
000010 
000006 
000006 
000360 
000352 
000030 
000356 
000016 
000020 
OOOOOA 
000010 
000350 
000016 
00002A 
000003 
000000 
000012 
OOOOO-i 
000026 
000002 
OOOOU 
000016 
000030 
000010 
000026 

:  ****** 

000010 
000000 

:  040000 

:  000020 
000001 
000000 
000002 
000020 


REFERENCES 

5-61 

5-61 

5-61 

5-61 

5-61 

5-61 

5-61 

5-68 

5-67 

5-67 

5-67 

5-67 

5-67 

5-68 

5-67 

5-68 

5-91 

5-88 

5-92 

5-92 

5-91 

5-92 

5-91 

5-92 

5-91 

5-92 

5-91 

5-92 

5-92 

5-87 

5-74 

5-74 

5-67 

5-80 

5-80 

5-80 

5-80 

5-80 
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8-3 


377  000560 

378  000564 

379  000570 

380  000572 

381  000574 

382  000600 
385  000604 

384  000610 

385  000612 

386  000614 

387  000616 

388  000620 

389  000624 

390  000630 

391  000634 

392  000636 

393  000640 

394  000642 

395  000644 

396  000646 

397  000650 

398  000652 

399  000654 

400  000656 

401  000662 

402  000666 

403  000706 

404  000712 
405 

406 
407 

408  000714 

409  000720 

410  000724 

411  000726 

412  000752 
415  000754 

414  000736 

415  000742 

416  000746 

417  000752 

418  000756 

419  000776 

420  001000 
421 

422  001002 

425 

424  001002 

425 

426 

427  001006 

428 

429 

430 

451 

^52 

433 


016705 
005067 
005202 
005303 
005067 
005067 
016704 
001436 
010246 
060302 
160402 
010267 
005267 
010267 
160403 
012602 
006504 
006304 
006304 
006304 
006504 
006504 
000241 
005067 
010467 


OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
OOOOOOG 
OOOOOOG 


OOOOOOG 
000002G 


005767  OOOOOOG 
100440 


005067 
005767 
001053 
016704 
005304 
005422 
010267 
010267 
005067 
010467 

060402 
160405 


OOOOOOG 
OOOOOOG 

0000006 


OOOOOOG 
0000006 
OOOOOOG 
000002G 


137$: 


MOV 

P8L0X,R3 

CLR 

SPAVL 

INC 

R2 

DEC 

R5 

CLR 

SXBIAS 

CLR 

$XAVL 

MOV 

. ALLOC, R4 

BEQ 

137$ 

MOV 

R2,-(SP) 

ADD 

R3,R2 

SU8 

R4,R2 

MOV 

R2,$XBIAS 

INC 

$XAVL 

MOV 

R2,$R8LCK 

SUB 

R4,R3 

MOV 

(SP)+,R2 

ASL 

R4 

ASL 

R4 

ASL 

R4 

ASL 

R4 

ASL 

R4 

ASL 

R4 

CLC 

CLR 

SBFR 

MOV 

R4,$8FR+2 

PUTAD 

#0,*4 

TST 

.MGEXT 

BMI 

150$ 

MAPPED 

SYSTEM 

CLR 

SNBIAS 

TST 

UMRFLO 

BNE 

150$ 

MOV 

N0NMAP,R4 

DEC 

R4 

BLE 

140$ 

MOV 

R2,$N8IAS 

MOV 

R2,$RBLCK 

CLfi 

$8FR 

MOV 

R4,$8FRf2 

PUTAD 

#0,#4 

ADD 

R4,R2 

SUB 

R4,R5 

140$: 


160267  OOOOOOG 


016767  OOOOOOG  OOOOOOG 


sue 


R2,PUMR 


.IF  NDF  R$$MPL 

MOV  PUMR,$PUMR 

.IFF 

TST  .MPRO 

BPL  145$ 

SWTCHO  #PUMR 

PUTRC  .PUMRP,*2 


AND  SIZE 

ASSUME  NO  FREE  SPACE  IN  N^POOL 

ADJUST  FOR  NETLDR  DATA  BLOCK 

ASSUME'nO  EXTENDED  POOL 

GET  LENGTH  OF  EXTENDED  POOL 
BR  IF  NONE 

SAVE  ADDRESS  OF  BEGINNING  OF  POOL 
POINT  TO  END  OF  AVAILABLE  POOL 
POINT  TO  BEGINNING  OF  EXTENDED  POOL 
STORE  EXTENDED  POOL  BIAS 
INITIALIZE  FIRST  AVAILABLE  BLOCK 
GET  START  OF  BYTE  AREA  POOL  FOR  I/O 
CALCULATE  LENGTH  OF  REMAINING  POOL 
RESTORE  BEGINNIN6  OF  POOL  ADDRESS 
CONVERT  BLOCKS  TO  BYTES 


NO  NEXT  BLOCK 
SIZE  OF  THIS  BLOCK 
INITIALIZE  POOL 
11/70  TARGET  SYSTEM? 
IF  MI,  NO 


ZERO  NON-UMR  MAPPED  PTR 

HAVE  UMR'S  BEEN  DISABLED? 

IF  NE,  YES 

GET  SIZE  OF  NON-UMR  MAPPED  AREA 

LESS  1  FOR  NETLDR  DATA  BLOCK 

IF  NONE  LEFT,  SKIP  IT 

SETUP  NON  MAPPED  PTR  VALUE 

MAP  TO  FIRST  FREE  SEGMENT 

NO  NEXT  SEGMENT 

LENGTH  OF  THIS  SEGMENT 

INITIALIZE  NON-MAPPED  POOL 

ADJUST  STARTING  BIAS 

AND  SIZE 


CALCULATE  PUMR  VALUE 
CALCULATE  UMR  ADDRESS  CONSTANT 


MULTI-PROCESSOR  ? 

IF  YES  -  BRANCH 

SET  OUTPUT  BUFFER 

UPDATE  $PUMR  CELL  IN  LOWCR 


; CMPOI ] 
CMP01] 


[MPOn 
CMPOI] 
[MP01] 
CMPOI] 
[MP01] 
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985 
98A 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 


26$: 


003340  016700  OOOOOOG 
003344  001407 
003346  010002 


003350 

003354  012701 

003360 

C03364 


000014 


27$: 


28$: 


30$: 


SWTCHJ 

MOV 

BLE 

MOV 

MOV 

DEC 

ASL 

ADD 

SWTCHI 

GETRV 

SWTCHI 

MOV 

MOV 

BIS 

GETAD 

SWTCHI 

MOV 

BED 

CLR 

SWTCHO 

PUTAD 

SWTCHO 

MOV 

CALL 

MOV 

CALL 

MOV 

DEC 

BGT 

BR 

.ENDC 

MOV 

BEQ 

MOV 

CALL 

MOV 

CALL 

RETURN 


.MPRO.RO 

28$ 

R0,R2 

RO,-(SP) 

R2 

R2 

.K6TAB,R2 

#$CPBIA 

R2,#2 

#UMRPTR 

$CP6IA,$RBLCK 

.UMRPT,R2 

#1 20000, R2 

R2,#2 

UMRPTR.RO 

27$ 

UMRPTR 

#UMRPTR 

R2,#2 

R0,R2 

$DEUMR 

#M.LGTH,R1 

$DEA16 

(SP)+,RO 

RO 

26$ 

30$ 


UMRPTR, RO 

30$ 

R0,R2 

$DEUMR 

#M.L6TH,R1 

$DEA16 


USE  $BFR  BUFFER 

GET  ADDRESS 

BR  IF  SINGLE  PROCESSOR  SYSTEM 

COPY  PROCESSOR  NUMBER 

SAVE  THE  PROCESSOR  NUMBER 

CHANGE  NUMBER  OFFSET  TO  ZERO 

MAKE  IT  INTO  A  WORD  OFFSET 

POINT  INTO  THE  CPU  AREA  TABLE 

SET  TO  READ  INTO  THE  CPU  AREA  POINTER 

GET  BIAS  OF  CPU'S  OWN  AREA 

SET  TO  READ  INTO  UMR  BLOCK  POINTER 

SET  THE  APRS  BIAS 

GET  THE  UMR  BLOCK  POINTER  OFFSET 

MAKE  SURE  ITS  PAST  APRS 

READ  THE  UMR  BLOCK  POINTER 

RESET  TO  DEFAULT  INPUT  BUFFER 

GET  THE  ADDRESS 

BR  IF  NO  UMR  BLOCK  FOR  THIS  CPU 

SET  A  LOCATION  TO  ZERO 

SET  TO  WRITE  FROM  IT 

ZERO  OUT  THE  UMR  BLOCK  POINTER 

RESET  TO  DEFAULT  OUTPUT  BUFFER 

COPY  UMR  BLOCK  ADOR  FOR  DEALLOCATION 

UNLINK  THE  UMR  BLOCK 

GET  LENGTH  OF  UMR  BLOCK 

DEALLOCATE  THE  UMR  BLOCK 

RECOVER  THE  CPU  NUMBER 

NEXT  CPU 

BR  IF  MORE 

FINISHED 


GET  UMR  BLOCK  ADDRESS 
IF  ZERO,  DO  NOTHING 
COPY  BLOCK  ADDRESS 
DE-ASSIGN  UMR'S 
GET  BLOCK  LENGTH 
DE-ALLOCATE  UMR  BLOCK 
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ACTION  ROUTINES  FOR  ESTIMATING  NTPOOL  SIZE 


LLCSDF  ACTION  ROUTINES  FOR  POOL..  SIZE  CALCULATION 


K92 
1493 
149A 
1495 
1496 
1497 

1499  004600  016767  OOOOOOG  000066'  XPCIR:  MOV     .PNUMB,XPTLLN 

1500  004606  RETURN 
1501 

1502  004610  016767  OOOOOOG  000070'  ECLLK:  MOV     .PNUMB.ECLLLN 

1503  004616  RETURN 

1505  004620  016767  OOOOOOG  000072'  NODC:   MOV     .PNUMB.ECLNOD 

1506  004626  RETURN 
1507 

1508  004630  066767  OOOOOOG  000104'  BRADJT:  ADD     .PNUMB.RAD 

1509  004636  RETURN 
1510 


;  STORE  XPT  CIRCIUT  COUNT 

;  STORE  MAX  LOGICAL  LINKS 

;  STORE  NUMBER  Of  NODE  COUNTERS 

;  ADJUST  TOTAL  ROUTER  ADJACENCIES 
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1924 
1925 
1926 
1927 
1928 

1929  00632A 

1930  006324 

1931  006324 

1932  006324 

1933  006324 

1934  006324 

1935  006324 

1936  006324 

1937  006324 

1938  006324 

1939  006324 

1940  006324 

1941  006324 

1942  006324 

1943  006324 

1944  006324 

1945  006324 

1946  006324 

1947  006324 

1948  006324 

1949  006324 


.SBTTL  LLCSDf ,DLC$DF,DDM$DF  PARSE  TABLES 

STATE  TRANSITIONS  FOR  THE  'LLCSDF',  'DLCSDF'  AND  'DDMSDF'  MACROS 


STATES 

PRODF 

TRANS 

SRAD50,,.PRONM 

STATES 

TRANS 

<',> 

STATES 

PROFLG 

TRANS 

'!,PROFLG 

TRANS 

<',>,PR0DF1 

TRANS 

lEND.SEXlT 

TRANS 

XZF.MFLX, PROFLG,. PROMF 

TRANS 

SRADSO, PROFLG 

STATES 

PRODF 1 

TRANS 

SNUM8R 

STATES 

TRANS 

IEND,SEXIT 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMSR 

STATES 

TRANS 

:end,sexit 

TRANS 

<',>,SEXIT 

STATES 

VNTI 
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SUB-EXPRESSION  PARSE  TABLES 

2322 

2325 

2324 

2325 

2326 

2327 

2328 

2329  00632A 

2330 

2331 

2332  006324 

2333  006324 

2334  006324 

2335  006324 
2336 

2337  006324 

2338  006324 

2339  006324 
2340 

2341  006324 

2342  006324 

2343  006324 
2344 

2345  006324 

2346  006324 

2347  006324 
2348 

2349  006324 

2350  006324 

2351  006324 
2352 

2353  006324 

2354  006324 
2555  006324 
2356 

2357  006324 

2358  006324 

2359  006324 
2360 

2361  006324 

2362  006324 

2363  006324 
2364 

2365  006324 

2366  006324 
2367 

2368  006324 

2369  006324 
2370 


FILSDF  STATE 

TABLE 

ISTATS 

CFGST.CFGKW 

STATES 
TRANS 
TRANS 
TRANS 

FILDF 

SE0S,SEXIT 
<',>,TER 
IFILSPC.FLBKO 

STATES 
TRANS 
TRANS 

SEOS.SEXIT 
<'  ,> 

STATES 
TRANS 
TRANS 

TER 

<',>,L0A 
IFJLSPC.FLBKl 

STATES 
TRANS 
TRANS 

SEOS.SEXIT 

STATES 
TRANS 
TRANS 

LOA 

<',>,DIA 

!FILSPC,,.FLBK2 

STATES 
TRANS 
TRANS 

SEOS.SEXIT 

STATES 
TRANS 
TRANS 

DIA 

<',>,DUM 

IFILSPC,,.FLBK3 

STATES 
TRANS 
TRANS 

SEOS.SEXIT 
<'  ,> 

STATES 
TRANS 

DUM 
IFILSPC.,.FLBK4 

STATES 
TRANS 

SEOS.SEXIT 
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2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 


.S8TTL  ACTION  ROUTINE:  SLTSDF  MACRO  SEEN 

»«-.SLTDf-SLT$DF  MACRO  SEEN 

A  DEFINTION  OF  ANOTHER  SYSTEM  LINE  TABLE  ENTRY  HAS  BEEN  SEEN. 
SINCE  THE  SYSTEM  LINES  ARE  ORDERED  WE  CAN  JUST  INCREMENT  THE 
COUNT  OF  SYSTEM  LINES  SEEN  SO  FAR. 


006562  005267  OOOOOOG        .SLTDF:  INC     SLTNUM 
006566  012767  177777  000056"        MOV     #-1,STAN 
006574  RETURN 


MOVE  ON  SYSTEM  LINE  # 
INITIALIZE  STATION  NUMBER 


VNTl  -  VNP  NETWORK,  INITIALIZATI  MACRO  V05.05b  Saturday  29-Jun-85 


02:46 


Page  58 


K  12 

NTl   -  VNP  NETWORK   INITIALIZATI   MACRO  V05.03b   Saturday  29-Jun-85   02:«6     Page  68 
ACTION   ROUTINE:    REMOTE   NODE   NAME   SEEN 


3117 
3118 
3119 
3120 
3121 
3122 
3123 
312^ 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
31 3A 
3135 
3136 
3137 
3138 
3139 
3U0 
3U1 
3U2 
3K3 
31A4 
3U5 
31'.6 


.SBTTL     ACTION  ROUTINE:    REMOTE  NODE   NAME   SEEN 

'***   -   .RNAME   -  REMOTE   NODE  NAME   SEEN 

INPUTS: 

.PSTPT  =  ADDRESS  OF  REMOTE  NODE  NAME 
.PSTCN  =  LENGTH  OF  REMOTE  NODE  NAME 


OUTPUTS: 

NAME 


THE  REMOTE  NODE  NAME 


011254 
011260 
011264 
011266 
011270 
011276 
011300 
011304 
011310 
011312 
011316 
011320 


011322 
011326 


012700 
012710 
012010 
012010 
022767 
103411 
012700 
016701 
112120 
005367 
003374 


000030" 
020040 


.RNAME: 


000006  OOOOOOG 

000030' 
OOOOOOG 

OOOOOOG 


10$: 


MOV 

MOV 

MOV 

MOV 

CMP 

BLO 

MOV 

MOV 

M0V8 

DEC 

BGT 

RETURN 


#NAME,RO 

#"  ,(R0) 

(R0)+,(R0) 

(RO)+,(RO) 

#6, .PSTCN 

10l$ 

#NAME,RO 

. PSTPT, R1 

(R1)+,(R0)t 

.PSrCN 

10$ 


PLACE  TO  STORE  NODE  NAME 
PAD  NODE  NAME  WITH  BLANKS 


IS  THE  NODE  NAME  THE  RIGHT  LENGTH 

IF  LO,  NO 

STORE  THE  NODE  NAME 


062716  000002 


ERROR  CONDITIONS 

101$:   ADD     #2,(SP) 
RETURN 


LOOP  <.PSTCN>  TIMES 


REJECT  TRANSITION 
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FINFIL    -   FIND   PLACE    TO    INSERT    FILTER  BLOCK 


3519 

3520 

3521 

3522 

3523 

352A 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

353A 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 


0T31O4 
013110 
013114 
013116 
013122 
013130 
013136 
013140 
013152 
013170 
013174 
013176 
013202 
013204 


012702 
011267 
010146 
010267 
016767 
016767 
001417 


021667 
101352 
016701 
005726 


OOOOOOG 
OOOOOOG 

000004' 

000004'  000002' 
OOOOOOG  000004' 


.SBTTL  FINFIL  -  FIND  PLACE  TO  INSERT  FILTER  BLOCK 


FINFIL  -  FIND  PLACE  TO  INSERT  FILTER  BLOCK 

INPUTS: 

R1  -  EVENT  CLASS  NUMBER 

OUTPUTS: 

RO  -  PRESERVED 

R1  -  UNMAPPED  ADDRESS  OF  PREVIOUS  BLOCK 

R2  -  DESTROYED 


FINFIL: 


10$: 


000002G 
000002' 


20$: 


30$: 


MOV 

#$FILHD,R2 

MOV 

(R2),$aFR 

MOV 

R1,-(SP) 

MOV 

R2,CURUNM 

MOV 

CURUNM.PRVUNM 

MOV 

$BFR,CURUNM 

BEQ 

30$ 

CEACC$ 

CUfiUNM,R2 

GETAD 

R2,*F.LEN 

CMP 

(SP),$BFR<-F.CLS 

BHI 

10$ 

MOV 

PRVUNM.RI 

TST 

(S(  * 

POINT  TO  START  OF  LIST 

GET  FIRST  OBJECT  IN  LIST 

SAVE  CLASS  NUMBER 

INIT  UNMAPPED  ADDR  OF  CURRENT  BLOCK 

SAVE  UNMAPPED  ADDRESS  OF  PREVIOUS 

GET  NEXT  BLOCK  IN  LIST 

BR  IF  END  OF  LIST 

CONVERT  TO  MAPPED  ADDRESS 

READ  FILTER  BLOCK  INTO  INTERNAL  BUFFER 

DOES  FILTER  GO  HERE? 

BR  IF  NO 

RETRIEVE  UNMAPPED  ADDRESS  OF  PREVIOUS 

CLEAN  UP  STACK 


RETURN 
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3925 
392'!. 

SERSLN  -  DETERMINE  SLN/STA  VALUE 

3925 

3926 

INPUTS  - 

3927 

CIRNAM 

-  DEVICE  NAME  (ASCII  STRING' 

3928 

CIRNUM 

-  DEVICE  UNIT/CONTROLLER  NUMBER 

3929 

CIRMUL 

-  DEVICE  TRI8  NUMBER 

3930 

3931 

OUTPUTS  - 

3952 

SERSLT 

-  CONTAINS  SLN/ST^ 

VALUE 

3955 

595A 
5955 

- 

014460 

010346 

SERSLN::M0V 

R3,-(SP) 

SAVE  REG 

5936 

014462 

012700 

000150' 

MOV 

#CIRNAM,RO 

GET  DEVICE  STRING 

3957 

014466 

CALL 

SCATS 

CONVERT  TO  RAD50 

5958 

014472 

CALL 

FPDV 

FIND  DEVICE  DDM  PDV  INDEX 

3939 
59A0 

014476 

010100 

MOV 

Rl.RO 

GET  DDM  PDV  INDEX 

5941 
59A2 
5943 

014500 

005001 

CLR 

R1 

GET  CONTROLLER  NUMBER 

014502 

116701 

000154' 

MOVS 

CIRNUM, R1 

■  •  • 

3944 

014506 

005002 

CLR 

R2 

GET  UNIT  NUMBER 

5945 

014510 

116702 

000254' 

MOVS 

CIRUNT,R2 

5946 

014514 

CALL 

FSLT 

GET  SLN 

5947 
3948 

014520 

116767 

000156'  000263' 

M0V8 

CIRMUL, SERSLT+1 

STORE  STATION  NUMBER 

3949 

014526 

012603 

MOV 

(SP)+,R3 

RESTORE  REG 

5950 

3951 

014530 

RETURN 

3952 

3955 

5954 

5955 

5956 

;  + 

5957 

;  SERINI  -  INIT 

SERVICE  DATA  BASE  BUFFERS 

5958 

5959 

;  INPUTS  - 

5960 

NONE 

5961 

5962 

;  OUTPUTS  - 

3965 

SERSDF 

BUFFERS  INITIALIZED 

3964 
5965 
5966 

;- 

014532 

012700 

000110' 

SERINI ::MOV 

#SER8EG,R0 

;  GET  START  OF  BUFFERS 

5967 

014536 

005020 

5$:     CLR 

(R0)  + 

;  CLEAR  ONE  WORD 

5968 

014540 

022700 

000266' 

CMP 

#SERFIN,R0 

;  CHECK  FOR  END 

3969 

014544 

001374 

BNE 

5$ 

;  IF  MORE  -  BRANCH 

5970 

597- 

014546 

RETURN 

3972 

59^5 

5974 
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vNTi  -  vNP  n: 

FlL$Cif/SER$DF 

4416 
4417 
4418 
4419 
4420 
4421 
4422 
4425 
4424 
4425 
4426 
4427 
4428 
4429 
4430 

4431  016154 

4432  016156 

4433  016162 

4434  016166 
4435 

4436  016170 

4437  016172 
4438 

4439  016174 
4440 

4441  016176 

4442  016200 

4443  016204 

4444  016210 
44^,5  016214 

4446  016216 

4447  016220 
4448 

4449  016222 

4450  016224 

4451  016234 
4452 

4453  016252 

4454  016260 

4455  016300 
4456 

4457  016306 

4458  016312 

4459  016314 

4460  016316 

4461  016320 

4462  016322 

4463  016324 

4464  016326 
4465 

4466  016332 

4467  016340 

4468  C16360 

4469  016566 
4470 

4471  016370 
4472 
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.S8TTL   CRFNBK  -  CREATE  FILENAME  DESCRIPTOR  BLOCK 

CRFN8K  -  CREATE  FILE  NAME  BLOCK 
INPUTS  - 


OUTPUTS 


FNBUFF  -  LOCAL  COPY  OF  FNB  DATA 
FN8LN  -  SIZE  OF  THIS  FNB 


FILNAME  DESCRIPTOR  BLOCK  CREATED 

RO  -  UNMAPPED  ADDRESS  OF  FILENAME  BLOCK 


016701  000264' 

103003 

000261 


010003 

012700  OOOOOOG 

016701  000264' 

012702  000266' 

112220 

005301 

001575 

010300 


012702  000034G 

010500 

005712 

001002 

010201 

000401 

011201 


CRFNBK:  SAVRG  <R3> 

MOV  FNBLN.RI 

CALL  $ALPOL 

BCC  10$ 


SAVE  REG 

GET  FNB  SIZE 

ALLOCATE  FNB 

;f  SUCCESS  -  BRANCH 


SEC 
RESRG 

<R3>          ; 

RETURN 

10$: 
15$: 

MOV 
MOV 
MOV 
MOV 

Move 

DEC 
BNE 

R0,R3         ; 

#$8FR,R0 

FN8LN,R1 

#FNeUFF,R2 

(R2)+,(R0)t 

Rl 

15$ 

MOV 

CEACC$ 

PUTAD 

R3,R0 

RO 

RO.FNBLN 

SWTCHI 

GETRV 

SWTCHI 

#$HM8UF 
$DECPT,*D$END 

20$: 
25$: 

MOV 

MOV 

TST 

BNE 

MOV 

BR 

MOV 

CALL 

#$HMBUFtD$FNB,R2 
R5,R0 

(rJ) 

20$ 

R2.R1 

25i 

;R2),R1       ; 

QINS 

SWTCHO 
PUTRC 
SWTCHO 
RESRG 

#$HM8UF 
$DECPT,#D$END 

<R5>         ; 

RETURN 


IF  NHT  ■ 
RESTC-iE 


SET 
REG 


C-BIT 


SAVE  UNMAPPED  ADDRESS 

GET  FNB  LENGTH 

GET  LOCAL  COPY  OF  NEW  FNB  DATA 

TRANSFER  DATA  FROM  LOCAL  FNB  BUFFER 

COUNT  ONE  LESS  BYTE 

IF  MORE  -  BRANCH 

RESTORE  BLOCK  ADDESS 

MAP  TO  BLOCK 

WRITE  BLOCK  TO  IMAGE 

SWITCH  INPUT  BUFFER 
READ  HOME  BLOCK 


■  GET  LISTHEAD 
COPY  UNMAPPED  BLOCK  ADDRESS 
IS  LIST  EMPTY  ? 
IF  NO  -  BRANCH 
COPY  LISTHEAD 
CONTINUE 

SET  FIRST  ENTRY  AS  PREVIOUS  ENTRY 
INSERT  BLOCK  INTO  LIST 

SWITCH  OUTPUT  BUFFER 
WRITE  HOME  BLOCK  TO  IMAGE 
SET  DEFAULT  OUTPUT  BUFFER 
RESTORE  REG 
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A 

ADDDF 

AS.DEL= 

AS.EXI= 

AS.RED= 

AS.URT= 

ATtACL= 

AT$ADN= 

ATSAUP= 

AT$cyc= 

ATtLVl= 

AT$LV2= 

AT$NEX= 

AT$UP  = 

A$CIR 

AtLEN 

A$NID 

AtTM 

ASTMl 

A$TSZ 

A$TYP 

AISCHK^ 

A$SCPS= 

A$$PRI= 

A$$TRP= 

A. IOC 

A.LGTH= 

A.MPCT 

A.PCB 

A.PCBL 

A.PRI 

A.STAT 

A.TCB 

A.TCBL 

B 

BRADF 

BRADJ 

BRADJJ 

BRADJ T 

BRADJ1 

BRADJ2 

BUFDF 

BUFLP 

BUFUMP= 

C 

CB.CCB= 

CB.DDM= 

CS.DLC= 

CB.RDB= 

CB.SDB= 

CB.SLI= 

CB.XLB= 

CC.LLC= 

CE.ABO= 

CE.DAO= 

CE.DIS= 

CE.ERR= 


0022UR 

001262R 

000010 

000004 

000001 

000002 

000100 

000040 

000020 

000004 

000002 

000001 

000200 

000010 

000003 

000004 

000000 

000003 

000002 

000000 

000002 

000000 

000000 

000000 

000000 

000003 

000014 

000011 

000012 

000000 

000002 

000010 

000004 

000006 

002234R 

000324R 

00n54R 

000450R 

004630R 

001166R 

000460R 

000664R 

000676R 

172354 

002252R 

000002 

000040 

000020 

000004 

000010 

000100 

000001 

000200 

100362 

100346 

100366 

100370 


003  CE.1LN= 
003  CE.LTO= 
CE.MOP= 
CE.NTE= 
CE.RTE= 
CE.SRC= 
CE.STP= 
CE.TME= 
CE.TMO= 
CE.UNS^ 
CFGKW 
CFGST 
CFSfLG= 
CF.CHN= 
CF.DDM= 
CF.DYN= 
CF.EIS= 
CF.EOM= 
CF.FRK= 
CF.HDR= 
CF.LB  = 
CF.LIN= 
CF.LOG= 
CF.MDM= 
CF.SOM= 
CF.SYN= 
CF.TIM= 
CF.TRN= 
CIRMUL 
CIRNAM 
C ] RNUM 
CIRUNT 
CLASS 
CLSMFL^ 
003  Ct.$SFL  = 
003  CL$TYP= 
""  CL.AST  = 
CL.ATT= 
CL.CAS= 
003  CL.CMT= 
003  CL.E1F= 
003  CL.EXN= 
003  CL.EXT= 
CL.IND= 
003  CL.LCC= 
CL.MU1= 
CL.MU2= 
CL.NPR= 
CL.OPN= 
CL.RES= 
CL.RNE= 
CL.XIT= 
CMODE  = 
CHPSTR 
CM$SET= 
CM.CIR= 
CM.FMT= 


003 
003 


100350 

100356 

100372 

100361 

100376 

100364 

100352 

100354 

100374 

100344 

0001 16RG 

001754RG 

iit**«it  GX 

000001 

000002 

000004 

000010 

000004 

100000 

000020 

100000 

C00002 

000020 

000001 

000010 

000040 

000400 

000100 

0001 56RG 

0001 50RG 

000154RG 

000254RG 

000042R 

000010 

000004 

000001 

004000 

000200 

020000 

000001 

000040 

040000 

000010 

000002 

000020 

000001 

000002 

000400 

000100 

177774 

000004 

100000 

140000 

015740R 

«»».««  GX 

000002 
100000 


004 


CM.HRD= 
CM.LIN= 
CM.LOO= 
CM.XLO= 
CP.DCF= 
CP.HDL= 
CP.PS  = 
CP.PS]= 
CP.XCF= 
CP.2fR= 
CRfNBK 
003  CRSUB 
CS.ABO= 
CS.8R0= 
CS.8UF= 
CS.CES= 
CS.CHN= 
CS.CMP= 
CS.DCR= 
CS.DEF= 
CS.DEV= 
CS.DIS= 
CS.ENA= 
CS.ENB= 
CS.ERR= 
CS.FTL= 
CS.HCR= 
CS.HFE= 
002  CS.LSr= 
002  CS.MTL= 
002  CS.RNG= 
002  :S.R0V= 
002  CS.RSN= 
CS.SHU= 
CS.SID= 
CS.STR= 
CS.SUC= 
CS.TMO= 
CS.XUR= 
CTL 

CURUNM 
CV$MSK= 
CV$31  = 
CV$32  = 
C\/$40  = 
C$$CKP= 
C$$ORE= 
C$$fiSH= 
C.ADD 
C.BID 
C.BUF 

csun 

C.SUF2 

C.CNT 

C.CNTl 

C.CNT2 

C.fLG 


000002 

000000 

000001 

000004 

000040 

000007 

177400 

000200 

000100 

000030 

016154R 

004640R 

000100 

000002 

000200 

000002 

000010 

000200 

000400 

000004 

000002 

000040 

000001 

000020 

100000 

001000 

000001 

002000 

040000 

004000 

000010 

000004 

010000 

000001 

000002 

000004 

000001 

020000 

000004 

000060R 

000004R 

000003 

000001 

000000 

000002 

000000 

000400 

177564 

000034 

000003 

000014 

000014 

000024 

000020 

000020 

000030 

000022 


C.FLG1 
C.FLG2 


ENC 
LIN 
LNK 
MOD 
NSP 
PRO 

C.RSV 

C. 

C. 


.STA 
.STS 
C.URM 
C.XACP 
C.XID 
C.XLEN 
C.XPLl 
C.XPT 
C.XSVC 
C.XTC 
C.X25 
D 

DADDR 
DCT 
DECDF 
DELE 
DELW 
DEV 

DEV8UE 
DEVIC 
DEVNM 
DFCNT  : 
DEPTR  = 
DFSIZ  = 
DFTBL 
DIA 
DUM 

DVSZ  = 
DSAMXC 
DSAMXH 
002  D$ANN 
002  DSBRPR 
DSBRTM 
DSDELF 
DSDELW 
0$END  : 
DSFNB 
DSHIOR 
DSHOST 
DSINAC 
DSINCT 
D$1PL 
D$LID 
DILNAM 
DSLNUM 
0$LST 
DSMAXC 
DIMAXH 


000022 

000032 

000010 

000006 

000000 

000011 

000004 

000042 

000002 

000007 

000012 

177776 

000004 

000035 

000044 

000040 

000034 

000042 

000037 

000036 

002272R 

014432RG 

014450RG 

001420R 

010676R 

010750R 

017010RG 

000242RG 

002336R 

000160RG 

******  GX 

******  GX 

000010 

006404R 

002040R 

002060R 

000010  G 

000072 

000074 

000000 

000102 

000100 

000045 

000046 

000104 

000034 

000024 

000022 

000044 

000042 

000051 

000020 

000006 

000014 

000047 

000064 

000066 


DSMAXV 

0$MLL 

DSMNOD 

D$NA 

DSNBEA 

DSNBRA 

D$NEND= 

OJNLN 

D$NN 

DSOUTT 

D$.,ETF 

D$RNN 

DSRTMR 

D$SEG 

D$SER 

DSSQRL 

D$$BUG= 

0$$ISK= 

D$$L11= 

D$$VNC=- 

003  D$$YNM= 
E 
ECLLK 

003  ECLLLN 
ECLLNK 
ECLNOD 
END 

002  ENDHEX 

003  ENDPAS 

002  ERRTAB 
ERR1 
ERR10 
ERR11 
ERR12 

003  ERR13 
003  ERR14 

ERR15 

ERR16 

ERR17 

ERR2 

ERR20 

ERR21 

ERR22 

ERR23 

ERR24 

ERR25 

ERR26 

ERR27 

ERR3 

ERR30 

ERR31 

ERR32 

ERR33 

ERR34 

ERR35 

ERR36 

ERR37 


000070 

000040 

000041 

000062 

000056 

000054 

000054 

000030 

000060 

000043 

000050 

000002 

000076 

000036 

000032 

000052 

177514 

000000 

000001 

000000 

000000 

002362R 

003 

00461  OR 

000070R 

002 

010340R 

000072R 

002 

001720R 

003 

000204RG 

002 

0001 32RG 

002 

002036R 

000336R 

002 

000742R 

002 

001002R 

002 

001050R 

002 

001116R 

002 

001154R 

002 

001216R 

002 

001252R 

002 

001306R 

002 

000370R 

002 

001336R 

002 

001372R 

002 

001450R 

002 

001510R 

002 

001566R 

002 

001622R 

002 

001654R 

002 

001676R 

002 

000452R 

002 

001732R 

002 

001744R 

002 

002000R 

002 

002042R 

002 

002102R 

002 

002142R 

002 

002200R 

002 

002232R 

002 

L  16 


VNTI  -  VNP  NETWORK  INITIALIZAT!  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  110-2 


^ vmhn !  t ah  I  o 


VNCP      CREATED  BY  MACRO  ON  29-JUN-85  AT  02:AA 
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LILLCO 

LILLCS 

LlLLlN 

LILLMA 

LILLMD 

LILLNA 

LILLOB 

LILLOU 

LILLPR 

LILLRE 

LILLSE 

LILLTR 

LILLUC 

LILLVE 

. IVDTE 

LIVLII 

LLNAMT 

LMARKE 

LMSTRI 

LMSUNU 

LMXCN6 

LMXLN6 

LNAMET 

LNAMTL 

LNSLIN 

LNSTER 

LOCOPT 

LONAMT 

LOTSKT 

LO.ADD 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LO.CTL 

LO.DES 

LO.DTE 

LO.EvT 

LO.GRO 

LO.HOS 

LO.HTM 

LC.INA 

lo.inc 

LO.lD' 
lO.UD 
LO.LIN 
LO.LTM 
LO.MAC 
LO.MDE 
LO.NAM 


000030 

000032 

000045 

000046 

00004A 

000033 

000032 

000043 

000041 

000046 

000037 

000040 

000037 

000037 

000032 

000042 

000031 

000002 

000052 

000045 

000050 

OC0042 

000024 

000226 

000031 

000035 

000042 

000042 

000040 

000022 

000052 

000002 

000006 

000010 

000020 

000010 

000032 

000002 

000047 

000004 

000024 

000040 

000032 

00006: 

000060 
000046 
00003C 
000004 
C00034 
000022 
000024 
000044 


REFERENCES 

#5-157 

7-425 

#5-154 

7-438 

#5-186 

#5-188 

7-6O0 

7-712 

#5-162 

7-667 

#5-163 

7-679 

#5-147 

7-797 

7-969 

7-1021 

#5-166 

7-825 

#5-189 

7-701 

#5-155 

7-881 

#5-187 

7-723 

#5-185 

7-942 

#5-165 

7-1221 

#5-161 

7-926 

#5-156 

7-1262 

#5-182 

7-517 

#5-169 

7-1248 

#5-149 

#5-141 

6-231 

#5-176 

#5-175 

#5-159 

7-734 

#5-150 

7-746 

#5-181 

7-268 

7-285 

7-564 

#5-149 

5-149 

#5-177 

7-1209 

7-1245 

7-1280 

#5-174 

7-913 

#5-167 

7-413 

#5-164 

7-842 

#5-168 

7-809 

#5-61 

♦7-1030 

♦7-1078 

♦7-1079 

#5-61 

#5-61 

♦7-346 

#5-61 

♦7-732 

#';-61 

♦7-407 

♦7-411 

♦7-820 

#5-61 

♦7-422 

#5-61 

5-61 

♦7-436 

#5-61 

♦7-454 

#5-6- 

5-61 

7-263 

#5-61 

7-506 

#5-61 

7-309 

#5-61 

7-559 

#5-61 

♦7-1017 

•7-1018 

#5-61 

•7-572 

#5-61 

♦7-709 

#5-61 

♦7-687 

#5-61 

♦7-513 

#5-61 

♦7-642 

#5-61 

♦7-744 

#5-61 

♦7-653 

#5-61 

♦7-664 

#5-6' 

•7-676 

#5-61 

7-1096 

7-1083 


7-859 


7-1116 


-oi;  AT  n^. 


M  1 


u- 
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ERROR  MESSAGES 


78 
79 
80 
81 
82 

83  000000 

84  000025 

85  000026 

86  000050 

87  000054 

88  000101 


.S8TTL  ERROR  MESSAGES 

•  **** 

•  ERROR  MESSAGES 

;  *** 

ERMSGS  <Inwalid  line  option> 

ERBL<$  LNERl 

ERMSGS  <Line  not  in  system> 

ERBLKS  LNER2 

ERMSGS  <Circuit  not  in  system> 

ERSLKS  CNER1 


MDTMM      MCTi.lDDi'     TOMMAMh     D    MAfOn     \lD^     n?h     ^afi(rHa\ 


M    2 


Psap    7 
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ECHO  -  ECHO  COMMANDS 


494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 

511  001250 

512  001254 
513 

514  001260 

515  001266 

516  001270 

517  001304 

518  001306 

519  001314 

520  001316 

521  001332 
522 

523  001342 

524  001350 

525  001352 

526  001356 

527  001370 

528  001374 

529  001410 

530  001412 

531  001420 

532  001422 

533  001436 
534 

535  001446 

536  001450 
'7  001452 

S 
,39 
540 

541  001454 

542  001471 

543  001500 

544  001545 
54  5 

546 

547  001566 

548  001572 
549 

550  001600 


.SBTTL  ECHO  -  ECHO  COMMANDS 
•  **-ECHO-ECHO  ACTJONS  TAKEN  AS  A  RESULT  OF  'SET  CEX  ECHO' 

;  MACRO  TO  MOVE  ASCII 

.MACRO  MOVIT  AA.BB 


012746  001450' 

122767  000002 
001007 

000412 

122767     000005 

001012 


ECHO: 


OOOOOOG 


122767     000003 

001020 

016700  OOOOOOG 

010067  000216 

000412 

122767  000006 

001012 


000241 


OOOOOOG  3$: 

4$: 

OOOOOOG  5$: 


OOOOOOG 


9$: 


MOV 

MOV 

$$$=. 

MOVS 

BNE 

.ENDM 


CALL 
MOV 

CMP8 

BNE 

MOVIT 

BR 

CMPB 

BNE 

MOVIT 

ERRPTS 

CMPB 

BNE 

MOV 

ASR$ 

MOV 

MOVIT 

BR 

CMPB 

BNE 

MOVIT 

ERRPTS 


#AA,RO 
#BB,R1 

(R1)+,(R0)< 

$$$ 

MOVIT 


SSAVAL 
#100$, -(SP) 


#LS.PRO,LR.STS+RQB  ;  SET  PROCESS 

3$  ;  NO 

SCSET         ;  MOVE  IN  SET 

4$ 

#LX.PRO,LR.STS+RQB  ;  CLEAR  PROCESS 


SAVE  ALL  REGISTERS 
RETURN  ADDRESS 


5$ 

SC, CLEAR 

ECH2,$ER0UT 


NO 

MOVE   IN  CLEAR 

WRITE   OUT   ECHO 


#LS.LIN,LR.STS+RQB   ;    SET  LINE 
NO 


8$ 

$$PRI,RO 

5,R0 

RO.PRI 

SCSET 

9$ 

#LX.LIN,LR.STStRQB 

10$ 

SC, CLEAR       ;  CLEAR  IN  ASCII 

ECH3,$ER0UT     ;  ECHO 


CONVERT  PRIORITY  TO  INTEGER 

SAVE  CONVERTED  PRIORITY 
SET 

CLEAR  LINE  ? 


10$:    RETURN 
100$:   CLC 

RETURN 

;  ECHO  MESSAGE  TEXT 


NO  ERRORS  FROM  ECHO  MODE 


123 


105 


ONOFF: 
SC: 

124   SET: 


ERMSGS  <5;A  PROCESS  3!R> 

ERBLK$  ECH2,<SC,LR.PR0*RQB> 

ERMSGS  <!!A  LINE  5!R-!!B-J!B  CSR  i£0  VEC  XO  PRI  !!0> 

ER8LK$  ECH3,<SC,LR.LINtRQB,LR.CTL+R0B,LR.UNT+RQB,$$CSR,$$VECT,PRI> 

.NLIST  BEX 

.BLK8  4 

.BLK8  6 

.ASCJZ  'SET' 


ur\     n    MAC  an     v/n^     A7K     ^;i^l 


M    3 


Panp     15-1 


L  4 

VNP  CREATED  BY  MACRO  ON  29-JUN-85  AT  02:45     PAGE  2 

SYMBOL  CRO<;S  REFERENCE  CREF   OA.OO 

SYMBOL  '.ALUE  REFERENCES 

LO.NA^■,  000044  #5-69 

LO.NcT  =  000002  #5-69 

LO.NNM  000022  #5-69 

LO.OFL  000012  #5-69 

LO.ONM  000004  #5-69 

LO.OUT  000056  #5-69 

LO.OWN  000026  #5-69 

LO.PAR  000010  #5-69 

LO.PRI  000012  #5-69 

LO.RET  000064  #5-69 

LO.RPA  000030  #5-69 

LO.SCR  000016  #5-69 

LO.SEG  000054  #5-69 

LO.SKA  000014  #5-69 

LO.SICN  000014  #5-69 

LO.SNM  000035  #5-69 

LO.TPA  000020  #5-69 

LO.TRB  000034  #5-69 

LO.TRl  000030  #5-69 

LO.UNT  000033  #5-69 

LO.VCT  000014  #5-69 

LO.VER  000042  #5-69 

LR.ACC  000020  #5-69 

LR.ACO  000052  #5-69 

LR.ADD  000012  #5-69 

LR.ALI  000002  #5-69 

LRicTL  000004  #5-69      10-229    »10-243     12-347    .12-361     15-544 

LR.DES  000010  #5-69 

LRiLIN  000002  #5-69      5-69      5-69      5-69      5-69      5-69      5-69      10-222    *10-242 

12-340    *12-360     15-544 

LR.NAM  000012  #5-69 

LR.PAS  000041  #5-69 

LR.PRO  000002  #5-69      15-542 

LR.STS  000000  #5-69      15-514    15-5  8     5-523     5-530 

LR.TRI  000006  #5-69     *10-245    '12-363    *12-370    ♦12-371 

LR.TYP  000002  #5-69 

LR.UCB  000016  #5-69 

LRiuNT  000005  #5-69      10-236    00-244     12-354    .12-362     15-544 

LS.ALI  =  000016  #5-69 

LS.CEX  =  000001  #5-69 

LS.CIR  =  000033  #5-69      9-189 

LS.CXO  =  010000  #5-69 

LS.CX5  =  C00400  #5-69 

LS.ECH  =  001000  #5-69 

LS.FDX  =  004000  #5-69 

I  S.HDX  =  010000  #5-69 

LS.HLP  =  000012  #5-69 

LS.LIN  =  000003  #5-69      9-187     15-523 

LS.LMC  =  000007  #5-69 


rociTPn  Hv  Miron  nw  ?t)-iliM-RS  AT  0?;45     PAGE  3 
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MACRO  CROSS  REFERENCE  CREF   OA.OO 

MACRO  NAME      REFERENCES 


DCBDF$ 

#5-56 

5-60 

LBLDFS 

#5-56 

5-66 

PCBDFS 

#5-56 

5-85 

SCBDF$ 

#5-56 

5-73 

UCBDFS 

#5-56 

5-79 

M  5 
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434 
435 
436 
43? 
438 
439 
440 
441 
442 

443  001014 

444  001020 

445  001024 

446  001030 

447  001034 

448  001040 
449 

450 
451 

452  001060 

453  001064 
454 

455  001066 
456 

457  001076 

458  001116 

459  001124 

460  001130 

461  001134 

462  001136 

463  001142 
464 

465  001144 

466  001150 

467  001152 

468  001156 
469 

470 
471 

472  001160 

473  001164 

474  001166 
475 

476  001176 

477  001202 

478  001206 

479  001210 

480  001216 
481 

482  001220 

483  001224 
484 

485  001230 

486  001234 

487  001240 

488  001242 
489 

490 


145$: 


SWTCHO 
.ENDC 


NON  11/70  MAPPED  SYSTEM 


010267 
010267 
010267 
005067 
010367 


10300^ 


OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000002G 


150$: 


016767  000102'  0O0O54G 

005727  OOOOOOG 
001403 


190$: 
200$: 


103751 

005727 
001403 

103743 


103004 


005067 
005767 
001421 
022767 
003411 


OOOOOOG 


OOOOOOC 
OOOOOOG 


210$: 


^90$: 


395$: 


064COO  000002G 
005267  0000006 


MOV 
MOV 
MOV 
CLR 
MOV 
PUTAD 

R2,$QBIAS 

R2,$QSTRT 

R2,$RBLCK 

$8Ffi 

R3,$BFRt2 

#0,#4 

NET  CONFIGURATION  FILE  S 

CALL 
BCC 

$CFG 
200$ 

NTJERR 

406 

GETRV 

MOV 

PUTRC 

TST 

BEQ 

CALL 

BCS 

$DECPT,*D$END 
NeRA,D$NBRA+$8FR 

#$NTCFP 
210$ 
$NTCFP 
190$ 

TST 
BEQ 
CALL 
BCS 

#$NTCFS 
390$ 
$NTCFS 
190$ 

UE  BUFFERS 

CALL 

BCC 

NTIERR 

$CC6S 

395$ 

7 

CLR 
TST 
BEQ 
CMP 
BLE 

$NTLHB+.SBPCB 

S6FLG 

400$ 

#64000, NTPSIZ+2 

398$ 

INC 
CALL 

S6P00L 
$CRPAR 

010167 
010167 
001015 


OOOOOOG 
OOOOOOC 


MOV  R1,S8PCB 

MOV  R1,$NTLHB».SBPCB 

BNE  410$ 

398$:   NTIERR  2 


RESET  OUTPUT  BUFFER  DEFAULT 


.-CMPOI] 
;[MP013 
.■[MP01] 


SETUP  FREE  CORE  POINTER 
SAVE  ORIGINAL  $QBIAS  VALUE 
MAP  TO  FIRST  FREE  SEGMENT 
NO  NEXT  SEGMENT 
LENGTH  OF  THIS  SEGMENT 
INITIALIZE  POOL 


SCAN  CETAB  FOR  OECNET 
OK 

CONFIG  FILE  SCAN  FAILURE  (DUMP  IMAGE) 

READ  DECNET  HOME  BLOCK 
STORE  NI  ROUTER  ADJACENCIES 

PSl  SCANNER  LINKED? 
NO,  BETTER  NOT  CALL  IT! 
SCAN  CETAB  FOR  PSI  COMPONENTS 
FAILED,  GIVE  ERROR 

SNA  SCANNER  LINKED? 

NO,  DON'T  CALL  ITI 

SCAN  CETAB  FOR  SNA  COMPONENTS 

FAILED,  GIVE  ERROR 


ALLOCATE  CC8S 

NO  ERRORS 

RESOURCE  ERROR  ALLOCATING  CCBS 

ASSUME  NOT  SERVER  BASE 

SERVER  BASE  SYSTEM  ? 

IF  NOT  -  BRANCH 

CHECK  AGAINST  104KW  LIMIT 

IF  RDB/SDB  SIZE  TOO  LARGE  -  BRANCH 

SET  SERVER  BASE  FLAG 

CREATE  SERVER  BASE  POOL  PARilTION 

SAVE  SBPOOL  PCB 

USED  FOR  DEAL. 

IF  PCB  ALLOCATION  SUCCESSFUL  -  BRANCH 

REPORT  ERROE 


n  6 
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Page  17 


1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 


003366 
003372 
003400 

003406 
003412 

003414 
003420 
003422 

003430 
003434 
003436 


003446 
003454 


003456 
003462 
003464 
003472 
003474 
003502 
003504 


003506 
003514 
003516 
003524 
003526 
003532 


.SBTTL  DYNAMICALLY  ALLOCATE  SUB-PARTITION 


•*-$CRPAR 

THIS  ROUTINE  IS  CALLED  TO  DYNAMICALLY  CREATE  A  NETWORK 
BUFFER  POOL  BY  ALLOCATING  A  SUB-PARTITION  IN  ANY  OF  THE 
SYSTEM  CONTROLLED  PARTITIONS  FOUND  IN  THE  PARTION  LIST. 
ALL  ERROR  REPORTING  IS  EXTERNAL  TO  THIS  SUBROUTINE 


INPUTS: 

NTPSIZ 

NTPNAM 
OUTPUTS: 

R1      -  PCS  ADDRESS  IF  SUB-PARTITION  ALLOCATED 


-  NUMBER  OF  32-WORD  BLOCKS  IN  NTPOOL 

-  RAD50  NAME  OF  NTPOOL 


005067  OOOOOOG        SCRPAR: 

016767  OOOOOOG  OOOOOOG 

016767  OOOOOOG  OOOOOOG 

005767  OOOOOOG 
001006 

005767  OOOOOOG 

001003 

012767  026226  OOOOOOG 

016701  OOOOOOG        10$: 
001475 


032767  000040  000030G 
001765 


005767  OOOOOOG 

001411 

026767  000004G  OOOOOOG 

001356 

026767  000006G  000002G 

001352 

000446 


026767  000004G  OOOOOOG  15$: 

001345 

026767  000006G  000002G 

001341 

005767  OOOOOOG 

001433 


:CLR 
MOV 
MOV 

TST 
BNE 

TST 
BNE 
MOV 

MOV 
BEQ 
GETRV 

.IF 
BIT 
BEQ 
.ENDC 

TST 
BEQ 
CMP 
BNE 
CMP 
BNE 
BR 


CMP 
BNE 
CMP 
BNE 
TST 
BED 


TOPFLG 

$PARHD,$BFR 

.PLGTH,$RSIZE 

SBPOOL 
10$ 

NTPPAR 

10$ 

#*RGEN, NTPPAR 

$BFR,R1 
30$ 

Rl 


TURN  OFF  TOP  LOADING 

ADDRESS  OF  PARTITION  LISTHEAD 

LENGTH  OF  TRANSFERS 

SERVER  BASE  SYSTEM  ? 
IF  YES  -  BRANCH 

WAS  A  PARTITION  NAME  INCLUDED? 

IF  NE,  YES 

ELSE  DEFAULT  TO  "GEN" 

GET  NEXT  PCB  ADDRESS 
FAILED  TO  ALLOCATE  POOL 
GET  IMAGE  INTO  BUFFER 


NDF,R$$MPL 

#PS.SYS,P.STAT+$BFR  ; 
10$  ;  NO, 


SYSTEM  CONTROLLED  PARTITION 
KEEP  LOOKING 


SBPOOL         ;  SERVER  BASE  SYSTEM  ? 
15$  .-IF  NOT  -  BRANCH 

P.NAM+$BFR,SBPAR  ;  CHECK  FOR  PARTITION 
10$  ;  IF  NO  MATCH  -  BRANCH 

P.NAM+2+$BFR,SBPAR+2  ;  CHECK  FOR  PARTITION 
10$  ;  IF  NO  MATCH  -  BRANCH 

20$  ;  PARTITION  FOUND  -  BRANCH 


P. NAM+$BFR, NTPPAR  ;  RIGHT  PARTITION  ? 

10$  ;  NO 

P.NAMt2t$BFR,NTPPAR+2  ;  MATCH  EVERYTHING 

10$  ;  MISMATCH 

TOPFLG         ;  TOP-DOWN  LOADING  REQUESTED 

20$  ;  IF  EQ,  NO  ..  OKAY 


SEE  If  TOP-DOWN  LOADING  IS  POSSIBLE 


M  7 
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ALLOCATE    SUB-PARTITION  OUT   OF    MAIN  PARTITION 


1512 
1513 
15U 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 

1534  004640 

1535  004644 

1536  004650 

1537  004652 

1538  004656 

1539  004662 

1540  004666 

1541  004670 

1542  004672 

1543  004674 
1544 

1545  004676 

1546  004702 

1547  004704 

1548  004712 

1549  004720 

1550  004726 
1551 

1552  004734 

1553  004740 

1554  0047^4 
1555 

1556  004746 

1557  004754 

1558  004762 

1559  004766 

1560  004774 
1561 

1562 

1563 

1564 

1565 

1566  005002 

1567 

1568 


.SBTTL  ALLOCATE  SUB-PARTITION  OUT  OF  MAIN  PARTITION 

CRSUB 

THIS  ROUTINE  IS  CALLED  EACH  TIME  A  SYSTEM  CONTROLLED  PARTITION 
IS  FOUND.  AN  ATTEMPT  IS  MADE  TO  ALLOCATE  NTPOOL  OUT  OF  THE 
PARTITION  UNTIL  A  LARGE  ENOUGH  HOLE  IS  FOUND  OR  UNTIL  ALL  PAR- 
TITIONS HAVE  BEEN  SCANNED  AND  IT  IS  DETERMINED  THAT  NO  PARTITION 
HAS  A  HOLE  LARGE  ENOUGH  FOR  NTPOOL. 


INPUTS: 

R5  -  MAIN  PARTITION  PCB  ADDRESS 

NTPSIZ  -  NUMBER  OF  32-WORD  BLOCKS  IN  NTPOOL 

NTPNAM  -  RAD50  NAME  OF  NTPOOL 

OUTPUTS: 

C-8IT  SUCCESS/FAILURE 

R0,R1,R2,R3,R4  -  DESTROYED 

R5      -  SUB-PARTITION  PCB  ADDRESS  IF  SUCCESSFUL 


016701  OOOOOOG 


103002 
000167 
012701 
016702 
006202 
005021 
005302 
001375 


000526 

OOOOOOG 

OOOOOOG 


CRSUB: 

3$: 
5$: 


005767 
001421 
016767 
016767 
016767 
016767 

016746 
016746 
000406 

016767 
016767 
010567 
016767 
016767 


OOOOOOG 

OOOOOOG  OOOOOOG 
000002G  OOOOOOG 
OOOOOOG  000004G 
000002G  000006G 

OOOOOOG 
OOOOOOG 


OOOOOOG  000004G  7$: 
000002G  000006G 
000012G        9$: 
OOOOOOG  00001 6G 
OOOOOOG  OOOOOOG 


012767  000640  000030G 


MOV 

CALL 

BCC 

JMP 

MOV 

MOV 

ASR 

CLR 

DEC 

BNE 

TST 
BED 
MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
BR 

MOV 
MOV 
MOV 
MOV 
MOV 

.If 
MOV 
MOV 
.IFF 

MOV 
.E'.jC 


.PLGTH,R1 

$ALL15 

3$ 

102$ 

#$BFR,R1 

.PLGTH,R2 

R2 

(Rl)  + 

R2 

5$ 

SBPOOL 

7$ 

NTPSIZ, NTPSAV 

NTPSlZ+2, NTPSIZ 

SBNAM,P.NAMt$BFR 

SBNAM+2,P.NAM+2t$BFR 


GET  PCB  LENGTH 

TRY  TO  ALLOCATE  SUB-PARTITION  PCB 

BR  IF  SUCCESS 

IF  CS,  FAILURE 

GET  PCB  ADDRESS 

AND  LENGTH 
CONVERT  TO  A  WORD  COUNT 
ZERO  THE  ENTIRE  SUB-PCS 


SERVER  BASE  SYSTEM  ? 
IF  NOT  BRANCH 
SAVE  POOL..  SIZE 

SET  UP  SERVER  BASE  BUFFER  POOL  SIZE 
SET  UP  PCB  NAME 


P8L0X,-(SP) 

PSTART,-(SP) 

9$ 


SAVE  NETWORK  POOL..  SIZE  ALLOCATED 
SAVE  STARTING  ADDRESS  (JUST  IN  CASE) 
JOIN  COMMON  CODE 


NTPNAM, P. NAM+$BFR  ;  SET  NAME 
NTPNAM+2,P.NAM+2+$BFR  ;* 
R5,P.MAINt$BFR  ;  MAIN  PCB  ADDRESS 
NTPSIZ, P. BLKS+$BFR  ;  SIZE  IN  32.  WORD  BLOCKS 
NTPSIZ, PBLOX    ;  SAVE  IT  FOR  LATER 


DF,R$$MPL 

#PS.COMlPS.NSFIPS.FXD:PS.CHK,P.STATt$BFR 

#P2.R0N,P.ST2+$BFR 


COMMON,  ETC. 

SO  NO  TASK  ATTACHES 


*PS.COM:PS.NSF:PS.SYS,P.STATt$BfR  ;  COMMON,  NO  SHUFFLING 
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1951 
1952 
1953 
195A 
•!955 

1956  00632'^ 

1957  006324 

1958  006324 

1959  006324 

1960  00632A 

1961  006524 

1962  006324 

1963  006324 

1964  006324 

1965  006324 

1966  006324 

1967  006324 

1968  006324 

1969  006324 

1970  006324 

1971  006324 

1972  006324 

1973  006324 

1974  006324 

1975  006324 

1976  006324 

1977  006324 

1978  006324 

1979  006324 

1980  006324 

1981  006324 

1982  006324 

1983  006324 

1984  006324 

1985  006324 

1986  006324 

1987  006324 

1988  006324 

1989  006324 

1990  006324 

1991  006324 

1992  006324 

1993  006324 

1994  006324 

1995  006324 

1996  006324 

1997  006324 

1998  006324 

1999  006324 

2000  006324 
2001 

2002 


.SBTTL  SLTSDF  PARSE  TABLES 


;  + 

STATE  TRANSITIONS  FOR  THE  'SLT$DF'  MAC 

STATES 

SLTDF 

TRANS 

SRAD50,,.PRONM 

STATES 

TRANS 

<'  .> 

STATES 

TRANS 

IPRONAM 

STATES 

TRANS 

:Pfi0NAM 

STATES 

SLTFLG 

TRANS 

XLF.HFLX,SLTFLG,,LF.MFL,MRKFL 

TRANS 

XLF. ENAX, SLTFLG, ,LF.ENA,MRKFL 

TRANS 

XLF.SERX,  SLTFLG,, LF.SER,MRKFL 

TRANS 

'1, SLTFLG 

TRANS 

SRAD50, SLTFLG 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUM8R,,.SCTL 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMBR,,.SUNT 

STATES 

TRANS 

lENCSEXIT 

TRANS 

<•,> 

STATES 

TRANS 

<',>,SCTIH 

TRANS 

SSTRNG 

STATES 

TRANS 

IEND,SEXIT 

TRANS 

<',> 

STATES 

SCTIM 

TRANS 

SNUMBR,SCHELO,.SCTIM 

TRANS 

<',>,SCHEL 

STATES 

SCHELO 

TRANS 

1END,SEXIT 

TRANS 

<',> 

STATES 

SCHEL 

TRANS 

1END,$EXIT 

TRANS 

$NUM6R,BRADJ 

TRANS 

<',> 

STATES 

BRADJ 

TRANS 

<',>,BRA0J1 

TRANS 

IEND,SEXr 

STATES 

BRADJ 1 

TRANS 

SNUM8R,SEXIT,.SBRA 
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VNTI  -  VNP  NETWORK.  INITIALIZAT: 
SUB-EXPRESSION  PARSE  TABLES 

2372 

2573  00632A 

2374  006324 

2375  006324 

2376  006324 
2377 

2378  006324 

2379  006324 
2380 

2581  006524 

2582  006524 
2585  006524 

2584  006524 

2585  006524 

2586  006524 

2587  006524 

2588  006524 
2589 

2590  006524 

2591  006524 
2592 

2595  006524 

2594  006524 
2595 
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STATES  FILSPC 

TRANS  <'[>,UIC 

TRANS  SRAD50,TOK,GETSTR 

TRANS  SLAMDA 

STATES  IliC 

TRANS  $STRNG,,GErSTR 

STATES 

TRANS  <',>, FILSPC, GRPUIC 

TRANS  <•]>, FILSPC, USRUI1 

STATES  TOK 

TRANS  <•:>, FILSPC, DEV 

TRANS  <■]>, FILSPC, USRUIC 

TRANS  <'.>,EXTEN, FILES 

TRANS  SLAMDA, SEXIT, FILES 

STATES  EXTEN 

TRANS  SSTRNCGETSTR 

STATES 

TRANS  SLAMDA, SEXIT, EXT 


M  10 


VNTI  -  VNP  NETWORK  INITIALIZATl  MACRO  V05.05b  Saturday  29-Jun-85  02:46  Page  48 


VNTl  -  VNP  NETWORK,  INITIALIZAII  MACRO  V05.03b  Saturda/  29-Jun-85  D2;46  Page  58 
ACTION  ROUTINE;  STAIDF  MACRO  SEEN 


h-M 


2665 
266A 
2665 
2666 
2667 
2668 
2669 

2670  006576 

2671  006602 


005267  000036' 


.SSTTL  ACTION  ROUTINE:  STAIDC  MACRO  SEEN 

»*-.STADf-STA$DF  MACRO  SEEN 

A  DEflNTION  Of  ANOTHER  STATION  LINE  TABLE  ENTRY  HAS  BEEN  SEEN. 


.STADF: 


INC 
RETURN 


STAN 


UPDATE  STATION  NUMBER 
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ACTION  ROUTINE:    REMOTE    ADDRESS   FOUND 


31A8 
3H9 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 

3160  011330 

3161  011334 

3162  011336 

3163  011342 

3164  011346 
3165 

3166  011350 

3167  011354 

3168  011362 

3169  011370 

3170  011376 

3171  011404 

3172  011412 
3175  011416 

3174  011422 

3175  011432 

3176  011450 

3177  011454 

3178  011460 

3179  011464 

3180  011466 

3181  011470 
3182 

3183  011474 

3184  011502 

3185  011522 
3186 

3187  011530 

3188  011534 
3189 

3190  011540 

3191  011546 

3192  011566 
3193 

3194   011574 
3195 
3196 
3197 

3198  011576 

3199  011606 

3200  011612 
3201 

3202 
3203 
3204 


.SBTTL  ACTION  ROUTINE:  REMOTE  ADDRESS  FOUND 

**♦  -  .RNUM  -  REMOTE  NODE  ADDRESS  FOUND 

INPUTS: 

.PNUM8  =  THE  REMOTE  NODE  ADDRESS 

OUTPUTS: 

A  REMOTE  NODE  BLOCK  IS  ALLOCATED  AND  FILLED  IN 


005767 

OOOOOOG 

.RNUM: 

TST 

.PNUMB 

001524 

BEQ 

1 1 1  $ 

012701 

000014 

MOV 
CALL 

#R.LEN,R1 
$ALPOL 

103513 

BCS 

101$ 

012701 

OOOOOOG 

MOV 

#$8FR,R1 

016761 

000030' 

000002 

MOV 

NAME,R.NAM(R1)   ; 

016761 

000032' 

000004 

MOV 

NAME+2,R.NAMt2(Rl) 

016761 

000034' 

000006 

MOV 

NAME+4,R.NAMt4(R1) 

016761 

000100' 

000010 

MOV 

REMARE,R.ADD(R1)  ; 

056761 

OOOOOOG 

000010 

BIS 

. PNUMB, R.ADD(RI)  ; 

005061 

000012 

CLR 

R.FLAG(RI) 

010067 

000004' 

MOV 
CEACC$ 

RO,CURUNM 
RO 

10$: 

PUTAD 

RO,*R.LEN 

016701 

00001 OG 

MOV 

$BFR+R.ADD,R1 

016700 

000004' 

MOV 
CALL 

CURUNM,RO 
QUICK 

103003 

BCC 

20$ 

000241 

CLC 
CALL 

FINREM         ; 

20$: 

SWTCHI 

licTRV 

SWTCHI 

#$HMBUF 
$DECPT,#D$END 

012702 

000004G 

MOV 
CALL 

SUTCHO 

PUTRC 

SWTCHO 

RETURN 

#$HMBUFtD$RNNt2,R2 
QINS          ; 

#$HM8UF 
$DECPT,#D$END 

;  ERROf 

CONDITIONS 

101$: 

NTIERR 

23 

062716 

000002 

111$: 

ADD 

RETURN 

#2,(SP) 

;  + 

■   *  **  - 

■  .RARE  - 

REMOTE  AREA  ADOr^ES 

NODE  ADDRESS  IN  RANGE  ? 

IF  EQ,  NO 

GET  THE  LENGTH  OF  A  REMOTE  BLOCK 

TRY  TO  ALLOCATE  A  REMOTE  BLOCK 

IF  CS,  COULDN'T 

POINT  AT  I/O  BUFFER 
STORE  THE  NODE  NAME 


STORE  AREA  ADDRESS 

STORE  THE  NODE  ADDRESS 
INITIALIZE  FLAGS  UORD 
SAVE  UNMAPPED  ADDRESS 
CONVERT  TO  MAPPED  ADDRESS 
WRITE  OUT  THE  REMOTE  BLOCK 
GET  REMOTE  NODE  ADDRESS 
RETRIEVE  UNMAPPED  ADDRESS 
ATTEMPT  FAST  LIST  PROCESSING 
IF  SUCCESS  -  BRANCH 
IF  FAILURE  -  USE  STANDARD  SEARCH 
FIND  UHERE  REMOTE  GOES  IN  LIST 

USE  TEMPORARY  BUFFER 
READ  DECNET  HOME  BLOCK 
RESET  TO  DEFAULT  BUFFER 

>  ;  POINT  TO  LISTHEAD 
INSERT  ENTRY  INTO  QUEUE 

USE  TEMPORARY  BUFFER 

WRITE  BACK  DECNET  HOME  BLOCK 

RESET  DEFAULT  BUFFER 

RETURN  TO  USER  MODE  AND  TO  CALLER 


FAILED  TO  ALLOCATE  A  REMOTE  BLOCK 
REJECT  TRANSITION 
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3549 
3550 
3551 
3552 
3553 
355A 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 


013206 
013212 
0132U 
013222 
013224 
013232 
013234 
013240 


105767 
001C10 
126727 
101004 
116767 
000402 
062716 


000001 G 
OOOOOOG  000007 
OOOOOOG  OOOOOOG 
000002 


.S8TTL  ACTION  ROUTINE:  SET  LOGGING  STATE 

L.LGST  -  SET  LOGGING  STATE 
INPUTS: 


.PNUMB  -  LOGGING  STATE 


L.LGST 


10$: 
20$: 


TST8 

BNE 

CMPB 

BHI 

M0V8 

BR 

ADD 

RETURN 


.PNUMS'I 

10$ 

.PNUMB,*7 

10$ 

.PNUM8,$LGSTT 

20$ 

#2,(SP) 


MUST  BE  BYTE  VALUE 

BR  IF  NOT 

LEGAL  VALUES  ARE  0-7 

BR  IF  ILLEGAL  VALUE 

STORE  LOGGING  STATE 

AND  EXIT 

REJECT  THE  TRANSITION 
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3976 
39/7 
3978 
3979 
3980 
3981 
3982 
3983 
398A 
3985 
3986 
3987 

3988  0U550 

3989  01A552 

3990  01A556 

3991  0H562 
3992 

3993  0H566 

3994  01A570 

3995  01A572 

3996  01A57A 
3997 

3998  014576 

3999  01A600 

4000  01A60A 
4001 

4002  014606 

4003  014612 

4004  014614 
4005 

4006  014616 
4007 
4008 
4009 

4010  014620 

4011  014624 
4012 

4013  014626 

4014 

4015  014630 

4016 


V05.03b  Saturday  29-Jun-85 
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HRDADD  -  STORE  HARDWARE  ADDRESS 

INPUTS  - 

.PSTPT  -  PARSED  STRING  ADDRESS 
.PSTCN  -  STRING  SIZE 

OUTPUTS  - 

HARDWARE  ADDRESS  CON.'ERTED 


010546 

016700  OOOOOOG 

012702  000140' 


006303 
006303 
006303 
006303 

110312 

150322 

022702  000146' 

001363 

012603 


103401 


HRDADD: 


5$: 


R3,-(SP) 
. PSTPT, RO 
#SERADD,R2 
HEXIND 


:MOV 
MOV 
MOV 
CALL 

ASL 
ASL 

AIL 
ASL 


MOVB  R3,(R2) 

CALL  HEXIND 

BIS8  R3,(fi2)* 

CMP  *SERTMP,R2 

BNE  5$ 

MOV  (SP)+,R3 


RETURN 


SEREND: 

:CALL 
BCS 

RETURN 

SERALL 
101$ 

101$: 

NTIERR 

33 

SAVE  REG 

GET  PARSED  STRING  ADDRESS 
GET  HARDWARE  ADDRESS  SUFFER 
CONVERT  HEX 

POSITION  DIGIT 


STORE  DIGIT 
CONVERT  HEX 
STORE  DIGIT 

END  OF  BUFFER  ? 

RESTORE  REG 


ALLOCATE  SERVICE  BLOCK 

IF  ALLOCATION  FAILURE  BRANCH 


SERVICE  BLOCK  ALLOCATION  FAILURE 


VNT! 


VNP  NETWORK   IMTIALIZATI   MACRO  V05.03b  Saturday  29-Juii-85  02:46     Page  94 


c  T 1  tr\c  /cc  Dtnr     ATTinM    DnitTIMP^ 


02:46 


VNTI  -  vNP  NETWORK  INlTIALlZAT]  MACRO  V05.05b  Saturday  29-Jun-85  D2:46  Page  102-1 
CRFNBK  -  CREATE  FILENAME  DESCRIPTOR  BLOCK 

AA75 
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Symbol    table 
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ERR4 

000522R 

;RR40 

00226AR 

rRR'.l 

002320R 

ERRA2 

002364R 

ERRA5 

002A20R 

ERR4A 

002A5AR 

ERR'!.? 

002512R 

ERRS 

000566R 

ERR6 

000622R 

ERR7 

000674R 

ER$ABM= 

000010 

ER$ABO= 

0000A6 

ERtABT= 

000011 

ERtACC= 

000042 

ER$CD1= 

000052 

ERtCOM= 

OOOO'l? 

ERtFMT= 

000005 

ER$MLB= 

000006 

ER$NNF= 

000012 

ER$NOD= 

000002 

ERSNSL= 

000013 

ER$NSR= 

000003 

ER$RES= 

000001 

ERtSTA= 

000051 

ER$UOB= 

OOOOOA 

EVENT 

0000A6R 

EVTDF 

001550R 

EVTMSI^ 

001610R 

EXT 

0H202RG 

EXTEN 

002156R 

EXTN  = 

000003 

ESNBR 

OOOOU 

E$NBS 

000020 

E$NCR 

000034 

ESNCS 

000036 

E$N!C 

000044 

ESNLEN 

000050 

ESNLLA 

000012 

ESNLNK 

000000 

ESNML 

000040 

E$NMR 

000024 

ESNMS 

000030 

ESNNOD 

000002 

ESNRT 

000042 

ESNRTP 

000005 

ESNSEG 

000010 

ESNTIM 

000046 

ESNUSE 

000004 

ESSTRT 

000006 

ESSXPR: 

000000 

E.CON 

012676R 

E.fIL 

012706R 

E.MON 

012716R 

E.MSt; 

012634R 

E.NUM 

012554R 

EUEN 

=  000031 

ElOLfN 

=  000040 

002 


002  E11LEN= 
002  E12LEN= 
002  E13LEN= 
002  E14LEN= 
002  E15LEN= 
002  E16LEN= 
002  E17LEN= 
002  E2LEN  = 
002  E20LEN= 

002  E21LEN= 
E22LEN= 
E23LEN= 
E24LEN= 
E25LEN= 
E26LEN= 
E27LEN= 
E3LEN  = 
E30LEN= 
E31LEN= 
E32LEN= 
E33LEN= 
E34LEN= 
E35LEN= 
E36LEN= 
E37LEN= 

...  E4LEN  = 

003  E40LEN= 
003  E4iLEN= 

E42LEN= 
003  E43LEN= 
E44LEN= 
E45LEN= 
E5LEN  = 
E6LEN  ^ 
E7LEN  = 
F 

FC.CCP= 
FC.CTL= 
FC.KCP= 
FC.KIL= 
FC.MAN= 
FC.MLD= 
FC.PCT= 
FC.PWR= 
FC.RCE= 
FC.RCP= 
FC.TIM= 
FC.XCP= 
FC.XME= 
FE.CAL^ 
FE.CEX= 
FE.DRV= 
FE.DYM: 
FE.EXP= 
FE.EXT= 
FE.EXV= 
FE.FDT= 


000046 

000046 

000035 

000042 

000034 

000034 

000030 

000062 

000034 

000056 

000040 

000055 

000034 

000031 

000022 

000033 

000050 

000012 

000034 

000041 

000037 

000037 

000036 

000032 

000032 

000044 

000034 

000044 

000034 

000034 

000036 

000037 

000034 

000051 

000046 

002406R 

000020 

000006 

000016 

000004 

000024 

000026 

000030 

000022 

000002 

000014 

000010 

000012 

000000 

000040 

020000 

000010 

010000 

000200 

000001 

000004 

002000 


FF. 
FF. 
FF. 


FE.LS1= 
FE.MUP= 
FE.MXT= 
FE.NLG= 
FE.0FF= 

FE.PKI=: 

FE.PLA= 
FE.X25= 
FF.ADD= 
FF.C]R= 
.CON= 
.FIL  = 
.HST  = 
FF.L1N= 
FF.MOD= 
FF.MON= 
FF.MSK= 
FF.PRT= 
FF.QUL= 
FF.REM= 
FIELDC= 
FIL8UF 
FILDF 
FILES 
FJLFLG 
FILSPC 
FINFIL 
FINOBJ 
FINREM 
FLAG 
FLSZ  = 
FLTFLG 
FNBEXr= 
FNBLN 
FN8S2  = 
003  FN8UFF 
FPDV 
FSLT 
FS.AST= 
FS.CIB^ 
FS.CRA= 
FS.DIS= 
FS.[)VC  = 
FS.ENB= 
FS.EX]= 
FS.GET= 
FS.HLT= 
FS.INI= 
FS.KIL= 
FS.LCL= 
FS.LTM= 
FS.MNT= 
FS.MSN= 
FS.REA= 
FS.RET= 
FS.REZ= 
FS.RL8= 


000400 

000002 

040000 

100000 

001000 

000100 

000020 

004000 

000020 

000040 

000001 

000002 

040000 

000010 

000100 

000004 

000077 

000200 

000370 

100000 

000003 

000222RG 

001754R 

014142RG 

000252RL 

002072R 

013104R 

013632R 

013732R 

000062R 

000020  G 

000044R 

000006 

000264RG 

000044  G 

000266RG 

015402R 

015450R 

000000 

002000 

001000 

013000 

001000 

012000 

001000 

006000 

000000 

000000 

000000 

100000 

001000 

004000 

014000 

001000 

000000 

003000 

002000 


FS.RNG= 
FS.RST= 
FS.RTN= 
FS.SET= 
FS.SFC= 
FS.SFR= 
FS.SFS= 
FS.SPW= 
FS.STM= 

FS.STP=: 

FS.$TR= 

fs.:rm= 

FS.WLB= 

FS.XKL^ 

FS.XOF= 

FS.X0N= 

FS.2ER= 

F$$LVL=: 

F.ADD 

F.CEV 


002 


,CIR 
,CLS 


003  F.EVT 
F.FLG 

002  F.HI8K= 

003  F.LEN 


LIN 
LNK 


F.MOD 
002  F.NRBD= 


F. 
002  F. 

F. 
002  F. 


.NXT 
.REM 
.RSIZ= 
.SEV 
F.URBD= 
002  F.USE 
F.VAR 
F2.ACN= 
F2.AHR= 
F2.DAS= 
F2.DPR= 
F2.EVr= 
F2.GGF= 
F2.IRR= 
F2.LIB= 
F2.MP  = 
F2.P0L= 
F2.RAS-- 
F2.RBN= 
F2.SDJ= 
F2.S-P= 
F2.SWP= 
F2.UND= 
F3.AST= 
F3.CLI= 
F3.CRA= 
F3.EIS= 


011000 

000000 

001000 

005000 

005000 

006000 

004000 

040000 

000000 

002000 

001000 

003000 

001000 

002000 

010000 

007000 

002000 

000001 

000016 

000030 

000024 

000002 

000004 

000014 

******  Gx 

000016 

000020 

000000 

000022 

******  GX 

000000 

000026 

******  GX 

000004 

*♦**«♦  GX 

000002 

000003 

000020 

010000 

000001 

000400 

000010 

002000 

001000 

000002 

000004 

000100 

004000 

020000 

000040 

100000 

040000 

000200 

000200 

001000 

000001 

000004 


F3.NUK= 

F3.PMN= 

F3.PR0= 

F3.RLK= 

F3.SHF= 

F3.STM= 

F3.TCM= 

F3.UDS= 

F3.WAT= 

F3.XHR= 

F3.11S= 

G 

GETSTR 

GRPUIC 

G$$TPP= 

G$$TSS= 

G$$TTK= 

G$$WRD= 

H 

HEXIND 

HEXSTR 

HF.CIS= 

HF.EIS= 

HF.FPP= 

HF.OB  = 

HF.UBM= 

HRDADD 

HSAD 

HSAR 

I 

IBUF 

IBUFO 

IBUF  2 

I8UF3 

I8UF4 

IBUF  5 

IE.E0F= 

INAC 

INCT 

INIBUF 

IN.DAT= 

IN.ILS= 

I0.WVB= 

IPL 

ISTATE 

I$$RAR= 

I$$RDN= 

KBUF 

KBUFO 

KBUF2 

KBUF3 

KBUF4 

KBUF  5 

KDSARO= 

KDSDRO= 

KINARO= 

KINAR5= 


000002 

004000 

000040 

020000 

040000 

000010 

002000 

000020 

010000 

000100 

000400 

002432R 

016760RG 

017062RG 

000000 

000000 

000000 

000000 

002456R 

015330R 

000164RG 

000200 

000002 

100000 

000004 

000001 

014550RG 

014404RG 

014364RG 

002502R 

000044RG 

OOOOOORG 

000124RG 

000254RG 

000306RG 

000324RG 

♦*♦*♦«  GX 

010624R 

010500R 

016002R 

000400 

000001 

******  GX 

011022R 

000466RG 

000000 

000000 

000002RG 

OOOOOORG 

000004RG 

000014RG 

000020RG 

0OOO22RG 

172360 

172320 

172340 

172352 


003 


003 
002 


003 
003 
003 
003 
003 
003 
003 


003 


004 
004 
004 
004 
004 
004 
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,^^  c  CREi^ED  B»  MACRO  ON  29-JUN-85  AT  O?:-.".     PAGE  A 

S*«1BCl  cross  bE'ERENCE  CREF   0^.00 

s*mbol  vAlue                 references 

LO.NET  r  000002                 #5-61                7-275              7-2''^ 

LO.NNM  000022                 #5-61                7-1028 

LO.OFL  000012                #5-61             «7-821           •7-8i;             ^  „^^             ,  „^, 

LO.ONM  0C0004                 #5-61             •7-806           "7-807           '7-822           •7-823 

LO.OJT  000056 

LO.OUN  000026                  .,   -                     -   - 

LO.PAR  000010                 #5-61              '7-1124          •7-1125 

LO.PRl  000012                    "    ■' 

LO.RE'  000064 

LO.RPA  00003C 

LO.SCR  000016 

LO.SEG  000054                   ... 

LO.SKA  000014                 #5-61              •7-1050          •7-1054 

LO.SKN  000014                     '    ■■                 - 

LO.SNM  000035 

LO.TPA  000020 

LO.TRB  000034                   ,. ,    _ 

LO.TRJ  000030                 #5-61              ^7-1201          ^7-1219 

LO.JNT  000033                    "    ■■                

LO.VCT  OOOOU 

LO.VER  000042                    ,    - 

LPASWT  =  000030                 #5-158             7-1148           7-1185 

LPNAMT  =   000034 

LPRNWT  =   000036 

LPSWFT  =   000036 

LR.ACC  000020 

LR.ACO  000052                     -    . 

LR.ADD  000012                 #5-61              -7-551            '7-994 

LR.ALI  000002                    '    ■■ 

LR.RLK  000010 

LR.CTL  000004                  ..    . 

LR.DES  000010                 #5-61              •7-965            •7-966             7-983 

tRir^N  folfol                 Si:^l...        '5^6]'''         5-61                5-61                5-61                5-61                5-61              •7-640             7-850 

lR.NAI^  000012 

LR.PAS  00004' 

LR.PRO  000002                    -    . 

LR.STS  000000                 #5-61                12-1428         12-1430 

LR.TRI  000006                    '    •' 

LR.TYP  000002 

LR.UCB  000016 

Lfi.UlC  000020 

LR.JNT  000005 

lSVNER  =  000023 

LS.ALI  =  000016 

IS.CEX  =  000001 

LS.CIR  =  000033 

lS.CKC  -   01COCC 

lS.C)(5  ^  00040C 

LS.ECH  r  CONOCO 

I  5.FDX  =  0040CC 


#5-61 

7-275 

#5-61 

7-1028 

#5-61 

•7-821 

#5-61 

•7-806 

#5-61 

•7-698 

#5-61 

•7-840 

#5-61 

•7-1124 

#5-61 

•7-878 

#5-61 

•7-720 

#5-61 

7-1132 

#5-61 

•7-924 

#5-61 

•7-938 

#5-61 

•7-1050 

#5-61 

7-1048 

#5-61 

7-1159 

#5-61 

7-1169 

#5-61 

#5-61 

•7-1201 

#5-61 

•7-1237 

#5-61 

•7-1260 

#5-61 

#5-158 

7-1148 

#5-148 

7-869 

#5-151 

7-1127 

#5-173 

7-490 

#5-61 

#5-61 

7-466 

#5-61 

•7-551 

#5-61 

7-975 

#5-61 

#5-61 

•7-452 

#5-61 

•7-965 

#5-61 

•10-1368 

#5-61 

5-61 

11-1404 

#5-61 

7-992 

#5-61 

7-483 

#5-61 

•7-867 

#5-61 

12-1428 

#5-61 

•7-1199 

#5-6' 

•7-819 

#5-61 

.7-911 

#5-61 

7-536 

#5-61 

•7-1235 

#5-146 

6-243 

#5-61 

7-627 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 
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M  2 

VNP  -  VIRTUAL  NETWORK  COMMAND  P  MACRO  V05.03b  Saturday  29-Jun-85  02:^5 
$VNP  -  VIRTUAL  NCP  ENTRY  POINT 


Page  7 


90 
91 
92 
93 
9A 
95 
96 
97 
98 
99 
100 
101 
102 
103 
10^ 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 


.SBTTL  $VNP  -  VIRTUAL  NCP  ENTRV  POINT 

t«-$VNP-VlRTUAL  NCP  ENTRV  POINT 

THIS  IS  THE  ENTRY  POINT  FOR  THE  VIRTUAL  NETWORK  CONTROL 
PROCESSOR.  MOST  NETWORK  FUNCTIONS  THAT  MODIFY  MEMORY  ARE 
INCLUDED  IN  THIS  PROGRAM  SO  THAT  THE  IDENTICAL  OPERATION 
CAN  BE  DONE  TO  A  SYSTEM  IMAGE.  THIS  IMAGE  COULD  THEN  BE 
DOWN-LINE  LOADED.  OR  BOOTED. 

A  PARTIAL  LISTING  OF  LEGAL  COMMANDS: 

VNP>  SET  SYSTEM  [ECHO] 
VNP>  SET  EXECUTOR  STATE  ON  [UNFIX] 

[FIXED] 
OFF 
RECEIVE  [PASSWORD]  <PASSWORD> 
TRANSMIT  [PASSWORD]  <PASSWORD> 
HOST  <NODEADDRESS> 
VERIFICATION  [STATE]  ON 
OFF 
VNP>  SET  LINE  <LINEID>  ALL 

STATE  ON 
OFF 
[CONTROLLER]  CSR  X 
VECTOR  X 
PRIORITY  X 
DUPLEX  HALF/FULL 
[LOCATION]  TOP 
VNP>  SET  PROCESS  <NAME>  ALL 

PARTITION  X 
MAXIMUM  CONTROLLERS  X 
MAXIMUM  LINES  X 
VNP>  SET  NODE  X  NAME  <NODENAME> 
LINE  <LINEID> 

VNP>  CLEAR  SYSTEM  [ALL] 
VNP>  CLEAR  PROCESS  <NAME>  [ALL] 
VNP>  CLEAR  LINEID  <LINE>  ALL 
VNP>  CLEAR  EXECUTOR  HOST 

RECEIVE  PASSWORD 

TRANSMIT  PASSWORD 
VNP>  CLEAR  NODE  X  NAME 
LINE 


WHERE  : 


<NAME> 
<LINEID> 
<NODENAME> 
<PASSWORD> 


XPT 
DMC  0  0 

manTlS 

SHAZZAM 


(  ANY  LEGAL  PROCESS  NAME  ) 

(  1-6  ALPHA  ) 
(  1-8  ALPHA  ) 


142  C00104 

$VNP.-: 

143  000104 

CALL 

$VINI 

144  OOOliQ 

103407 

BCS 

$PANIC 

145  C00112 

000241 

10$: 

CLC 

146  000'14 

CALL 

$VNCP 

ONCE  ONLY  INITIALIZATION  CODE 
EXIT  WITHOUT  A  MURMUR 
CLEAR  C-BIT 
PARSE  COMMAND 
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frMf.  -  ecHO  COMMANDS 

Vji  0C16OA  103     1U     105  CLEAR:   .ASCI2  'CLEAR' 

SS?  .EVEN 

553  001612  000000               PRI:    -WORD  0            ;  PRIORITY  AS  INTEGER 

55A  .LIST  BEX 
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VNP       CREATED  BY  MACRO  ON  29-JUN-85  AT  02:45 
SYMBOL  CROSS  REFERENCE 
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PAGE  3 

CREF   04.00 


SYMBOL   VALUE 


LS.LOG 

LS.MOD 

lS.NOD 

LS.NTl 

LS.OBJ 

LS.OPT 

LS.PRO 

LS.TOP 

LS.TST 

LS.UNF 

LS.XIT 

LX.ALl 

LX.CEX 

LX.CIR 

LX.LIN 

LX.LOG 

LX.NOD 

LX.OBJ 

LX.PRO 

L.CTL 

L.DDM 

L.FLG 

L.NSTA 

L.UNT 


=  000020 
=  000036 
=  000014 
=  000013 
=  000022 
=  000400 
=  000002 
=  002000 
=  000010 
=  020000 
=  000011 
=  000017 
=  000004 
=  000034 
=  000006 
=  000021 
=  000015 
=  000023 
=  000005 

r  ****** 

=  ****** 

=  ****** 

r  ****** 

=  ****** 


GX 
GX 
GX 
GX 
GX 


REFERENCES 

#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 
#5-69 

10-229 

14-488 

17-664 

12-367 

10-236 


15-514 


9-1{ 


15-518 
10-243 


10-244 


15-530 


12-347 


12-354 


12-361 


12-362 


M5.CIR 

=  ******  GX 

17-660 

MS. EXT 

=  ******  GX 

17-653 

19-738     19-749 

MS. INC 

I  ******  GX 

17-653 

19-738     19-749 

NXTLIN 

001222  R 

10-217 

12-335    #14-483 

OFSINS 

=  000001 

#5-69 

OFSLOG 

=  000100 

#5-69 

OFSOFF 

=  000002 

#5-69 

OF  SON 

=  000000 

#5-69 

OFSSMC 

=  000200 

#5-69 

ONOFF 

001566  R 

#15-547 

OPSADD 

=  000200 

#5-69 

OPSALL 

=  000200 

#5-69 

OPSCCS 

=  000004 

#5-69 

10-211 

OP$C!E 

=  004000 

#5-69 

OPSCON 

=  000400 

#5-69 

OP$COP 

=  000001 

#5-69 

OPtCOS 

=  000100 

#5-69 

17-677 

OPSDST 

=  000,;00 

#5-69 

OPSOTE 

=  000040 

#5-69 

OPSDUP 

=  000002 

#5-69 

OPSEST 

=  000100 

#5-69 

OP$EVE 

=  010000 

#5-69 

OPSFIL 

=  000200 

#5-69 

OPSGRP 

=  000100 

#5-69 

OPSHOS 

=  000001 

#5-69 

OPSHTM 

-  000002 

#5-69 

17-672 

OPSINA 

=  004000 

#5-69 

OPS  INC 

=  001000 

#5-69 

roc  A  TCh  DV 


MATDn   nM  ■JQ-iiiM-fi';  fiT  ()'?  •  LS 
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•»FILE««iD««VNTI 


vv 

vv 

NN 

NN 

TTTTTTTTTT 

HIIII 

vv 

vv 

NN 

NN 

TTTTTTTTTT 

IJIJII 

vv 

vv 

NN 

NN 

, 

vv 

vv 

NN 

NN 

. 

vv 

vv 

NNNN 

NN 

, 

vv 

vv 

NNNN 

NN 

vv 

vv 

NN 

MN  NN 

vv 

vv 

NN 

W     NN 

vv 

vv 

NN 

NNNN 

vv 

vv 

NN 

NNNN 

. 

vv 

vv 

NN 

NN 

vv 

vv 

NN 

NN 

n 

vv 

NN 

NN 

7  J 

iiiin 

vv 

NN 

NN 

TT 

iiiiii 

ssssssss 

TTTTTTTTTT 

ssssssss 

TTTTTTTTTT 

ss 

S5 

ss 

ss 

ssssss 

ssssss 

ss 

ss 

ss 

ss 

LLLLLLLLLL 

ssssssss 

LLLLLLLLLL 

ssssssss 
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NETWORK  INITIALIZATION  COLD  START 

491  001252 

492  001256 

493  001262 

494  001264 
495 

496  001274 

497  001276 
498 

499  001302 

500  001306 

501  001310 
502 

503  001320 

504  001324 

505  001326 
506 

507  001336 
508 
509 
510 

511  001336 
512 
513 
514 
515 
516 

517  001342 

518  001346 

519  001352 
520 

521  001356 

522  001 360 

523  001362 

524  001370 

525  001374 
526 

527  001400 

528  001406 


016701 
103004 

000002G 

400$: 

MOV 
CALL 
BCC 
NTIERR 

NTPSIZ+2,R1 

$ALL22 

410$ 

10 

010004 
012705 

140000 

410$: 

MOV 
MOV 

R0,R4 
#.8ASEB,R5 

103004 

418$: 

CALL 

BCC 

NTIERR 

$SDBS 

^20$ 

12 

103004 

420$: 
430$: 

CALL 

BCC 

NTIERR 

$RDBS 

430$ 

11 

;  LOAD 

PROCESSES  INTO  CORE 

CALL 

$MFL 

■  CHECK 
;  AUX 

FOR  DLX 
TIMERS 

ONLV  SYSTEM  - 

012700 
012701 
000167 

114224 
000001 
OOOOOOG 

MOV 
MOV 
JMP 

#*fiXPT,RO 

#1,R1 

$SWOVL 

006001 
103007 
052767 
012701 
000167 

OOOOOOG 

000002 

OOOOOOG 

$RET1: 
OOOOOOG 

ROR 
BCC 
BIS 
MOV 
JMP 

R1 

$RET2 

#VF.DLX,$VFLA6 

#2,R1 

$SWOVL 

042767 

OOOOOOG 

OOOOOOG  $RET2: 

BIC 

*VF.DLX,$VFLAG 

GET  RDB/SD8  SIZE 
TRY  TO  ALLOCATE 

NO  ROOM  IN  NTPOOL 

COPY  BIAS 

SET  MAPPING  DISPLACEMENT 

ALLOCATE  SMALL  DATA  BUFFERS 
NO  ERRORS 
RESOURCE  ERROR 

ALLOCATE  READ  DATA  BUFFERS 
NO  ERRORS 
RESOURCE  ERROR 


;  LOAD  WITH  CALLS  TO  NTLOADER 
IF  TRUE,  SET  VF.DLX  AND  CALL  $VACP  TO  START 


IS  THERE  AN  XPT  PROCESS? 

MUST  CALL  PARALLEL  OVERLAY  SEGMENT, 

...  JUMP  TO  ADDR  IN  ROOT  TO  SWITCH. 

...  SWOVL  WILL  CALL  $FPDV 

GET  BACK  THE  CARRY 

FOUND  ONE  SO  RETURN 

CANT  FIND  ONE,  MUST  BE  DLX  ONLY 

MUST  SWITCH  OVERLAY  SEGMENTS  TO  CALL 

ROUTINE  TO  Si'ART  AUX  TIMER  SERVICE 

...  SWOVL  WILL  CALL  $VACP 

NO  LONGER  MAKE  EXCEPTION  FOR  DLX  SYSTM 


RETURN 
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DYNAMICALLY  ALLOCATE  SUB-PARTITION 


1081  003534 

016746 

000014G 

MOV 

$8FR+P.REL,-(SP)  , 

1082  003540 

066716 

000016G 

ADD 

$BFR+P.SIZE,(SP)  . 

1083  003544 

032767 

OOOOOOG  OOOOOOG 

BIT 

#VF.SS,$VfLAG 

1084  003552 

1085 

1086  003554 

001416 

BEQ 

19$ 

012705 

OOOOOOG 

MOV 

#SYSFDB,R5 

1087  003560 

062705 

000002G 

ADD 

#F.HIBK+2,R5 

1088  003564 

011505 

MOV 

(R5),R5 
#2,fi5 

1089  003566 

162705 

000002 

SUB 

1090  003572 

000241 

CLC 

1091  003574 

006305 

ASL 

R5 

1092  003576 

006305 

ASL 

R5 

1093  003600 

006305 

ASL 

R5 

1094  003602 

020526 

CMP 

R5,(SP)+       ; 
20i 

1095  003604 

103006 

BHIS 

1096  003606 

1097 

1098  003610 

000403 

BR 

22$ 

022726 

007600 

19$ 

CMP 

#7600,  (SP)'- 

1099  003614 

1C3002 

BHIS 

20$ 

1100  003616 

005067 

OOOOOOG 

22$ 

CLR 

TOPFLG 

1101 

1102  003622 

010105 

20$ 

MOV 

R1,R5 

1103  003624 

CALL 

CRSU8 

1104  003630 

30$ 

RETURN 

GET  THE  BASE  ADDRESS  OF  THE  PARTITION 
GET  THE  END  ADDRESS  OF  THE  PARTITION 
lis  SYSTEM  ? 
IF  NO  -  BRANCH 

GET  FDB  ADDRESS 

POINT  TO  MAX  VBN 

GET  MAX  VBN 

CALCULATE  TOP  OF  MEMORY  BIAS 


IS  ADDRESS  WITHIN  SYSTEM  IMAGE  FILE 
IF  YES  -  BRANCH 


IS  THE  PARTITION  WITHIN  THE  124K  LIMIT 
IF  HIS,  YES  ..  OKAY,  DO  IT 
ELSE,  DO  BOTTOM-UP  LOADING 

COPY  PARTITION  ADDRESS 

ATTEMPT  TO  ALLOCATE  SUB-PARTITION 
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ALLOCATE  SUB-PARTITION  OUT  OF  MAIN  PARTITION 


1569  005010 

1570  005026 

1571  005030 

1572  005032 

1573  005034 

1574  005044 

1575  005050 

1576  005054 

1577  005056 

1578  005066 

1579  005072 

1580  005074 

1581  005100 

1582  005102 

1583  005104 

1584  005114 

1585  005120 

1586  005124 

1587  005130 

1588  005134 

1589  005140 

1590  005142 

1591  005146 

1592  005152 

1593  005156 

1594  005160 

1595  005170 

1596  005174 

1597  005176 

1598  005206 

1599  005212 

1600  005216 

1601  005220 

1602  005224 

1603  005226 

1604  005232 

1605  005234 

1606  005236 

1607  005240 

1608  005250 

1609  005254 

1610  005260 

1611  005264 

1612  005270 

1613  005272 

1614  005274 

1615  005304 

1616  005310 

1617  005314 
1618 

1619  005316 

1620  005322 
1621 

1622  005324 

1623  005332 

1624  005336 

1625  005342 


010501 
005002 
005046 


066702 
016703 
001450 

00001 4G 
000010G 

016704 
160204 
166704 
103426 
010116 

000014G 
OOOOOOG 

010267 
010267 
010367 

000014G 
OOOOOOG 
000010G 

005767 
001453 
060467 
060467 

OOOOOOG 

000014G 
OOOOOOG 

010301 

016702 
000717 

000016G 

016704 
066704 
160204 
166704 
103421 
005767 
001401 
060402 
010116 

000014G 
000016G 

OOOOOOG 

OOOOOOG 

010267 
010267 
010367 

000014G 
OOOOOOG 
000010G 

012601 
001426 

010067  000010G 


010001 

005767 

001411 

016767 
016700 
012667 
012667 


10$: 


15$: 


20$: 


30$: 


40$: 


OOOOOOG 


OOOOOOG  OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 


PUTRC 

RO,.PLGTH 

MOV 

R5,R1 

CLR 

R2 

CLR 

-(SP) 

GETRV 

R1 

ADD 

P.REL+$BFR,R2 

MOV 

P.SUet$BFR,R3 

BEQ 

20$ 

GETRV 

R3 

MOV 

P.REL+$BFR,R4 

sua 

R2,R4 

SUB 

NTPS]Z,R4 

BLO 

15$ 

MOV 

R1,(SP) 

GETRV 

RO 

MOV 

R2,P.REL+$BFR 

MOV 

R2,PSTART 

MOV 

R3,P.SUBt$Bn< 

PUTRC 

TST 

TOPFLG 

BEQ 

40$ 

ADD 

R4,P.REL+$BFR 

ADD 

R4,PSTART 

PUTRC 

MOV 

R3,R1 

GETRV 

Rl 

MOV 

P.eLKS+$BFR,R2 

BR 

10$ 

GETRV 

R5 

MOV 

P.REL+$BFR,R4 

ADD 

P.BLKS+$BFR,R4 

sue 

R2,R4 

sue 

NTPSIZ,R4 

BLO 

40$ 

TST 

TOPFLG 

BEQ 

30$ 

ADD 

R4,R2 

MOV 

R1,(SP) 

GETRV 

RO 

MOV 

R2,P.RELt$BfR 

MOV 

R2,PSTART 

MOV 

R3,P.SUBt$BFR 

PUTRC 

MOV 

(SP)+,R1 

BEQ 

101$ 

GETRV 

Rl 

MOV 

RO,P.SUBt$BFR 

PU^RC 

MOV 

R0,R1 

TST 

SBPOOL 

BEQ 

45$ 

MOV 

NTPSAV,NTPSIZ 

MOV 

PSTART,RO 

MOV 

(SP)+,PSTART 

MOV 

C5P)t,PBL0X 

Page  26-1 

URITE  INITIALIZED  PCB  TO  SrSTEM  IMAGE 

COPY  MAIN  PCe  ADDRESS 

NO  PREVIOUS  SUB-PCB 

DITTO 

READ  IN  PCB 

GIVING  BIAS  OF  NEXT  HOLE  IN  PARTITION 

GET  NEX'  SUB-PCB 

IF  ZERO,  END  OF  LIST 

READ  IN  PCB 

GET  BIAS  OF  SUB-PARTITION 

GIVING  SIZE  OF  HOLE 

IS  THE  HOLE  BIG  ENOUGH? 

IF  MI,  NO 

SAVE  PREVIOUS  SUB-PCB  ADDRESS 

READ  IN  PCB 

SET  POSSIBLE  BIAS 

SAVE  IT 

SET  POINTER  TO  NEXT  SUB-PCB 

WRITE  UPDATED  PCB 

TOP-DOWN  ALLOCATION? 

IF  EQ,  NO 

ALLOCATE  FROM  TOP  OF  HOLE 

SAVE  BIAS  OF  SUB-PARTITION 

WRITE  UPDATED  PCB 

COPY  SUB-PCB  ADDRESS 

READ  PCB 

GET  SUB-PCB  SIZE 

READ  IN  MAIN  PCB 

GET  MAIN  PARTITION  BIAS 

GIVING  BIAS  OF  END  OF  PARTITION 

GIVING  SIZE  OF  LAST  HOLE 

IS  LAST  HOLE  BIG  ENOUGH? 

IF  MI,  NO 

TOP-DOWN  ALLOCATION? 

IF  EQ,  NO 

ALLOCATE  FROM  TOP  OF  HOLE 

SAVE  PREVIOUS  SUB-PCB  ADDRESS 

READ  IN  PCB 

SET  SUB-PARTITION  BIAS 

SAVE  IT 

SET  LINK  TO  NEXT  SUB-PCB 

REWRITE  PCB 

GET  PREVIOUS  SUB-PCB  ADDRESS 

IF  EQ,  NO  SPACE  IN  PARTITION 

READ  IN  PCB 

LINK  PREVIOUS  SUB-PCB  TO  OURS 

WRITE  PCB  BACK  TO  SYSTEM  IMAGE 

THIS  IS  NOW  THE  OFFICIAL  PCB 

SERVER  BASE  SYSTEM  ? 
IF  NOT  -  BRANCH 

RESTORE  POOL..  SIZE 

GET  STARTING  ADDRESS  OF  SERVER  BASE  POOL 

RESTORE  VARIABLE 

RESTORE  VARIABLE 
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VNTI  -  7NP  NETWORK  INH 

STASDf  PARSE  TABLES 

2004 

2005 

2006 

2007 

2008 

2009 

006324 

2010 

006324 

2011 

006324 

2012 

006324 

2013 

006324 

20U 

006324 

2015 

006324 

2016 

006324 

2017 

006324 

2018 

006324 

2019 

006324 

2020 

006324 

2021 

006324 

2022 

006324 

2023 

006324 

2024 

006324 

H   0 
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.SBTTL  STASDF  PARSE  TABLES 

STATE  TRANSITIONS  FOR  THE  'STASDF'  MACRO 


STATES 

STADF 

TRANS 

SNUMBR 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SRAD50 

STATES 

TRANS 

<',>,STADF1 

TRANS 

SLAMDA,SEXIT,X.FLG1 

STATES 

STADF1 

TRANS 

'!,STADF1 

TRANS 

XSF.ENAX,STADF1,,SF 

ENA 

MRKFL 

TRANS 

5!SF.MFLX,STADF1,,SF 

MFI 

MRKFL 

TRANS 

5!SF.SER3!,STADF1,,SF 

SER 

MRKFL 

TRANS 

SRAD50,STADF1 

TRANS 

SLAMDA,SEXIT,X.FLG 

VNTI 


N  9 

VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  V 


M  10 

VNII  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  48 
TPARS  STATE  TABLES  -  SERSDF 


2397 
2398 
2399 
2400 

2401  006324 

2402  006324 
2403 

2404  006324 

2405  006324 

2406  006324 

2407  006324 
2408 

2409  006324 
241C  006324 
2411 

2412  006324 

2413  006324 

2414  006324 
2415 

2416  006324 

2417  006324 

2418  006324 
2419 

2420  006324 

2421  006324 

2422  006324 
2423 

2424  006324 

2425  006324 
2426 

2427  006324 

2428  006324 

2429  006324 
2430 

2431  006324 

2432  006324 

2433  006324 
2434 

2435  006324 

2436  006324 

2437  006324 
2438 

2439  006324 

2440  006324 
2441 

2442  00632' 

2443  006324 
2444 

2445  006324 

2446  006324 

2447  006324 
2448 

2449  C06324 

2450  006324 

2451  006324 
2452 

2453  006324 


.SBTTL  TPARS  STATE  TABLES  -  SERSDF 


SERSDF  STATE 

TABLES 

STATES 
TRANS 

SERDF 
SLAMDA,,SERINI 

STATES 
TRANS 
TRANS 
TRANS 

SEOS,SEX]T,SEREND 
<'  >  A 
SNUM8R , , NOAR 

STA.ES 
Tk,(NS 

<'  -> 

STATES 
TRANS 
TRANS 

A 
<',>,B 

SNUMSR,,N0AD 

STATES 
TRANS 
TRANS 

SE0S,SEX1T,SEREND 
<'  .> 

STATES 
TRANS 
TRANS 

B 
<',>,C 

SNUMBR,,HSAR,SF.HST,SERFLG 

STATES 
TRANS 

<'  .> 

STATES 
TRANS 
TRANS 

C 
<',>,D 

SNUM6R,,HSAD 

STATES 
TRANS 
TRANS 

SEOS.SEXIT.SEREND 
<'  .> 

STATES 
TRANS 
TRANS 

D 

<',>,DEVIC 

SSTRNG,,SERCR,SF.CIR,SERFLG 

STATES 
TRANS 

<'-> 

STATES 
TRANS 

SNUMBR,,SERUNI 

STATES 
TRANS 
TRANS 

ISERST.DEVIC 
SLAMDA,,SERSLN 

STATES 
TRANS 
TRANS 

SEOS.SEXIT.SEREND 

STATES  DEVi: 
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116767  OOOOOOG  000060' 


OOOOOOG 
OCOOOOG 
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2675 
2674 
2675 
2676 

2677  00660A 

2678  006612 
2679 

2680 

2681 

2682 

2683  0066U 

268A  006620 

2685  006624 

2686  006626 

2687  006630 

2688  006632 

2689  006640 

2690  006642 

2691  006650 

2692  006652 

2693  006656 

2694  006662 

2695  006664 

2696  006672 

2697  006674 

2698  006700 

2699  006710 

2700  006712 

2701  006716 
2702 

2703  006724 

2704  006732 

2705  006734 

2706  006742 

2707  006744 

2708  006750 

2709  00675 '* 

2710  006760 
2711 

2712  006762 

2713  006770 

2714  006772 

2715  007000 


MACRO  VO5.03b  Saturday  29-Jun-85  02:46  °age  59 

.SBTTL  SLTSDF  ACTION  ROUTINES 
CONTROLLER  NUMBER  (SLTSDf) 
SCTL:  Move    .PNUMB.CTL      ;  SAVE  NUMBER 


016700 
016701 
001425 
012002 
001421 
126267 
001015 
126267 

ooion 

116202 
066702 
011202 
026267 
001406 


014002 
010267 
056762 

032762 
001413 
032762 
001416 
062702 
052712 
016702 
000407 

032762 
001003 
04Z762 


MOVB 
RETURN 


UNIT  NUMBER  (SLTSDF) 


.SUNT: 
10$: 


000012  000060' 

000013  OOOOOOG 

000002 
OOOOOOG 

000004  OOOOOOG  20$: 

30$ 
40$ 
50$ 

OOOOOOG 

000040'  000000 

000400  000000 

002000  000000 

000022 
000100 
OOOuOGG 


004000  000000  55$: 

002000  000000 

60$: 


MOV 

MOV 

BEQ 

MOV 

BEQ 

CMP8 

BNE 

CHPB 

BNE 

MOVB 

ADD 

MOV 

CMP 

BEQ 

SOB 

NTIERR 

MOV 

MOV 

BIS 

BIT 
BEQ 
BIT 
BEQ 
ADD 
BIS 
MOV 
BR 

BIT 
BNE 
BIC 
RETURN 


,CTL 


$SLTMA,RO 

$SLTNM,R1 

40$ 

(R0)+,R2 

30$ 

L.CTL(R2) 

30$ 

L.UNT(R2),.PNUMB 

30$ 

L.DDH(R2),R2 

$PDVTA,R2 

(R2),r5 

Z.NAM(R2),PDVNAM 

50$ 

R1,10$ 

26 

-(R0),R2 

R2,$SLTA 

MRKFL,L.FLG(R2) 

#LF.8R0,L.FLG(R2) 

55$  ; 

#LF.ENA,L.FLG(R2) 

60$ 

*L.MPF,R2 

#SF.ENA,(R2) 

$SLTA,R2 

60$ 


GET  SLT  MAPPING  TABLE  ADDRESS 

GET  NUMBER  OF  SLT'S 

IF  ZERO,  LINE  NOT  FOUND  I 

GET  NEXT  SLT 
;  IF  EMPTY,  SKIP  IT 

CONTROLLER  NUMBER  MATCH  ? 

IF  NE,  NO 
;  UNIT  NUMBER  MATCH  ? 

IF  NE,  NO 

GET  DDM  PDV  INDEX 

PLUS  PDV  TABLE  ADDRESS 

GET  PDV  ADDRESS 
;  DO  NAMES  MATCH  ? 

IF  EQ,  VES 

LOOP  <SLT  COUNT>  TIMES 

ERROR  -  LINE  NOT  IN  SYSTEM 

PICK  UP  SLT  ADDRESS 

SAVE  IT 

UPDATE  MARK-FOR-LOAD  STATUS 

;  ETHERNET  LINE  ? 

IF  NOT  -  BRANCH 

,  MARK  FOR  ENABLE  ? 

IF  NOT  -BRANCH 

POINT  TO  STATION  FLAG 

SET  FIRST  STATION  ENABLED 

RESTORE  SLT  ADDRESS 

CONTINUE 


*LF.MFL,L.FLG(R2)  ;  IS  LINE  MARKED-FOR-LOAD  ? 
60$  ;  IF  NE,  YES  ..  OKAY 

#LF.ENA,L.FLG(R25  ;  ELSE,  MAKE  SURE  ENABLE  ISN'T  SET 
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320S 
5206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
32U 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 


0116U  022767  000077  0000006  .HARE: 

011622  002^21 

01162A  016700  OOOOOOG 


000012 


0002A1 
010067 
OOUOl 


011654 
011656 
011662 
011664 


011666  062716 
011672 


000100" 


000002 


101$.- 


CMP 
BLT 
MOV 

#63.,.PNUMB 

101$ 

.PNUMB.RO 

;  CHECK  LIMIT 

;  IF  ERROR  -  BRANCH 

;  copy  AREA 

.REPT 

ASL 

.ENDR 

CLC 

MOV 

BEQ 

RETURN 

10. 
RO 

;  POSITION  AREA  BIT 

RO.REMARE 
10l$ 

;  STORE  AREA 

;  IF  ERROR  -  BRANCH 

ADD 
RETURN 

*2,(SP) 

;  REJECT 

VNTI  -  VNP 
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3568 
3569 
3570 
3571 
357? 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
358« 
35? 


.S8TTL   ACTION  ROUTINE:  OBJECT  NUMBER  SEEN 

'«.♦  -  .ONUM  -  OBJECT  NUMBER  SEEN 

INPUTS: 

.PNUM8  =  THE  OBJECT  NUMBER 

OUTPUTS: 

TRANSITION  ACCEPTED/REJECTED 


013242  116767  OOOOOOG  000063' 

013250  005067  000032' 

013254  005067  000034' 

013260  105067  000064' 


013264  005767 

013270  001003 

013272  105767 

013276  001402 

013300  062716 
'^304 


OOOOOOG 
000001 G 
000002 


.ONUM: 

•  MOVB 

.PNUMB,TYPE 

CLR 

ONAME 

CLR 

0NAMEt2 

CLRB 

MXCP 

TST 

.PNUMH 

BNE 

10$ 

TSTB 

.PNUMBtl 

BEQ 

20$ 

10$: 

ADD 

#2,(SP) 

20$: 

RETURN 

STORE  OBJECT  NUMBER 
CLEAR  THE  OBJECT  NAME 

CLEAR  THE  MAXIMUM  NUMBER  OF  COPIES 

IS  OBJECT  NUMBER  A  WORD  VALUE  ? 

IF  NE,  NO 

IS  IT  A  BYTE  VALUE  ? 

If  EQ,  YES 

ELSE,  REJECT  THE  TRANSITION 
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SERALL   -   ALLOCATE    SERVICE   BLOCK 


012701 
103004 


000052 


010067  000256' 


SERALL: 


10$: 


012702 
012701 
105022 
005301 
001375 

056767 
016767 
016767 

016767 
016767 
016767 
016767 

016767 
016767 
016767 

016767 
016767 
016767 
016767 
016767 


012702 
016700 
005712 
001002 
010201 
000^01 
011201 


OOOOOOG 
000052 


15$: 


#S.LENG,R1 

$ALPOL 

10$ 

33 

RO.SERCUR 

RO 

#$8FR,R2 

#S.LENG,R1 

(fi2)* 

Rl 

15$ 


000110'  000002G 

000112'  00000« 

0001K'  000006G 

0001A0'  OOOOIOG 

000K2'  000012G 

000U4'  OOOOUG 

000262'  000016G 

000120'  000020G 

000122"  000022G 

00012A'  000024G 

000126'  000026G 

000130'  000030G 

000152'  000032G 

000134'  00003^ 

000136'  000036G 


000032G 
000256' 


SERFLG,S.FLAG+$8FR 
SERNOD,S.ADD*$BFR  ; 
SERHST,S.HST+$8FR  , 
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4018 
4019 
4020 
4021 
4022 
4023 
4024 

4025  014640 

4026  014644 

4027  014650 
4028 

4029  014652 
4030 

4031  014662 
4052 

4033  014666 
4054 

4035  014676 

4036  014702 

4057  014706 

4058  014710 
4039  014712 
4040 

4041  014714 

4042  014722 
4045  014750 
4044 

4045  014756 

4046  014744 

4047  014752 

4048  014760 
4049 

4050  014766 

4051  014774 

4052  015002 
4055 

4054  015010 

4055  015016 

4056  015024 

4057  015052 

4058  015040 
4059 

4060  015046 
4061 
4062  015064 

4065  015072 
4064  015112 
4065 

4066  015120 

4067  015124 

4068  015130 

4069  015152 

4070  C15154 

4071  015136 

4072  015140 

4073  015142 
4C74 


MOV 

CALL 

BCC 

NTIERR 

MOV 

CEACC$ 

MOV 

MOV 

CLRB 

DEC 

BNE 

BIS 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 

MOV 
MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
MOV 

PUTAD   RO,*S.LENG 


GET  SIZE  OF  BLOCK  NEEDED 
ALLOCATE  BLOCK  FROM  POOL.. 
IF  SUCCESS  -  BRANCH 

SERVICE  BLOCK  ALLOCATION  FAILURE 

SAVE  CURRENT  SERVICE  BLOCK  ADDRESS 

MAP  TO  SERVICE  BLOCK 

GET  BUFFER  ADDRESS 
SET  BLOCK  SIZE 
ZERO  OUT  BLOCK 
COUNT  ONE  LESS  BYTE 
IF  MORE  -  BRANCH 

;  CLEAR  FLAG  WORD 
GET  NODE  ADDRESS 
GET  HOST  ADDRESS 


SERADD,S.HADt$8FR  ;  GET  HARDWARE  ADDRESS 

SERADDt2,S.HADt$BFR+2  ;  ... 

SERADD+4,S.HAD+$BFR+4  ;  ... 

SERSLT,S.CIR+$BFR  ;  GET  SLN/STA  PAIR 

SERDEV,S.DEV+$BFR  ;  GET  DEVICE  NAME  RAD50 

SERPAS,S.PSS*$BFR  ;  GET  SERVICE  PASSWORD 

SERPAS*2,S.PSSt$BFR+2  ;  . . . 

SERPASt4,S.PSS+$BFR+4  ;  ... 

SERPASt6,S.PSS+$BFR+6  ;  ... 

SERDMP,S.DPA+$8FR  ;  GET  DUMP  ADDRESS 

SERDMP*2,S.DPA+$8FRt2  ;  . . . 

SERDCT,S.DPCt$BFR  ;  GET  DUMP  COUNT 


SWTCHI 

GETRV 

SWTCHI 


MOV 

TST 

BNE 

MOV 

BR 

20$: 

MOV 

25$: 

CALL 

#$HM8UF 
$DECPT,#D$END 


#$HM8UF»D$SER,R2 

SERCUR,RO 

(R2) 

20$ 

R2.R1 

25i 

(R2),Ri 

QINS 


WRITE  SERVICE  BLOCK  TO  IMAGE 

SWITCH  INPUT  BUFFER 

READ  DECNET  HOME  BLOCK 

SWITCH  TO  DEFAULT  INPUT  BUFFER 

;  COPY  SERVICE  BLOCK  LISTHEAD 
COPY  UNMAPPED  ADDRESS  OF  BLOCK 
LIST  EMPTY  7 
IF  NO  -  BRANCH 

IF  YES  -  SET  LISTHEAD  AS  PREVIOUS  ENTRY 
CONTINUE 

SET  FIRST  ENTRY  AS  PREVIOUS  BLOCK 
INSERT  INTO  QUEUE 
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CRFNBK,   -   CREATE    FUENAME    DESCRIPTOR   BLOCK. 


4475 

4476 

44^7 

4478 

4479 

4480 

4481 

4482 

448? 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

A491 

!.492 

.493  016372 

',494   016400 

m495   016406 

.496 

.497  016410 

4498  016416 

4499  016424 
4500 

4501  016426 

4502  016434 

4503  016442 
4504 

4505  016444 

4506  016452 

4507  016460 
4508 

4509  016462 

4510  016470 
4511 

4512  016476 

4513  016502 

4514  016506 
4515 

4516  016510 

4517  016514 
4518 

4519  016516 

4520 

452''  016526 

4522  016530 

4523  016532 

4524  016542 

4525  016560 

4526  016564 
4527 

4528  016602 

4529  016606 

4530  0^6616 
455'  C'6634 


.S8TTL   ,FL8K0  -  FILE  NAME  BLOCK  PROCESSING 

.FL8K0  -  FILE  NAME  BLOCK  PROCESSING  ROUTINE 
INPUTS  - 


OUTPUTS 


PARSED   FUESPEC    LOCATED    IN  DEVBUF  ,UIC8Uf  ,F  ILBUF 


IF    FNB   CURRENTLY   EXISTS   -  USAGE    COUNT    INCREMENTED 
IF   NOT   -  NEW  FND   CREATED  AND  LINKED 


.ENABL      LS6 


012767 
052767 
000433 

012767 
052767 
000424 

012767 
052767 
000415 

012767 
052767 
000406 

012767 
052767 


000040  000260'  .FLBKO: 
000400  000110' 


000042  000260'  .FL8K1; 

001000    ooono' 


000044   000260'  .FLBK2: 
002000  000110' 


000046  000260'  .FL8K3: 

004000  ooono' 


000050  000260'  .FL6K4: 
010000  000110' 

5$: 


103007 
^03004 

010003 

105267  000002G 

C1fc700  000256' 

056767  000110'  000002G 


10$: 


MOV 
BIS 
BR 

#S.SEC,SEROFF 

#SF.SEC,SERFLG 

5$ 

MOV 
BIS 
BR 

#S.rER,SEROFF 

#SF.TER,SERFLG 

5$ 

MOV 
BIS 
BR 

#S.LOA,SEROFF 

#SF.LOA,SERFLG 

5$ 

MOV 
BIS 
BR 

#S.DIA,SEROFF 

*SF.DIA,SERFLG 

5$ 

MOV 
BIS 

#S.DUM,SEROFF 
#SF.DUM,SERFLG 

CALL 
CALL 
BCC 

SET8LK 
SRHFNB 
10$ 

CALL 
BCC 

CRFNBK 
lOS 

NTIERR 

32 

SAVRG 

MOV 

CEACCS 

GETAD 

INC8 

PUTAD 

<R3> 
R0,R3 

RO 

R0,#F.USE'2 
SBFR'f .USE 
R0,*F.uSE»2 

MOV 

CEACCS 
GETAD 
BIS 

SERCUR,RO 
RO 

RO,#S.LENG 
SERFLG.SBFR'S. 

SAVE  FILENAME  LIST  OFFSET 
SET  SECONDARY  BOOT  FILE  FLAG 
CONTINUE 

SAVE  FILENAME  LIST  OFFSET 
SET  TERTIARY  BOOT  FILE  FLAG 
CONTINUE 

SAVE  FILE  NAME  LIST  OFFSET 
SET  LOAD  FILE  FLAG 
CONTINUE 

SAVE  FILE  NAME  LIST  OFFSET 
SET  DIAGNOSTIC  FILE  FLAG 
CONTINUE 

SAVE  FILE  NAME  LIST  OFFSET 
SET  UPLINE  DUMP  FILE  FLAG 

SET  UP  LOCAL  COPY  OF  FNB 
SEARCH  FOR  EXISTING  FNB 
IF  FOUND  -  BRANCH 

IF  NOT  -  CREATE  NEW  FNB 

IF  ALLOCATION  SUCCESSFUL  -  BRANCH 

FILENAME  BLOCK  ALLOCATION  FAILURE 

SAVE  REG 

SAVE  FILENAME  BLOCK  ADDRESS 

MAP  TO  BLOCK 

READ  FILENAME  BLOCK 

BUMP  USAGE  COUNT 

WRHE  FNB  TO  IMAGE 

COPY  CURRENT  SERVICE  BLOCK  ADDRESS 
MAP  TO  BLOCK 
READ  SERVICE  BLOCK 
FLAG  ;  SET  FLAG  WORD 
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K,1NAR6= 

K1NAR7: 

K1SAR0= 
K1SARS= 
<ISAR6= 
K,ISAR7= 
<1SDR0= 
K1SDR6= 
KISDR7= 
KWORD 

<ttCSR= 
K;t$LDC  = 
K$$TPS= 
LA.ACI<,= 
LA.CRS= 

la.msk;= 

LA.NAK= 

LA.NMS= 

LA.RES= 

LA.WND= 

LBRA  = 

LDDLM 

LDLINF 

LDPRO 

LDSLP  = 

LD.ALI= 

LD.CEX= 

L.D.CIR  = 

LD.LIN= 

LD.LOG= 

LD.MOD= 

LD.NOD= 

LD.OBJ= 

LD.PRO= 

LET   = 

LF.ACT= 

LF.BRO= 

LF.BWT= 

LF.DRD= 

LF.ENA= 

LF.FRC= 

LF.HFO= 

LF.HMF= 

1F.HSF= 

LF.IRD= 

LF.LPB= 

LF.MDC= 

LF.MFL= 

LF.MMF= 

LF.MSF= 

LF.MTP= 

LF.PAC= 

L'^.RDy  = 

LF.REA= 

LF.SFR= 

LF.TlMr 


17235A 

172356 

1723A0 

172352 

172354 

172356 

172300 

1723U 

172316 

0O0032RG 

177546 

177546 

000000 

000074 

100000 

020000 

170000 

110000 

010000 

040000 

004000 

000074 

017636R 

017516R 

020026R 

000000 

000030 

000024 

000035 

000025 

000031 

000037 

000027 

000032 

000026 

000100 

100000 

000400 

000007 

000004 

002000 

000001 

000010 

000040 

000020 

000002 

001000 

000100 

004000 

000200 

000100 

000020 

000200 

040000 

010000 

000040 

000010 


004 


Lf  .UNL  = 
LF.X2P= 
LINSI7= 
LN.CL0= 
LN.DUM= 
LN.L0A= 
LN.L00= 
LN.OAU= 
LN.OFF= 
LN.ON  = 
LN.OOP= 
LN.OPE= 
LN.REF: 
LN.SER= 
LN.STA= 
LN.SU8= 
LN.TRI= 
LOA 

I  -'-■.^ 

Lu.ADD 

LO.ADR 

LO.CLS 

LO.CON 

LO.COP 

LO.COS 

LO.CSR 

LD.CTL 

LO.DES 

LO.DTE 

LO.EVr 

LO.GRO 

LO.HOS 

LO.HTM 

LO.INA 

LO.INC 

LO.LDT 

LO.LID 

LO.LIN 

LO.LTM 

LO.MAC 

LO.MDE 

LO.NAM 

LO.NET= 

LO.NNM 

LO.OFL 

LO.ONM 

LO.OUT 

LO.OUN 

LO.PAR 

LO.PRI 

LO.RET 

LO.RPA 

LO.SCR 

LO.SEG 

LO.SKA 

LO.SKM 

LO.SNM 


020000 

000000 

•••♦••  GX 

000000 

000005 

000004 

000003 

000003 

000001 

000000 

000004 

000001 

000002 

000002 

000017 

000360 

000006 

002020R 

001624R 

000022 

000052 

000002 

000006 

000010 

000020 

000010 

000032 

000002 

000047 

000004 

000024 

000040 

000032 

000062 

000060 

000046 

000030 

000004 

000034 

000022 

000024 

000044 

000002 

000022 

000012 

000004 

000056 

000026 

000010 

000012 

000064 

000030 

000016 

000054 

000014 

000014 

000035 


LO.IPA 
LO.TRB 
LO.TRI 
LO.UNT 
LO.VCT 
LO.VER 
LR.ACC 
LR.ACO 
LR.ADD 
LR.ALI 
LR.BLK 
LR.CTL 
LR.DES 
LR.HLP 
LR.LIN 
LR.NAM 
LR.PAS 
003  LR.PRO 
003  LR.STS 
LR.TRI 
LR.TYP 
LR.UCB 
LR.UIC 
LR.UNT 
LST 

LS.ALI= 
LS.CEX= 
LS.CIR= 
LS.CXO= 
LS.CX5= 
LS.DLS= 
LS.ECH= 
LS.FCC= 
LS.fCO= 
LS.FC1= 
LS.FDX= 
LS.HDX= 
LS.HLP= 
LS.]LS= 
LS.LIN= 
LS.LI»IC  = 
LS.LOG= 
LS.MA<= 
LS.MNK= 
LS.MOD^ 
LS.NOD= 
LS.NTI= 
LS.OBJ= 
LS.OPT= 
LS.PRO= 
LS.fiES= 
LS.RSV= 
LS.TOP= 
LS.TST= 
LS.UNf= 
LS.XIT= 
LI.CCA= 


000020 

000034 

000030 

000033 

000014 

000042 

000020 

000052 

000012 

000002 

000010 

000004 

000010 

000002 

000002 

000012 

000041 

000002 

000000 

000006 

000002 

000016 

000020 

000005 

011074R 

000016 

000001 

000033 

010000 

000400 

100000 

001000 

000004 

000001 

000002 

004000 

010000 

000012 

100000 

000003 

000007 

000020 

000020 

000040 

000036 

000014 

000013 

000022 

000400 

000002 

000360 

000300 

002000 

000010 

020000 

000011 

000020 


Lr.DIR= 

Lr.LCL= 

LT.LPL= 

LT.N0T= 

LT.RSU= 

LT.SLI= 

LT.rDA= 

LX.ALI= 

LX.CEX= 

LX.CIR= 

LX.LIN= 

LX.LOG= 

LX.NOD= 

LX.OBJ= 

LX.PRO= 

L$$ASG= 

L$$DRV= 

L$$P11= 

L$$11R= 

L.COST 

L.CSTA 

L.CTL 


CTR 

CVA 

DCR 

DDM 

DDS 

DLC 

DLM 

DLS 

FLAG 

FLG 

ILSO 

ILTT 

KR8A 

LDA 

LEN  = 

LGST 
_.LIA 
L.LLA 
L.LNG 
L.LNO 
L.LPT 
L.LSA 
L.LSFD 
L.LSFI 
L.LTT 
L.MASQ 
L.MAST 
L.MASZ 
L.MPF 
L.NIN 
L.NMST 
L.NSTA 
L.NXN 
L.NXTH 
L.OPD 


000010 

000001 

000002 

000040 

000200 

000004 

000100 

000017 

000004 

000034 

000006 

000021 

000015 

000023 

000005 

000000 

000000 

000001 

000000 

000015 

000037 

000012 

000074 

177776 

000100 

000002 

000004 

000003 

000006 

000010 

000014 

000000 

000052 

000066 

000016 

000032 

000022 

013206R 

000034 

000002 

000124 

000026 

000065 

000030 

000046 

000044 

000062 

000070 

000073 

000072 

000022 

000020 

000020 

000014 

000016 

000010 

000103 


L.OPOL 
L.OWNR 
L.REM 
L.RFC 


.RLA 

,RNO 

.RTO 

.RTYD 

.RTYI 

.SEC 

.SEGZ 

.STA 

.TC 

,TIC 


L.TIPD 


..TIP] 

L.THRD 

L.TMRI 

L.TYP 

L.UNT 

L.USA 

L.USTA 

L.VER 

L.WINO 

MACTYP= 

MAXCST= 

MAXHOP= 

MA. CI  = 

MA. DA  = 

MA.IL  = 

MC.ADO= 

MC.CC  = 

MC.CI  = 

MC.DC  = 

MC.DDM= 

MC.DI  = 

MC.DLC= 

MC.EVT= 

MC.LLC= 

MC.LOG= 

MC.NO  = 

MC.NOD= 

MC.OBJ= 

MC.RC  = 

MC.REM= 

MC.ROU= 

MC.SLT= 

MC.STA= 

MD.BM  = 

MD.EM  : 

MD.ILS= 

MD.IM  = 

MF.ACK^ 

MF.CTL= 

MF.DAT= 

MOVBUF 

MPAR  = 


000102 

000021 

000006 

000050 

000004 

000022 

000060 

000055 

000057 

000064 

000076 

000000 

000042 

000043 

000013 

000012 

000054 

000056 

000001 

000013 

000024 

000036 

000015 

000040 

•*»*♦•  GX 

001777 

000037 

000040 

000000 

000020 

000200 

000040 

000020 

000100 

000004 

000060 

000003 

001000 

000002 

000400 

000000 

000010 

000020 

000140 

000040 

000100 

000001 

002000 

000040 

000100 

000040 

000020 

000004 

000010 

000000 

016016R 

172100 


F  in 
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SYMBOL  VALUE 


L5.HDX 
LS.HLP 
lS.LIN 
LS.LMC 
LS.lOG 
LS.MOD 
LS.NOD 
LS.NTI 
LS.OB. 
LS.OPT 
LS.PRO 
LS.TOP 
LS.TST 
LS.UNF 
LS.XIT 
LTRI8T 
LUIDTL 
LUNUMT 
LX.ALI 
lX.CEX 
LX.CIR 
LX.LIN 
LX.LOG 

lx.nod 

LX.OBJ 

LX.PRO 

L.DDM 

L.FLG 

MARKER 

MAXIO 

MOVE 

M5TRIB 

MSUNUM 

MXADDR 

MXALIN 

MXAREA 

MXCN64 

MXCOP 

MXCST 

MXDSTN 

MXDTFL 

MXGRPN 

MXLN64 

MXNODN 

MXPSCN 

MXSNKN 

NAMETL 

NOD  ID 

NODNAM 

NSLINt 

NSTERM 

OCOPTL 


=  010000 
=  000012 
=  000003 
=  000007 
=  000020 
=  000036 
=  00001 i 
=  000013 
=  000022 
=  000400 
=  000002 
=  002000 
=  000010 
=  020000 
=  000011 
=  OOOOAl 
=  000035 
=  000034 
=  000017 
=  000004 
=  000034 
=  000006 
=  000021 
=  000015 
=  000023 
=  000005 

=   *♦♦*** 


GX 
GX 


000104 
000020 
006522  R 
001744  R 
001677  R 
001777 
000006 
000077 
000667  R 
000077 

■  000031 
000006 

:  000020 
:  000006 
000257  R 

■  000006 
^  000006 
:  000050 

002201  R 
000072  R 
004744  R 
002016  R 
001642  R 
001305  R 


REFERENCES 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-160 

#5-172 

#5-153 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

#5-61 

11-1401 

7-1205 
#5-140 
#5-78 

7-282 
#5-176 
#5-175 
#5-67 
#5-68 
#5-66 
#5-159 
#5-69 
#5-70 
#5-72 
#5-73 
#5-74 
#5-150 
#5-77 
#5-75 
#5-76 
#5-181 
#5-128 

7-1041 
#5-177 
#5-174 
#5-167 


7-628 
7-629 


6-248 

7-1208 

7-543 

7-1244 

7-627 


7-628 


7-1275 

5-141 

7-273 

13-1492 

5-176 

5-175 

7-789 

7-976 

7-759 

5-159 

7-408 
#5-71 

7-264 

7-495 

7-560 

5-150 

7-1090 

7-851 

7-1155 

5-181 
•7-792 

7-1091 

5-177 

5-174 

5-167 
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12-1428 


12-1430 


6-230 

7-277 

#14-1514 


7-962 


7-734 

7-420 
7-984 


746 
1097 


7-2b.. 
•7-793 
#7-1099 
7-1209 
7-913 
7-413 


13-1472 


7-1014 


13-1484 


7-1075 


7-285 
7-994 

7-1c45 


7-564 
7-1030 

7-1280 


859 
1035 


7-1116 
7-1050 


7-1089 
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K7  0001?0  105774 

K8  000122 

U9  000126     000771 

150 

151 


BCS     10$ 
CALL    PROC 
BR     10$ 


Page  7-1 

USER  CANNOT  TYPE  INTELLIGIBLY 
PROCESS  REQUEST 
If  NO  -  BRANCH 
ELSE  -  EXIT 
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556 
557 
558 
559 
560 
561 
562 
563 
56A 
565 
566 
567 
568 

569  0016U 

570  001 6U 

571  001620 

572  001624 

573  001626 

574  001632 

575  001634 

576  001642 

577  001646 

578  001654 

579  001656 

580  001664 

581  001666 

582  001672 

583  001674 

584  001700 

585  001702 

586  001706 
587 

588  001710 

589  001714 

590  001722 
591 

592  001724 

593  001730 

594  001732 

595  001736 

596  001740 

597  001744 

598  001746 

599  001752 
600 

601  001754 

602  001760 

603  001762 
604 

605  001764 

606  001772 

607  001774 

608  002000 
609 

610  002002 

611  002002 

612  002006 


.SBTTL  $SPRO  -  SET  PROCESS 

$SPR0  -  "SET  PROCESS" 

INPUTS: 

$PDVA=PDV  ADDRESS 
$NAME=RAD50  PDV  NAME 
$$INC=INCfiEMENT  VALUE  (OPTIONAL) 
$$PAR=PARTITION  NAME  (OPTIONAL) 

OUTPUTS: 

C-BIT=SUCCESS/FAILURE 


016700 
005760 
001006 

103471 
052767 
016701 
032761 
001004 
032767 
001437 

103452 
005767 
001403 

103444 

016701 
026127 
001020 


103433 
103430 
103425 
103422 


103417 
000407 

026127 
001005 

103407 


OOOOOOG 
OOOOOOG 


isPRO: 


OOOOOOG  OOOOOOG 
OOOOOOG  10$: 

OOOOOOG  OOOOOOG 

OOOOOOG  OOOOOOG 


OOOOOOG 


OOOOOOG 
OOOOOOG  114224 


15$: 


20$: 


OOOOOOG  017704  25$: 


016701  OOOOOOG 

152761  OOOOOOG  OOOOOOG 


26$: 


MOV 

TST 

BNE 

CALL 

BCS 

BIS 

MOV 

BIT 

BNE 

BIT 

BEQ 

CALL 

BCS 

TST 

BEQ 

CALL 

BCS 

MOV 
CMP 
BNE 

CALL 

BCS 

CALL 

BCS 

CALL 

BCS 

CALL 

BC. 


$PDVA,RO 

Z.,"'CB(RO) 

10$ 

$XfER 

30$ 

#FL.PX1,$FLAGS 

$PDVA,R1        , 

*ZF.PSE,Z.FLG(R1) 

15$ 

#FL.LLC,$FLAGS 

25$ 

$TMP 

101$ 

$$DEV 

20$ 

$NLDEV 

101$ 


$PDVA,R1 

Z.NAM(RI) 

25$ 


#»RXPT 


$R0L 

101$ 

$CACH 

101$ 

$CKT 

101$ 

$ALADJ 

101$ 


CALL    SALMHC 
BCS     101$ 
BR     26$ 


CMP 
BNE 
CALL 
BCS 


MOV 
BIS8 


Z.NAM(RI) 
26$ 

$ALECL 
101$ 


$PDVA,R' 
#ZF. MFL 


*»RECL 


GET  PDV  ADDRESS 

IS  PROCESS  CORE-RESIDENT? 

IF  NE,  VES 

TRANSFER  PROCESS  FROM  DISK  TO  CORE 

IF  CS,  ERROR  (NOTHING  TO  CLEAN  UP) 

INDKATE  I/O  TRANSFER  OCCURRED 

GET  PDV  ADDRESS 

;  IS  THIS  DLM? 

BR  IF  YES 

ARE  WE  LOADING  AN  LLC? 

IF  EQ,  NO 

SETUP  LLC  LINE  TABLE 

IF  CS,  FAILURE 

DATA  STRUCTURES  INCLUDED? 

IF  EQ,  NO 

SETUP  DEVICE  DATA  STRUCTURES 

IF  CS,  FAILURE 

GET  PDV  ADDRESS 
;  LOADING  XPT? 
BR  IF  NO 

ALLOCATE  ROL  MATRIX 

IF  ERROR  -  BRANCH 

ALLOCATE  CACHE 

IF  ERROR  -  BRANCH 

ALLOCATE  CIRCUIT  COUNTERS 

IF  ERROR  -  BRANCH 

ALLOCATE  ADJ.'XENCY  DATA  BASE 

IF  ERROR  -  BRANCH 

ALLOCATE  MINHOPS/MIN  COST  AND  NODE  COUNTERS 

BR  IF  FAILURE 

CONTINUE 

;  LOADING  ECL  ? 
BR  IF  NO 
ALLOCATE  NODE  COUNTERS 


;  GET  PDV  ADDRESS 
.FLG(RI)  ;  FORCE  "CLEAR  PROCESS' 


TO  REMOVE  fROM  CORE 
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SYMBOL 

VALUE 

REFERENCES 

OPSKDS 

=  002000 

#5-69 

OPIKOT 

=  000400 

#5-69 

OPSKEV 

=  001000 

#5-69 

OPSKGR 

=  001000 

#5-69 

OPSKNT 

=  010000 

#5-69 

OPSKSK 

=  002000 

#5-69 

OPSLCT 

=  000200 

#5-69 

OPSLNE 

=  000040 

#5-69 

OPSLOC 

=  000001 

#5-69 

#5-69 

OPSLST 

=  000002 

#5-69 

OPSLTM 

=  000001 

#5-69 

17-671 

OPSLVL 

=  000010 

#5-69 

OPSMAC 

=  000010 

#5-69 

17-674 

OPSMCO 

=  000002 

#5-69 

OPSMDE 

=  000400 

#5-69 

18-713 

OPSMLI 

=  000004 

#5-69 

OPSMON 

=  000100 

#5-69 

OPSMST 

=  000020 

#5-69 

OPSNAM 

=  000004 

#5-69 

#5-69     #5-69 

OPSNET 

=  004000 

#5-69 

DPSNLI 

=  000002 

#5-69 

OPSNOD 

=  000020 

#5-69 

OPSOUT 

=  002000 

#5-69 

OPSOWN 

=  000020 

#5-69 

17-675 

OPSPAR 

=  000010 

#5-69 

OPSPRI 

=  000010 

#5-69 

OFSRET 

=  010000 

#5-69 

OPSRPA 

=  000010 

#5-69 

OPSSCO 

=  000001 

#5-69 

OPSSEG 

=  000400 

#5-69 

OPSSER 

=  000400 

#5-69 

17-678 

OPSSIN 

=  000010 

#5-69 

OPSSTA 

=  000004 

#5-69 

17-673 

OPSTPA 

=  000020 

#5-69 

OPtTRI 

=  000040 

#5-69 

17-676 

OPSUCS 

=  000020 

#5-69 

OPSUSE 

=  000002 

#5-69 

OPSVEC 

=  000040 

#5-69 

10-211 

OPSVER 

=  000040 

#5-69 

OPSXAC 

=  000001 

#5-69 

OP$XPR 

=  000002 

#5-69 

0P$X5S 

=  000004 

#5-69 

0P$X9S 

=  000010 

#5-69 

PRCIR 

000652  R 

9-189 

#12-325 

PRl 

001612  R 

♦15-527 

15-544    #15-553 

PRLINI 

000202  R 

9--'87 

9-138    #10-205 

PROC 

000134  R 

7-148 

#9-173 

PRTBL 

000164  R 

9-175 

#9-187 

P.REL 

=  ..»..»  GX 

20-791 

QFSACT 

=  000001 

#5-69 

QFSALL 

=  000002 

#5-69 

QFtKNO 

=  Of'OOOA 

#5-69 

10-206    10-219 

10-253 


12-326 


12-337 


12-382 
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5-  53 

6-  108 
'       206 


9- 
10- 


530 
566 


11-  670 

12-  75A 

13-  804 
U-  848 

15-  892 

16-  926 

17-  1024 

18-  1106 

19-  1137 

20-  1176 
24-  1325 

26-  1512 

27-  1641 

27-  1642 

28-  1670 

29-  1715 

30-  1733 

31-  1850 

32-  1878 

33-  1911 

34-  1924 

35-  1951 

36-  2004 

37-  2026 

38-  2033 

39-  2065 

41-  2179 

42-  2205 

43-  2239 

44-  2246 

45-  2289 
48-  2397 
50-  2528 

50-  2530 

51-  2545 

52-  2560 

53-  2575 

54-  2595 

55-  2614 

56-  2628 

57-  2650 

58-  2663 

59-  2673 

60-  2717 

61-  2744 

62-  2782 

63-  2829 

64-  2876 

65-  2901 

66-  2974 

68-  3117 

69-  3148 


macro  calls 

local  data 

netuork  initialization  cold  start 

ntierr  -  ntinit  error  handling 

ntwarn  -  ntinit  warning  handling 

umr  allocation 

allocate  ccbs  (  and  extras  for  rd8s  ) 

allocate  rdbs 

initialize  small  data  buffer  pool 

return  double-word  address  of  next  free  buffer 

deallocate  resources 

dynamically  allocate  sub-partition 

state  transitions  for  finding  maximum  node  address 

state  transitions  for  estimating  ntpool  size 

state  transitions  for  finding  network  pool  partition 

action  routines  for  estimating  ntpool  size 

allocate  sub-partition  out  of  main  partition 

cfgmfl  -  ceta8  scanner  for  network  initialiser 

define  local  data  areas 

perform  configuration  file  scan 

open  configuration  file 

scan  config  filf  for  ntpool  definitions 

process  text  string  from  file 

state  transition  tables  for  parsing 

bufsdf  parse  tables 

llc$df,dlc$df,ddm$df  parse  tables 

sltsdf  parse  tables 

stasdf  parse  tables 

parse  tables 

parse  tables 
objsdf  parse  tables 
remsdf  parse  tables 

EVTSDF  parse  TABLES 
LOGSST  PARSE  TABLES 
ROUSDF  PARSE  TABLES 
SUB-EXPRESSION  PARSE  TABLES 
TPARS  STATE  TABLES  -  SERSDF 
TPARS  ACTION  ROUTINES 
ACTION  ROUTINE:  BUFSDF  MACRO  SEEN 
ACTION  ROUTINE:  BUFSDF  ARGUMENT  MISSING 
ACTION  ROUTINE:  BUFSDF  ARGUMENT  SEEN 
BUFSDF  ARGUMENT  CONTROL  TABLE 
ACTION  ROUTINE;  END  OF  BUFSDF  SOURCE  LINE 
PROCESS  NAME  FOUND 

■MARKED  FOR  LOAD'  FLAG  SEEN 

SLTSDF  MACRO  SEEN 

STASDF  MACRO  SEE.; 


ADDSDF 
NODSDF 


ACTION  ROUTINE: 

ACTION  ROUTINE: 

ACTION  ROUTINE: 

ACTION  ROUTINE: 

SLTSDF  mCTION  ROUTINES 

COUNTER  TIMER  ACTION  ROUTINE 

ACTION  ROUTINE:  NODE  NAME  SEEN 

ACTION  ROUTINE:  NODE  NUMBER  SEEN 

ACTION  ROUTINE:  HOST  NODE  ADDRESS  SEEN 

ACTION  ROUTINE:  SYSTEM  ID  SEEN 

ACTION  ROUTINE:  RIGHT  ANGLE  BRACKET  SEEN 

ACTION  ROUTINE:  STATION  FLAGS  SEEN 

ACTION  ROUTINE:  REMOTE  NODE  NAME  SEEN 

ACTION  ROUTINE:  REMOTE  ADDRESS  FOUND 
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530 

531 

532 

533 

53A 

535 

536 

537 

538 

539 

5A0 

5A1  OOKIO 

5'i2  001AU 

543  001422 

544  001430 

545  001436 

546  001444 

547  001446 

548  001452 

549  001454 

550  001456 

551  001462 

552  001466 

553  001472 

554  001500 

555  001506 

556  001512 

557  001514 

558  001522 

559  001530 

560  001536 

561  001544 

562  001550 
563 

564  001552 


.SBTTL  NTIERR  -  NTINIT  ERROR  HANDLING 

NTIERR  -  ERROR  HANDLING 

THIS  ROUTINE  FIELDS  ALL  ERRORS  IN  NTINIT.  THE  ERROR 
CODE  ON  THE  TOP  TO  THE  STACK  IS  USED  TO  INDEX  IN  THE 
TABLE  'ERRTA8'  TO  THE  ADDRESS  AND  LENGTH  OF  THE  ERROR 
STRING.  ALL  RESOURCES  ARE  DEALOCATED. 


NTIERR: 

CALL 

012767 

001734' 

000400 

MOV 

012767 

000016 

000374 

MOV 

012767 

000044 

000370 

MOV 

DIRS 

MOV 

011600 

042700 

177400 

BIC 

006300 

ASL 

006300 

ASL 

062700 

002032' 

ADD 

012067 

000334 

MOV 

011067 

000332 

MOV 

012767 

000053 

000326 

MOV 

DIRS 

BIT 

032716 

000400 

001414 

BEQ 

016767 

OOOOOOG 

000300 

MOV 

016767 

0000006 

000274 

MOV 

012767 

000040 

000270 

MOV 

DIRS 

MOV 

016706 

OOOOOOG 

100$: 

000261 

SEC 

SDALCT         ;  DEALLOCATE  RESOURCES 
#PREFIX,QIO+Q.IOPL  ;  ADDRESS  OF  PREFIX  MESSAGE 
#PRELEN,QI0tQ.I0PL+2  ;  LENGTH  OF  PREFIX  MESSAGE 
LINE  FEED 
OUTPUT  PREFIX  MESSAGE 
GET  INDEX  VALUE  (  ERROR  CODE  ) 
CLEAR  FLAG  BYTE 


#'$,010+0. IOPL+4 

#010 

(SP),RO 

#*C<377>,R0 

RO 

RO 

#ERRTAB-4,R0 

(R0)  +  ,OIOt-Q.I0PL 

(R0),OIOtQ.IOPL+2 

#'+,010+0. IOPL+4 

#010 

#400, (SP) 

100$ 

SCLBUF.OIO+Q.IOPL 


CONVERT  TO  DOUBLE-WORD  INDEX 
POINT  A1  POINTER 

ADDRESS  OF  MESSAGE 
;  LENGTH  OF  MESSAGE 

CARRIAGE  RETURN 

DUMP  LINE  IMAGE  ? 


ADDRESS  OF  BUFFER 
LINSIZ,0I0+Q.I0PL+2  ;  BUF  SIZE 
#40,010+0. IOPL+4  ;  LINE  FEED,  CARRIAGE  RETURN 
tQlQ 

SPSAV,SP       ;  RESTORE  STACK  POINTER 
;  SET  C-BIT 


RETURN 
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1106 

1107 

1108  003652 

1109 

1110  003652 

1111  003632 

1112  003632 
1115  003652 
11U  003632 

1115  003632 

1116  003632 

1117  003632 

1118  003632 

1119  003652 

1120  G05632 

1121  003632 

1122  005652 
1125  003632 

1124  003632 

1125  005652 

1126  005652 

1127  003632 

1128  003652 

1129  005652 
1150  003652 
1131  005652 
1152  005652 
1155  003652 
115A  003652 
1155 


.SBTTL  STATE  TRANSITIONS  FOR  FINDING  MAXIMUM  NODE  ADDRESS 
ISTATS  IBUFO.KBUFO 


STATES 

TRANS 

XR0U$DF%,,,1 

,CFSFLC 

STATES 

TRANS 

$NUMBR,,.R1 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SNUMBR 

STATES 

TRANS 

<'  ,> 

STATES 

TRANS 

SNUMBR 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SNUMBR 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SNUMBR,,. R2 

STATES 

TRANS 

<',> 

STATES 

TRANS 

SNUM8R,SEXIT, 

.R3 

STATES 

N  8 

VN11  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46 
ALLOCATE  SUB-PARTITION  OUT  OF  MAIN  PARTITION 


Page  26-2 


1626 

1627  005346 

45$: 

RETURN 

1628 

1629  005350 

1630  005354 

1631  005360 

1632  005364 

016701 

005767 
001407 

OOOOOOG 
OOOOOOG 

101$: 

MOV 
CALL 
TST 
BEQ 

.PLGTH,R1 
$DEA16 
SBPOOL 
102$ 

;  OE-ALLOCATE  SUB-PC 

;  SERVER  BASE  SYSTEM 
;  IF  NOT  -  BRANCH 

1633 

1634  005366 

1635  005374 

1636  005400 

016767 
012667 
012667 

OOOOOOG  OOOOOOG 

OOOOOOG 

OOOOOOG 

MOV 
MOV 
MOV 

NTPSAV.NTPSIZ 

(SP)+,PSTART 

(SP)+,PBLOX 

;  RESTORE  POOL..  SI2 
;  RESTORE  VARIABLE 

1637 

1638  005404 

1639  005406 

005001 

102$: 

CLR 
RETURN 

R1 

;  SIGNAL  FAILURE 

N  9 

VNTl  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-jLin-85  02:'<6     Page  i' 
ADD$DF  PARSE  TABLES 


2026 
2027 
2028 
2029 

2030  006324 

2031  00632A 


.SBTTL  ADDSDF  PARSE  TABLES 

STATE  TRANSITIONS  FOR  THE  'ADDSDF'  MACRO 

STATES  ADDDF 
TRANS   SNUMBR.SEXIT 


N  10 

\IHM   -   VNP  NETWORK  INITIALIZATI  MACRO  V05.0?b  Saturday  29-Jun-85  02:A6  Page  48-1 

TPARS  STATE  TABLES  -  SERSDF 

2454  00632A  THm%     <',>,E 

?^55  006324  TRANS  SSTRNG,  ,SERDV,Sf .DEV.SERf LG 

^  ^6  „,.  ,^, 

2457  006324  STATES 

2458  006324  TRANS  SE0S,SEX1T ,SEREND 

2459  006324  TRANS  <',> 


U   11 

VNTI  -  VNP  NETWORK  INITIALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  60 
COUNTER  TIMER  ACTION  ROUTINE 


2717 
2718 
2719 
2720 
2721 

2722  007002 

2723  007002 
272A  007006 

2725  007010 

2726  0u7016 

2727  007020 
2728 

2729 
2730 
2731 
2732 
2733 
2731;  00703r 

2735  007036 

2736  007040 

2737  007046 
2738 

2739  007050 

2740  007054 
2741 

2742 


.SBTTL  COUNTER  TIMER  ACTION  ROUTINE 


005767 
001004 
016767 


OOOOOOG 
OOOOOOG  OOOOOOG 


COUNTER  TIMER 

VALUE 

SCTIM: 

TST 

.PNUMH 

BNE 

101$ 

MOV 

.PNUMB, SCTIM 

RETURN 

01$:   NTIERR 

27 

022767 
002404 
066767 


BROADCAST  ROUTER  ADJACENCIES 


000041  OOOOOOG  '.SBRA: 
OOOOOOG  000102' 


062716  000002 


10$: 


CMP 
BLT 
ADD 
RETURN 

ADD 
RETURN 


#33.,.PNUMB 

10$ 

.PNUMB.NBRA 


#2,(SP) 


LEGAL  COUNTER  TIMER  VALUE 

BR  IF  NO 

STORE  COUNTER  TIMER  VALUE 

ILLEGAL  COUNTER  TIMER  VALUE 


LEGAL  VALUE  ? 
IF  NO  -  BRANCH 
UPDATE  TOTAL 


ILLEGAL  VALUE 


VNT      -  VNP 

ACT   ON  ROU 

322A 

322*^ 

3226 

3227 

3228 

3229 

3250 

3231 

3232 

3233 

01 

3234 

01 

3235 

01 

3236 

01 

3237 

01 

3238 

3259 

01 

3240 

3241 

01 

3242 

3243 

01 

3244 

3245 

01 

N  12 

NETWOHK  INITlALiZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:46  Page  70 
TINE:  MAXIMUM  NUMBER  OF  NODES  SEEN 


INPUT: 


.SBTTL  ACTION  ROUTINE:  MAXIMUM  NUMBER  Of  NODES  SEEN 
.RADDR  -  MAXIMUM  NUMBER  OF  NODES  SEEN 

PNUMB  =  MAXIMUM  NUMBER  OF  NODES 


CHECK  HIGH  LIMIT 

IF  LEGAL  VALUE  -  BRANCH 

IF  NOT  -  REJECT 


1674 
1674 
1702 
1704 
1710 

022757 
002C03 
062716 

.RADDR: 
001777     OOOOOOG 

000002 

CMP 
BGE 
ADD 
RETURN 

* 1023.,. PNUMB 

10$ 

*2,(SP) 

171? 

10$: 

GETRV 

$DECPT,#D$END 

1732 

016767 

OOOOOOG  000060G 

MOV 

. PNUMB, $BFRtD$NN 

1740 
1744 

PUTRC 
RETURN 

READ  DECNET  HOME  BLOCK 

COPY  MAX  NODE  VALUE 

WRITE  BACK  DECNET  HOME  BLOCK 


N  13 

VNTl  -  VNP  NETWORK  IMHALIZATI  MACRO  V05.03b  Saturday  29-Jun-85  02:A6 
ACTION  ROUTINE:  OBJECT  NAME  SEEN 


Page  83 


3591 

3592 

3595 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3605 

3604 

5605 

3606 

5607 

5608 

5609 

5610 

5611 

5612 

5615 

56K 

5615 


.SBTTL  ACTION  ROUTINE:  OBJECT  NAME  SEEN 

'♦♦♦  -  .ONAME  -  OBJECT  NAME  SEEN 

INPUTS: 

.PSTPT  =  POINTER  TO  THE  OBJECT  NAME  STRING 

.PSTCN  =  COUNT  Of  CHARACTERS  IN  THE  OBJECT  NAME  STRING 

OUTPUTS: 

TRANSITION  IS  ACCEPTED/REJECTED 


015506 
015512 
0153K 
015520 
015524 
013526 
015550 
015554 
015540 
015546 
015550 
013554 


016700 
010701 

010167 
105405 
010701 

010167 
022767 

105002 
062716 


OOOOOOG 


000052' 


000054' 
000006 

000002 


.ONAME; 


OOOOOOG  10$: 


20$: 


:MOV 
MOV 
CALL 
MOV 
BCS 
MOV 
CALL 
MOV 
CMP 
BHIS 
ADD 
RETURN 


. PSTPT, RO 

PC,R1 

SCATS 

R1, ONAME 

lOi 

PCfil 

$CAT5 

R1,0NAMEt2 

#6, .PSTCN 

20i 

#2,(Sr; 


GET  ADDRESS  OF  ASCII  TASK  NAME 

PERIODS  ARE  ACCEPTABLE 

CONVERT  TASK  NAME  TO  RAD50 

STORE  THE  OBJECT  NAME 

IF  CS,  LESS  THAN  5  CHARS  CONVERTED 

CONVERT  2ND  HALF  OF  NAME 

STORE  2ND  HALF  OF  TASK  NAME 
IS  THE  TASK  NAME  TOO  BIG  ? 
IF  HIS,  NO 
REJECT  TRANSITION 


VM!  -  VNP  NETWORK,  IMTIALlZATl  MACRO  V05.03b  Saturddy  ?9-Jun-85 
f iLtDf /SERSD*  ACTION  ROUTINES 


N  U 

02:A6 


A075  015U6 

4076  015154 

4077  015174 
4078 

4079  015202 

4080 

4081 


SWTCHO 

PUTRC 

SWTCHO 

RETURN 


#$HM8UF 
$DECPT,#D$fND 


Page  94-1 


SWITCH  OUTPUT  BUFFER 
WRITE  HOME  BLOCK  TO  IMAGE 
RESET  BUFFER  TO  DEFAULT 


N  15 

VNTl  -  VNP  NETWORK  IMTIALIZATI  MACRO  V05.0?b  Saturday  29-Ju'^-85  02:^6  Page  103-1 
fLBKO  -  MLE  NAME  BLOCK  PROCESSING 


A532 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

454? 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

455? 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

456C 

45b1 

4562 

4563 

4564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 


016642 
016646 
016652 

016654 
016672 

016674 
016702 
016706 

016712 
016716 
016722 

016726 
016732 
016736 

016742 
016746 
016752 

016756 


012701 
066701 

010311 


012767 
005067 
005067 

012^0- 
012701 


012700 
012701 


012700 
012701 


OOOOOOG 
000260' 


000266'  000334'  SETST: 

000204' 

000264' 


000242' 
000010 


000206' 
000014 


000222' 
000020 


016760 
016764 
016770 
016774 
017000 
017004 

01/006 


016700 
112077 
005267 
005267 
005367 
001367 


OOOOOOG 
000334' 
000334' 
000204' 
OOOOOOG 


MOV 
ADD 
MOV 

PUTAD 
RESRG 

MOV 
CLR 
CLR 

MOV 
MOV 
CALL 

MOV 
MOV 
CALL 

MOV 
MOV 
CALL 

RETURN 

.DSABL 


#$8fR,R1 
SEROff ,R1 
R3,(Rl! 

RO,#S.LENG 
<R3> 

#FN6UFF,STRPT 

STRSIZ 

FN8LN 

#DEV8UF,R0 

#DVSZ,R1 

INieUF 

#UIC8UF,RC 

#UIS2,R1 

INieUF 

tfFILBUF.RO 

#FLSZ,Rl 

INJBUF 


LS8 


COPY  BUFFER  ADDRESS 

GET  ADDRESS  OF  FNB  POINTER 

SET  FNB  ADDRESS 

WRITE  UPDATED  SERVICE  BLOCK  TO  IMAGE 
RESTORE  REG 

RESET  START  OF  BUFFER 
RESET  STRING  COUNT 
RESET  FILE  NAME  LENGTH 

INIT  DEVICE  BUFFER 
SI7E  OF  BUFFER 
INIT  BUFFER 

INIT  UK  BUFFER 
SIZE  OF  BUFFER 
INIT  BUFFER 

INIT  FILE  NAME  BUFFER 
SIZE  OF  BUFFER 
INIT  BUFFER 


GETSTR 
INPUTS 


STORE  PARSED  STRING 


.PSTPT  -  ADDRESS  OF  PARSED  STRING 
.PSTCN  -  SIZE  OF  PARSED  STRING 


GETSTR: 

:M0V 

. PSTPT, RO 

10$: 

M0V8 

(R0)t,aSTRPT 

INC 

STRPT 

INC 

STfiSIZ 

DEC 

.PSTCN 

BNE 

10$ 

GET  ADDRESS  OF  STRING 

STORE  BYTE 

INC  POINTER 

COUNT  ONE  MORE  CHARACTER 

COUNT  ONE  LESS  CHARACTER 

IF  MORE  -  BRANCH 


RETURN 

DEV  -  STORE  DEVICE  NAME 

INPUTS  - 

STRAD  -  CURRENT  STRING  ADDRESS 
STRSIZ  -  STRING  SIZE 

OUTPUTS   - 

DEVBUF    CONTAINS   DEVICE    SRING 


N 
B 
C 
D 
E 

F  3 
G  ! 
H  3 


N  3 
B  A 


VNP 


4 
i, 
4 

4 

5 
5 

5 
5 

5   V(^SD 
5 

s 
5 


J 

5 

K 

c 

L 

5 

M 

5 

N 

5 

B 

6 

C 

6 

D 

6 

E 

6 

F 

6 

G 

6 

H 

6 

I 

6 

J 

6 

< 

6 

L 

6 

M 

6 

N 

6 

B 

7 

C 

7 

D 

7 

E 

7 

F 

7 

G 

7 

H 

7 

I 

7 

J 

7 

K 

7 

L 

7 

M 

7 

N 

7 

B 

8 

C 

8 

D 

8 

E 

8 

F 

8 

G 

8 

H 

g 

I 

8 

J 

8 

K 

8 

L 

8 

M 

8 

N 

8 

B 

9 

C 

9 

D 

9 

E 

9 

F 

9 

G 

9 

H 

9 

I 

9 

J 

9 

K 

9 

L 

9 

M 

9 

N 

9 

B 

10 

C 

10 

D 

10 

VNTl 


E  10 
F  10 
G  10 
H  10 
I  10 
J  10 
K  10 
L  10 
M  10 
N  10 
B  11 
C  11 
D  11 
E  11 
F  11 
G  11 
H  11 
I  11 
J  11 
K  11 
L  11 
M  11 
N  11 
B  12 
C  12 
D  12 
E  12 
F  12 
6  12 
H  12 
I  12 
J  12 
K  12 
L  12 
M  12 
N  12 
B  13 
C  13 
D  13 
E  13 
F  13 
G  13 
H  13 
I  13 
J  13 
K  13 
L  13 
M  13 
N  13 
B  U 
C  H 
D  U 
E  U 
F  U 
G  U 
H  U 
I  U 
J  U 
<  U 
L  H 


G  , 

H  IS 
I  15 
J  15 
K  15 
L  15 
H  15 
N  15 
B  16 
C  16 
n  16 
E  16 
F  16 
G  16 
H  16 
1  16 
J  16 
K  16 
L  16 
M  16 


